diff options
author | mertz | 2003-10-16 13:21:56 +0000 |
---|---|---|
committer | mertz | 2003-10-16 13:21:56 +0000 |
commit | e02c9d03ec0b5a1f4cc127d93a82918461aae188 (patch) | |
tree | cb0734585e6799d553a6d664d556b197d87da781 | |
parent | 6f366fa82dcebd3e0a8bb69d84aff73db8fec68c (diff) | |
download | tkzinc-e02c9d03ec0b5a1f4cc127d93a82918461aae188.zip tkzinc-e02c9d03ec0b5a1f4cc127d93a82918461aae188.tar.gz tkzinc-e02c9d03ec0b5a1f4cc127d93a82918461aae188.tar.bz2 tkzinc-e02c9d03ec0b5a1f4cc127d93a82918461aae188.tar.xz |
a loop was stupidly never executed due to some devel. tests
-rw-r--r-- | Perl/t/text.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/t/text.t b/Perl/t/text.t index 8cb2836..613348f 100644 --- a/Perl/t/text.t +++ b/Perl/t/text.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: text.t,v 1.1 2003-10-16 13:16:04 mertz Exp $ +# $Id: text.t,v 1.2 2003-10-16 13:21:56 mertz Exp $ # Author: Christophe Mertz # @@ -91,7 +91,7 @@ foreach my $size (9..60) { $zinc->update; # deleting both the font and the text item and recreating it 10 times - foreach my $count (1..-10) { + foreach my $count (1..10) { $zinc->fontDelete("font$size"); $zinc->remove('txt8'); $zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal'); |