diff options
-rw-r--r-- | Perl/t/Text2.t | 4 |
1 files changed, 2 insertions, 2 deletions
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'); |