diff options
author | mertz | 2004-04-02 12:01:49 +0000 |
---|---|---|
committer | mertz | 2004-04-02 12:01:49 +0000 |
commit | f42599649539b834698c54e664725ae5c52ab4ef (patch) | |
tree | 268f89889024dfbf37cd89a17940431c30cd1543 /Perl/t | |
parent | 088b6c17d7381c8b0b2cd145adb9968f7bcabe3d (diff) | |
download | tkzinc-f42599649539b834698c54e664725ae5c52ab4ef.zip tkzinc-f42599649539b834698c54e664725ae5c52ab4ef.tar.gz tkzinc-f42599649539b834698c54e664725ae5c52ab4ef.tar.bz2 tkzinc-f42599649539b834698c54e664725ae5c52ab4ef.tar.xz |
Positionnement du plan de test (ie du nombre de tests)
dans chaque fichier
Diffstat (limited to 'Perl/t')
-rw-r--r-- | Perl/t/Coords.t | 5 | ||||
-rw-r--r-- | Perl/t/Import.t | 5 | ||||
-rw-r--r-- | Perl/t/PreviousKnownBugs.t | 18 | ||||
-rw-r--r-- | Perl/t/Text.t | 5 | ||||
-rw-r--r-- | Perl/t/find.t | 6 | ||||
-rw-r--r-- | Perl/t/text.t | 6 |
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"; |