#!/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");