diff options
Diffstat (limited to 'Perl/t/Coords.t')
| -rw-r--r-- | Perl/t/Coords.t | 151 |
1 files changed, 0 insertions, 151 deletions
diff --git a/Perl/t/Coords.t b/Perl/t/Coords.t deleted file mode 100644 index b8c4662..0000000 --- a/Perl/t/Coords.t +++ /dev/null @@ -1,151 +0,0 @@ -#!/usr/bin/perl -w - -# -# $Id: Coords.t,v 1.6 2004-05-24 19:56:23 mertz Exp $ -# Author: Christophe Mertz -# - -# testing all the import - -BEGIN { - if (!eval q{ -# use Test::More qw(no_plan); - use Test::More tests => 21; - 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{ - 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; - } -} - - -$mw = MainWindow->new(); -$zinc = $mw->Zinc(-width => 100, -height => 100); - -like ($zinc, qr/^Tk::Zinc=HASH/ , "zinc has been created"); - -my $rect = $zinc->add('rectangle', 1, [10,20,40,50]); - - -is_deeply([ $zinc->coords($rect) ], - [ [10,20], [40, 50] ], - "coords are list of arrays"); - -is_deeply([ $zinc->coords($rect,0) ], - [ [10,20], [40, 50] ], - "coords of first contour is a list of arrays"); - -is_deeply([ $zinc->coords($rect,0,0) ], - [ 10,20 ], - "coords of one point of a contour is a list of two numbers"); - -is_deeply([ $zinc->coords($rect,0,1) ], - [ 40,50 ], - "coords of one point of a contour is a list of two numbers"); - -my $curve = $zinc->add('curve', 1, [ [10,20] ,[40,50,'c'], [90,10,'c'], [30,60] ]); - -is_deeply([ $zinc->coords($curve) ], - [ [10,20] ,[40,50,'c'], [90,10,'c'], [30,60] ], - "coords of a curve is a list of arrays"); - -is_deeply([ $zinc->coords($curve,0) ], - [ [10,20] ,[40,50,'c'], [90,10,'c'], [30,60] ], - "coords of contour 0 of a curve is a list of arrays"); - -is_deeply([ $zinc->coords($curve,0,0) ], - [ 10,20 ], - "coords of first point of contour 0 of a curve is list of two numbers"); - -is_deeply([ $zinc->coords($curve,0,1) ], - [ 40,50,'c' ], - "coords of a control point of a curve contour is list of three elements"); - -my $text = $zinc->add('text', 1, -position => [10,20], -text => 'test'); - -is_deeply([ $zinc->coords($text) ], - [ 10,20 ], - "coords of a text"); - -is_deeply([ $zinc->coords($text,0) ], - [ 10,20 ], - "coords of text contour"); - -is_deeply([ $zinc->coords($text,0,0) ], - [ 10,20 ], - "coords of text contour first point"); - - -my $group = $zinc->add('group', 1); - -is_deeply([ $zinc->coords($group) ], - [ 0,0 ], - "coords of a empty group, not moved"); - -$zinc->translate($group, 23, 45); -#my @coords = @{$zinc->coords($group)}[0]; -#print "coords = @coords", $coords[0][0], $coords[0][1], "\n"; -is_deeply([ $zinc->coords($group) ], - [ 23,45 ], - "coords of a empty group, translated"); - - -my $track = $zinc->add('track', 1, 0, -position => [56, 78]); -is_deeply([ $zinc->coords($track) ], - [ 56,78 ], - "coords of a track"); - -my $wpt = $zinc->add('waypoint', 1, 0, -position => [561, 781]); -is_deeply([ $zinc->coords($wpt) ], - [ 561,781 ], - "coords of a waypoint"); - -my $tab = $zinc->add('tabular', 1, 1, -position => [61, 81]); -is_deeply([ $zinc->coords($tab) ], - [ 61,81 ], - "coords of a empty tabular"); -$zinc->itemconfigure($tab, -labelformat => 'x20x18+0+0'); -is_deeply([ $zinc->coords($tab) ], - [ 61,81 ], - "coords of a tabular with a labelformat"); - - -my $arc = $zinc->add('arc', 1, [13,31, 42,24]); -is_deeply([ $zinc->coords($arc) ], - [ [13,31], [42,24] ], - "coords of an arc"); - -my $tri = $zinc->add('triangles', 1, [ [10,20], [30,40], [50,60], [70,80], [90,99] ]); -is_deeply([ $zinc->coords($tri) ], - [ [10,20], [30,40], [50,60], [70,80], [90,99] ], - "coords of an triangle"); - -my $photoMickey = $zinc->Photo('mickey.gif', -file => Tk->findINC("demos/images/mickey.gif")); -my $icon = $zinc->add('icon', 1, -position => [20,100], -image => $photoMickey); -is_deeply([ $zinc->coords($icon) ], - [ 20,100 ], - "coords of an icon"); - -diag("############## coords test"); - - |