From 5fd5f932e5411e5c99b3362946eaff5d256ded33 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 16 Sep 2005 07:36:32 +0000
Subject: testing the 2nd instance of Tkzinc, rather two times the first
 instance

---
 Perl/t/Text2.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Perl')

diff --git a/Perl/t/Text2.t b/Perl/t/Text2.t
index 868955a..0b13dfe 100644
--- a/Perl/t/Text2.t
+++ b/Perl/t/Text2.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: Text2.t,v 1.2 2005-06-21 21:14:34 mertz Exp $
+# $Id: Text2.t,v 1.3 2005-09-16 07:36:32 mertz Exp $
 # Author: Christophe Mertz
 #
 
@@ -76,7 +76,7 @@ $topLevel->title("testing all ascii glyphs of $family");
 my $zinc0 = $topLevel->Zinc(-render => 1,
 			    -width => 300, 
 			    -height => 400,)->pack;
-like  ($zinc, qr/^Tk::Zinc=HASH/ , "zinc0 has been created");
+like  ($zinc0, qr/^Tk::Zinc=HASH/ , "zinc0 has been created");
 
 $zinc0->fontCreate("fonta", -family => $family, -size => -20, -weight => 'normal');
 
-- 
cgit v1.1