diff options
| author | mertz | 2005-09-16 07:36:32 +0000 |
|---|---|---|
| committer | mertz | 2005-09-16 07:36:32 +0000 |
| commit | 5fd5f932e5411e5c99b3362946eaff5d256ded33 (patch) | |
| tree | 854fb18f2266bfc6733f99cea8a66abf87488de3 /Perl | |
| parent | 4482269522afae8915530e54eaea2631e581cf2e (diff) | |
| download | tkzinc-5fd5f932e5411e5c99b3362946eaff5d256ded33.zip tkzinc-5fd5f932e5411e5c99b3362946eaff5d256ded33.tar.gz tkzinc-5fd5f932e5411e5c99b3362946eaff5d256ded33.tar.bz2 tkzinc-5fd5f932e5411e5c99b3362946eaff5d256ded33.tar.xz | |
testing the 2nd instance of Tkzinc, rather two times the first instance
Diffstat (limited to 'Perl')
| -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'); |