Skip to content

Commit

Permalink
done_testing is nice, but not nice enough to bump Test::More's version
Browse files Browse the repository at this point in the history
  • Loading branch information
doy committed Aug 16, 2009
1 parent 4ca7fdd commit 65ebcaa
Show file tree
Hide file tree
Showing 5 changed files with 7 additions and 11 deletions.
3 changes: 1 addition & 2 deletions t/001-basic.t
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::More tests => 1;

my $called = 0;

Expand All @@ -18,4 +18,3 @@ my $t = MyTest->new;
$t->foo;
$t->bar;
is($called, 2, 'alias calls the original method');
done_testing;
3 changes: 1 addition & 2 deletions t/002-attributes.t
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::More tests => 1;

my $called;

Expand Down Expand Up @@ -30,4 +30,3 @@ $t->baz(1);
$t->quux(1);
$t->quuux(1);
is($called, 5, 'all aliased methods were called');
done_testing;
6 changes: 3 additions & 3 deletions t/003-roles.t
Original file line number Diff line number Diff line change
@@ -1,8 +1,9 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
plan skip_all => q[Doesn't Work 'cause attributes aren't really part of roles.];
#use Test::More tests => 1;
use Test::More
skip_all => q[doesn't work because attributes aren't really part of roles];

my $called;

Expand Down Expand Up @@ -42,4 +43,3 @@ $t->quuux(1);
$t->run;
$t->walk;
is($called, 7, 'all aliased methods were called');
done_testing;
3 changes: 1 addition & 2 deletions t/004-traits.t
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::More tests => 1;

my $called;

Expand Down Expand Up @@ -37,4 +37,3 @@ $t->quuux(1);
$t->run;
$t->walk;
is($called, 7, 'all aliased methods were called');
done_testing;
3 changes: 1 addition & 2 deletions t/005-mop.t
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::More tests => 4;

{
package MyTest;
Expand All @@ -25,4 +25,3 @@ my $attr_method = MyTest->meta->get_method('quux');
ok($attr_method->meta->does_role('MooseX::Aliases::Meta::Trait::Method'),
'does the method trait');
is($attr_method->aliased_from, 'baz', 'quux is aliased from baz');
done_testing;

0 comments on commit 65ebcaa

Please sign in to comment.