You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
libtqt-perl/PerlTQt/t/c_qapp.t

24 lines
440 B

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";