diff options
author | mertz | 2003-10-02 09:15:35 +0000 |
---|---|---|
committer | mertz | 2003-10-02 09:15:35 +0000 |
commit | 290833f95e9a84da788cede6a5ce1ef603e084dd (patch) | |
tree | 934923dca6e392240523b0896d7477dd0f782431 /Perl/t/PreviousKnownBugs.t | |
parent | 648a32766515e12f5b4c0e4c9f1b378964117fed (diff) | |
download | tkzinc-290833f95e9a84da788cede6a5ce1ef603e084dd.zip tkzinc-290833f95e9a84da788cede6a5ce1ef603e084dd.tar.gz tkzinc-290833f95e9a84da788cede6a5ce1ef603e084dd.tar.bz2 tkzinc-290833f95e9a84da788cede6a5ce1ef603e084dd.tar.xz |
Testing that it is possible to load Tk::Zinc and to create a main window
if bot the test cannot be gone trhough and it is declared as ok!
Diffstat (limited to 'Perl/t/PreviousKnownBugs.t')
-rw-r--r-- | Perl/t/PreviousKnownBugs.t | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/Perl/t/PreviousKnownBugs.t b/Perl/t/PreviousKnownBugs.t index 1e8cdd7..56fbecc 100644 --- a/Perl/t/PreviousKnownBugs.t +++ b/Perl/t/PreviousKnownBugs.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: PreviousKnownBugs.t,v 1.1 2003-09-23 12:15:15 mertz Exp $ +# $Id: PreviousKnownBugs.t,v 1.2 2003-10-02 09:15:35 mertz Exp $ # Author: Christophe Mertz # @@ -19,9 +19,15 @@ BEGIN { } if (!eval q{ use Tk::Zinc; -# print "2222\n"; -# MainWindow->new(); -# print "3333\n"; + 1; + }) { + print "unable to load Tk::Zinc"; + print "1..1\n"; + print "ok 1\n"; + exit; + } + if (!eval q{ + MainWindow->new(); 1; }) { print "# tests only work properly when it is possible to create a mainwindow in your env\n"; |