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!

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