blob: 01d6b39dfe91f45003d540b81b0f7fde8714646b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
BEGIN { print "1..3\n" }
use TQt;
$a=0;
# testing if the TQt::Application ctor works
eval { $a=TQt::Application(\@ARGV) };
print +$@ ? "not ok\n" : "ok 1\n";
# testing wether the global object is properly setup
eval { TQt::app()->libraryPaths() };
print +$@ ? "not ok\n" : "ok 2\n";
# one second test of the event loop
TQt::Timer::singleShot( 300, TQt::app(), TQT_SLOT "quit()" );
print TQt::app()->exec ? "not ok\n" : "ok 3\n";
|
