Skip to content

Commit e42bb95

Browse files
committed
Use done_testing() rather than planned numbers of tests
1 parent dcd28e6 commit e42bb95

File tree

6 files changed

+16
-5
lines changed

6 files changed

+16
-5
lines changed

Makefile.PL

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -24,4 +24,6 @@ requires 'Moose' => '0';
2424
requires 'MooseX::StrictConstructor' => '0';
2525
requires 'MooseX::Types::Path::Class' => '0';
2626

27+
test_requires 'Test::More' => '0.88';
28+
2729
WriteAll;

t/00_setup.t

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!perl
22
use strict;
33
use warnings;
4-
use Test::More tests => 1;
4+
use Test::More;
55
use Archive::Extract;
66

77
foreach my $name qw(test-project test-project-packs test-project-packs2) {
@@ -11,6 +11,8 @@ foreach my $name qw(test-project test-project-packs test-project-packs2) {
1111
}
1212
ok(1, 'extracted');
1313

14+
done_testing;
15+
1416
=for shell
1517
1618
# How to create test-project and test-project-packs:

t/init.t

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!perl
22
use strict;
33
use warnings;
4-
use Test::More tests => 97;
4+
use Test::More;
55
use Git::PurePerl;
66
use Path::Class;
77

@@ -168,3 +168,5 @@ for my $directory (qw(test-init test-init-bare.git)) {
168168
is( $git->all_sha1s->all, 7, 'contains seven sha1s' );
169169
is( $git->all_objects->all, 7, 'contains seven objects' );
170170
}
171+
172+
done_testing;

t/protocol.t

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,6 @@ exit 0;
1111
if ( $^O eq 'MSWin32' ) {
1212
plan skip_all => 'Windows does NOT have git-daemon yet';
1313
}
14-
plan tests => 14;
1514
}
1615
use Git::PurePerl;
1716
use IO::File;
@@ -45,3 +44,5 @@ is( $commit->author->email, '[email protected]' );
4544
is( $commit->committer->name, 'Your Name Comes Here' );
4645
is( $commit->committer->email, '[email protected]' );
4746
is( $commit->comment, 'add again' );
47+
48+
done_testing;

t/protocol_gpp.t

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@ use warnings;
44
use Git::PurePerl;
55
use IO::File;
66
use Path::Class;
7-
use Test::More tests => 3;
7+
use Test::More;
88

99
my $directory = 'test-protocol';
1010
dir($directory)->rmtree;
@@ -16,3 +16,5 @@ $git->clone( 'github.com', '/acme/git-pureperl.git' );
1616

1717
ok( $git->all_sha1s->all >= 604 );
1818
ok( $git->all_objects->all >= 604 );
19+
20+
done_testing;

t/simple.t

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!perl
22
use strict;
33
use warnings;
4-
use Test::More tests => 201;
4+
use Test::More;
55
use Git::PurePerl;
66
use Path::Class;
77

@@ -124,3 +124,5 @@ hello world, again
124124
'have ref master'
125125
);
126126
}
127+
128+
done_testing;

0 commit comments

Comments
 (0)