initial release

1 files changed, 57 insertions, 0 deletions

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");