From 648a32766515e12f5b4c0e4c9f1b378964117fed Mon Sep 17 00:00:00 2001
From: mertz
Date: Thu, 2 Oct 2003 09:14:23 +0000
Subject: initial release

---
 Perl/t/Text.t            | 57 ++++++++++++++++++++++++++++
 Perl/t/Transformations.t | 96 ++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 153 insertions(+)
 create mode 100644 Perl/t/Text.t
 create mode 100644 Perl/t/Transformations.t

diff --git a/Perl/t/Text.t b/Perl/t/Text.t
new file mode 100644
index 0000000..5494e85
--- /dev/null
+++ b/Perl/t/Text.t
@@ -0,0 +1,57 @@
+#!/usr/bin/perl -w
+
+#
+# $Id: Text.t,v 1.1 2003-10-02 09:14:23 mertz Exp $
+# Author: Christophe Mertz
+#
+
+# testing all the import
+
+BEGIN {
+    if (!eval q{
+        use Test::More qw(no_plan);
+        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");
+
+# following a mail in zinc@tls.cena.fr (23 sept 2003) by A. Lemort
+# we verify that the -width attribute of text items is converted as an integer
+my $text = $zinc->add('text', 1, -position => [10,10], -text => "text");
+
+&ok ($zinc->itemconfigure($text, -width => 10.1) or 1, "setting width to 10.1");
+&is ($zinc->itemcget($text, -width), 10, "width attribute was converted to an integer");
+&ok ($zinc->itemconfigure($text, -width => 9.9) or 1, "setting width to 10.9");
+&is ($zinc->itemcget($text, -width), 9, "width attribute was converted to lower integer");
+
+
+
+diag("############## text items test");
diff --git a/Perl/t/Transformations.t b/Perl/t/Transformations.t
new file mode 100644
index 0000000..8a86d8a
--- /dev/null
+++ b/Perl/t/Transformations.t
@@ -0,0 +1,96 @@
+#!/usr/bin/perl -w
+
+#
+# $Id: Transformations.t,v 1.1 2003-10-02 09:14:23 mertz Exp $
+# Author: Christophe Mertz
+#
+
+# testing all the import
+
+BEGIN {
+    if (!eval q{
+        use Test::More qw(no_plan);
+        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 $g = $zinc->add('group',1);
+$zinc->scale($g,2,2);
+my $rect1 = $zinc->add('rectangle', $g, [10,10,40,40]);
+
+# todo : add a test for the to-come method to get a transform!
+
+is_deeply([ $zinc->coords($rect1) ],
+	  [ [10,10], [40, 40] ],
+	  "coords are not modified by the group transform!");
+
+is_deeply([
+	   $zinc->transform(1, $g, [100, 100, 300, 500] )
+	    ],
+	  [ 50, 50, 150, 250 ],
+	  "transform from window coordinates to group"); 
+
+is_deeply([
+	   $zinc->transform($g, 1, [$zinc->coords($rect1)] )
+	    ],
+	  [ [20,20], [80, 80] ],
+	  "transform to window coordinates"); 
+
+
+# question suggested by D. Etienne (30 sept 2003):
+# is it possible to get the window coordinate of a transformed item?
+# the answer is of course yes and it is verified here.
+my $rect2 = $zinc->add('rectangle', 1, [10,10,40,40]);
+
+# applying a transform to the rectangle:
+$zinc->scale($rect2, 2,2);
+
+# todo : add a test for the to-come method to get a transform!
+
+is_deeply([ $zinc->coords($rect1) ],
+	  [ [10,10], [40, 40] ],
+	  "coords are not modified by the item transform!");
+
+is_deeply([
+	   $zinc->transform(1, $rect2, [100, 100, 300, 500] )
+	    ],
+	  [ 50, 50, 150, 250 ],
+	  "transform window coordinates with same transform than rect2 "); 
+is_deeply([
+	   $zinc->transform($rect2, 1, [$zinc->coords($rect2)] )
+	    ],
+	  [ [20,20], [80, 80] ],
+	  "transform rect2 coordinates to window coordinates"); 
+
+
+
+diag("############## transformations test");
-- 
cgit v1.1