From f42599649539b834698c54e664725ae5c52ab4ef Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 2 Apr 2004 12:01:49 +0000
Subject: Positionnement du plan de test (ie du nombre de tests) dans chaque
 fichier

---
 Perl/t/PreviousKnownBugs.t | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

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

diff --git a/Perl/t/PreviousKnownBugs.t b/Perl/t/PreviousKnownBugs.t
index 56fbecc..934cdf7 100644
--- a/Perl/t/PreviousKnownBugs.t
+++ b/Perl/t/PreviousKnownBugs.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: PreviousKnownBugs.t,v 1.2 2003-10-02 09:15:35 mertz Exp $
+# $Id: PreviousKnownBugs.t,v 1.3 2004-04-02 12:01:49 mertz Exp $
 # Author: Christophe Mertz
 #
 
@@ -9,7 +9,8 @@
 
 BEGIN {
     if (!eval q{
-        use Test::More qw(no_plan);
+#        use Test::More qw(no_plan);
+        use Test::More tests => 2;
         1;
     }) {
         print "# tests only work properly with installed Test::More module\n";
@@ -51,17 +52,10 @@ $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], [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");
-- 
cgit v1.1