From 4ee2ed51dd1ba855b4b8de59460530a60a1af500 Mon Sep 17 00:00:00 2001 From: lecoanet Date: Wed, 11 May 2005 12:54:19 +0000 Subject: Changed the name to avoid name clash with Text.t --- Perl/t/Text2.t | 161 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Perl/t/text.t | 161 --------------------------------------------------------- 2 files changed, 161 insertions(+), 161 deletions(-) create mode 100644 Perl/t/Text2.t delete mode 100644 Perl/t/text.t diff --git a/Perl/t/Text2.t b/Perl/t/Text2.t new file mode 100644 index 0000000..2087bc2 --- /dev/null +++ b/Perl/t/Text2.t @@ -0,0 +1,161 @@ +#!/usr/bin/perl -w + +# +# $Id: Text2.t,v 1.1 2005-05-11 12:54:19 lecoanet Exp $ +# Author: Christophe Mertz +# + +# testing text item + +# this script can be used with an optionnal argument, an integer giving +# the delay in seconds during which the graphic updates will be displayed +# this is usefull for visual inspection! + +my $mw; +BEGIN { + if (!eval q{ +# use Test::More qw(no_plan); + use Test::More tests => 69; + 1; + }) { + print "# tests only work properly with installed Test::More module\n"; + print "1..1\n"; + print "ok 1\n"; + exit; + } + if (!eval q{ + use Tk::Zinc; + 1; + }) { + print "unable to load Tk::Zinc"; + print "1..1\n"; + print "ok 1\n"; + exit; + } + if (!eval q{ + $mw = MainWindow->new(); + 1; + }) { + print "# tests only work properly when it is possible to create a mainwindow in your env\n"; + print "1..1\n"; + print "ok 1\n"; + exit; + } +} + +use strict; + +my $zinc = $mw->Zinc(-render => 1, + -width => 400, -height => 1200)->pack; + +like ($zinc, qr/^Tk::Zinc=HASH/ , "zinc has been created"); + + +my $g1 = $zinc->add('group',1, -tags => "gr1"); + + +my $TEXT = ""; + +my @families = $mw->fontFamilies; +#print "families=@families\n"; + +my $family=""; +if ( grep /^verdana$/i , @families) { + $family = "verdana"; +# $family = "helvetica"; +} elsif ( grep /^helvetica$/i , @families) { + $family = "helvetica"; +} elsif ( grep /^arial$/i , @families) { + $family = "arial"; +} +#print "family=$family\n"; + +my $topLevel = $mw->Toplevel(); +$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"); + +$zinc0->fontCreate("fonta", -family => $family, -size => -20, -weight => 'normal'); + + +foreach my $row (2..15) { + my $string = ""; + foreach my $col (0..15) { + $string .= chr($row*16+$col); + } + $zinc0->add('text', 1, -position => [10,$row*20-40], + -text => $string, -font => 'fonta'); + $zinc0->update; + &pass("adding text item n°$row with a $family font of size 20 and normal weight"); +} + + +### creating text items with many different fonts: + +my $size = 8; +my $y = 10 ; + +$zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal'); + + +### creating text items with many different fonts: +$zinc->add('text', $g1, -position => [10,$y], -tags => ["txt$size"], -font => "font$size", + -text => "$size pixels $family"); +$zinc->remove('txt8'); +$zinc->fontDelete("font$size"); +$zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal'); +$zinc->add('text', $g1, -position => [10,$y], -tags => ["txt$size"], -font => "font$size", + -text => "$size pixels $family"); + + + + + +foreach my $size (9..60) { + $zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal'); + $zinc->add('text', $g1, -position => [10,$y], -tags => ["txt$size"], -font => "font$size", + -text => "$size pixels $family"); + $zinc->update; + + # deleting both the font and the text item and recreating it 10 times + foreach my $count (1..10) { + $zinc->fontDelete("font$size"); + $zinc->remove('txt8'); + $zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal'); + $zinc->add('text', $g1, -position => [10,$y], -tags => ["txt$size"], -font => "font$size", + -text => "$size pixels $family"); + $zinc->update; + } + &pass("creating and deleting 10 times a text item with a $family font of size $size"); + $y += $size; +} + + +&wait; + +## we should certainly test much much other things! + + + +sub wait { + $zinc->update; + ok (1, $_[0]); + + my $delay = $ARGV[0]; + if (defined $delay) { + $zinc->update; + if ($delay =~ /^\d+$/) { + sleep $delay; + } else { + sleep 1; + } + } + +} + + + +diag("############## end of text test"); diff --git a/Perl/t/text.t b/Perl/t/text.t deleted file mode 100644 index b8893db..0000000 --- a/Perl/t/text.t +++ /dev/null @@ -1,161 +0,0 @@ -#!/usr/bin/perl -w - -# -# $Id: text.t,v 1.6 2004-05-07 13:53:00 mertz Exp $ -# Author: Christophe Mertz -# - -# testing text item - -# this script can be used with an optionnal argument, an integer giving -# the delay in seconds during which the graphic updates will be displayed -# this is usefull for visual inspection! - -my $mw; -BEGIN { - if (!eval q{ -# use Test::More qw(no_plan); - use Test::More tests => 69; - 1; - }) { - print "# tests only work properly with installed Test::More module\n"; - print "1..1\n"; - print "ok 1\n"; - exit; - } - if (!eval q{ - use Tk::Zinc; - 1; - }) { - print "unable to load Tk::Zinc"; - print "1..1\n"; - print "ok 1\n"; - exit; - } - if (!eval q{ - $mw = MainWindow->new(); - 1; - }) { - print "# tests only work properly when it is possible to create a mainwindow in your env\n"; - print "1..1\n"; - print "ok 1\n"; - exit; - } -} - -use strict; - -my $zinc = $mw->Zinc(-render => 1, - -width => 400, -height => 1200)->pack; - -like ($zinc, qr/^Tk::Zinc=HASH/ , "zinc has been created"); - - -my $g1 = $zinc->add('group',1, -tags => "gr1"); - - -my $TEXT = ""; - -my @families = $mw->fontFamilies; -#print "families=@families\n"; - -my $family=""; -if ( grep /^verdana$/i , @families) { - $family = "verdana"; -# $family = "helvetica"; -} elsif ( grep /^helvetica$/i , @families) { - $family = "helvetica"; -} elsif ( grep /^arial$/i , @families) { - $family = "arial"; -} -#print "family=$family\n"; - -my $topLevel = $mw->Toplevel(); -$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"); - -$zinc0->fontCreate("fonta", -family => $family, -size => -20, -weight => 'normal'); - - -foreach my $row (2..15) { - my $string = ""; - foreach my $col (0..15) { - $string .= chr($row*16+$col); - } - $zinc0->add('text', 1, -position => [10,$row*20-40], - -text => $string, -font => 'fonta'); - $zinc0->update; - &pass("adding text item n°$row with a $family font of size 20 and normal weight"); -} - - -### creating text items with many different fonts: - -my $size = 8; -my $y = 10 ; - -$zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal'); - - -### creating text items with many different fonts: -$zinc->add('text', $g1, -position => [10,$y], -tags => ["txt$size"], -font => "font$size", - -text => "$size pixels $family"); -$zinc->remove('txt8'); -$zinc->fontDelete("font$size"); -$zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal'); -$zinc->add('text', $g1, -position => [10,$y], -tags => ["txt$size"], -font => "font$size", - -text => "$size pixels $family"); - - - - - -foreach my $size (9..60) { - $zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal'); - $zinc->add('text', $g1, -position => [10,$y], -tags => ["txt$size"], -font => "font$size", - -text => "$size pixels $family"); - $zinc->update; - - # deleting both the font and the text item and recreating it 10 times - foreach my $count (1..10) { - $zinc->fontDelete("font$size"); - $zinc->remove('txt8'); - $zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal'); - $zinc->add('text', $g1, -position => [10,$y], -tags => ["txt$size"], -font => "font$size", - -text => "$size pixels $family"); - $zinc->update; - } - &pass("creating and deleting 10 times a text item with a $family font of size $size"); - $y += $size; -} - - -&wait; - -## we should certainly test much much other things! - - - -sub wait { - $zinc->update; - ok (1, $_[0]); - - my $delay = $ARGV[0]; - if (defined $delay) { - $zinc->update; - if ($delay =~ /^\d+$/) { - sleep $delay; - } else { - sleep 1; - } - } - -} - - - -diag("############## end of text test"); -- cgit v1.1