From 960cdf29197bc3f5922110cf26627aa9709ac79b Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Fri, 10 Jun 2005 10:29:11 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'bogue40'.

---
 Perl/t/Coords.t | 151 --------------------------------------------------------
 1 file changed, 151 deletions(-)
 delete mode 100644 Perl/t/Coords.t

(limited to 'Perl/t/Coords.t')

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");
-
-
-- 
cgit v1.1