From 290833f95e9a84da788cede6a5ce1ef603e084dd Mon Sep 17 00:00:00 2001
From: mertz
Date: Thu, 2 Oct 2003 09:15:35 +0000
Subject: 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!

---
 Perl/t/PreviousKnownBugs.t | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'Perl/t')

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";
-- 
cgit v1.1