Positionnement du plan de test (ie du nombre de tests)

dans chaque fichier

6 files changed, 21 insertions, 24 deletions

diff --git a/Perl/t/Coords.t b/Perl/t/Coords.t
index 22a97dd..9b4dd86 100644
--- a/Perl/t/Coords.t
+++ b/Perl/t/Coords.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: Coords.t,v 1.1 2004-03-06 15:28:20 mertz Exp $
+# $Id: Coords.t,v 1.2 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 => 12;
         1;
     }) {
         print "# tests only work properly with installed Test::More module\n";
diff --git a/Perl/t/Import.t b/Perl/t/Import.t
index 862904c..a051e29 100644
--- a/Perl/t/Import.t
+++ b/Perl/t/Import.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: Import.t,v 1.1 2003-09-23 12:15:15 mertz Exp $
+# $Id: Import.t,v 1.2 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 => 6;
         1;
     }) {
         print "# tests only work properly with installed Test::More module\n";
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");
diff --git a/Perl/t/Text.t b/Perl/t/Text.t
index 5494e85..bd43a4b 100644
--- a/Perl/t/Text.t
+++ b/Perl/t/Text.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: Text.t,v 1.1 2003-10-02 09:14:23 mertz Exp $
+# $Id: Text.t,v 1.2 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 => 5;
         1;
     }) {
         print "# tests only work properly with installed Test::More module\n";
diff --git a/Perl/t/find.t b/Perl/t/find.t
index ad82493..396a5a8 100644
--- a/Perl/t/find.t
+++ b/Perl/t/find.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: find.t,v 1.1 2003-10-16 12:10:03 mertz Exp $
+# $Id: find.t,v 1.2 2004-04-02 12:01:49 mertz Exp $
 # Author: Christophe Mertz
 #
 
@@ -13,8 +13,8 @@
 
 BEGIN {
     if (!eval q{
-        use Test::More qw(no_plan);
-#        use Test::More tests => 31;
+#        use Test::More qw(no_plan);
+        use Test::More tests => 16;
         1;
     }) {
         print "# tests only work properly with installed Test::More module\n";
diff --git a/Perl/t/text.t b/Perl/t/text.t
index 642c0df..cc8690b 100644
--- a/Perl/t/text.t
+++ b/Perl/t/text.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: text.t,v 1.4 2003-12-11 16:44:31 mertz Exp $
+# $Id: text.t,v 1.5 2004-04-02 12:01:49 mertz Exp $
 # Author: Christophe Mertz
 #
 
@@ -14,8 +14,8 @@
 my $mw;
 BEGIN {
     if (!eval q{
-        use Test::More qw(no_plan);
-#        use Test::More tests => 31;
+#        use Test::More qw(no_plan);
+        use Test::More tests => 55;
         1;
     }) {
         print "# tests only work properly with installed Test::More module\n";