diff options
Diffstat (limited to 'PerlQt/t/b_nogui.t')
| -rw-r--r-- | PerlQt/t/b_nogui.t | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/PerlQt/t/b_nogui.t b/PerlQt/t/b_nogui.t index 23bdd72..cd28260 100644 --- a/PerlQt/t/b_nogui.t +++ b/PerlQt/t/b_nogui.t @@ -1,19 +1,19 @@ BEGIN { print "1..6\n" } -use Qt; -use Qt::constants; +use TQt; +use TQt::constants; -eval {my $c = Qt::TextCodec::codecForLocale()}; +eval {my $c = TQt::TextCodec::codecForLocale()}; print +$@ ? "not ok\n" : "ok 1\n"; -eval {my $s = Qt::Variant( Qt::DateTime::currentDateTime() ) }; +eval {my $s = TQt::Variant( TQt::DateTime::currentDateTime() ) }; print +$@ ? "not ok\n" : "ok 2\n"; my $ret; -eval {$ret = Qt::Point(20,20); $ret += Qt::Point(10,10); $ret *= 2 ; $ret /= 3 }; +eval {$ret = TQt::Point(20,20); $ret += TQt::Point(10,10); $ret *= 2 ; $ret /= 3 }; print +$@ ? "not ok\n" : "ok 3\n"; @@ -21,7 +21,7 @@ eval { $ret = ($ret->x != 20 or $ret->y != 20) ? 1 : 0 }; print +($@ || $ret) ? "not ok\n" : "ok 4\n"; -eval { my $z = Qt::GlobalSpace::qVersion() }; +eval { my $z = TQt::GlobalSpace::qVersion() }; if( $@ ) { @@ -30,8 +30,8 @@ if( $@ ) } else { - eval{ my $p = Qt::Point( 20, 20 ); - my $p2 = Qt::Point( 30, 30 ); + eval{ my $p = TQt::Point( 20, 20 ); + my $p2 = TQt::Point( 30, 30 ); $p = $p + $p2 + $p; $p2 = $p * 2; $p2 = -$p2; @@ -41,7 +41,7 @@ else eval { $str = "Fooooooooooo"; - $ts = Qt::TextStream( $str, IO_WriteOnly ); + $ts = TQt::TextStream( $str, IO_WriteOnly ); $ts << "pi = " << 3.14; }; print +($str eq "pi = 3.14ooo") ? "ok 6\n":"not ok\n"; |