aboutsummaryrefslogtreecommitdiff
path: root/Perl/t/PreviousKnownBugs.t
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/t/PreviousKnownBugs.t')
-rw-r--r--Perl/t/PreviousKnownBugs.t61
1 files changed, 61 insertions, 0 deletions
diff --git a/Perl/t/PreviousKnownBugs.t b/Perl/t/PreviousKnownBugs.t
new file mode 100644
index 0000000..1e8cdd7
--- /dev/null
+++ b/Perl/t/PreviousKnownBugs.t
@@ -0,0 +1,61 @@
+#!/usr/bin/perl -w
+
+#
+# $Id: PreviousKnownBugs.t,v 1.1 2003-09-23 12:15:15 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;
+# print "2222\n";
+# MainWindow->new();
+# print "3333\n";
+ 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 Tk::Zinc;
+
+$mw = MainWindow->new();
+$zinc = $mw->Zinc(-width => 100, -height => 100);
+
+like ($zinc, qr/^Tk::Zinc=HASH/ , "zinc has been created");
+
+# following bug detected by A. Lemort
+my $curve = $zinc->add('curve', 1, [[0, 0], [0, 100, 'c'], [100,100, 'c'], [100, 0]]) ;
+$zinc->coords($curve, [[500,0], [500, 100], [600, 100], [600, 0]]);
+
+my @coords = $zinc->coords($curve,0);
+
+
+TODO:
+ {
+ local $TODO = "after coords, zinc leave some 'c' in the coords in v3.294";
+
+ is_deeply([ @coords ],
+ [ [500,0], [500, 100], [600, 100], [600, 0] ],
+ "lemort bug 17 sept 2003 v3.2.94; testing correct value");
+}
+
+is_deeply([ @coords ],
+ [ [500,0], [500, 100, 'c'], [600, 100, 'c'], [600, 0] ],
+ "lemort bug 17 sept 2003 v3.2.94; testing false return");
+
+diag("############## all known bugs");