Parent Directory | Revision Log | Patch
revision 381 by dpavlin, Fri Nov 7 20:46:10 2008 UTC | revision 382 by dpavlin, Mon Nov 17 19:21:06 2008 UTC | |
---|---|---|
# | Line 4 use warnings; | Line 4 use warnings; |
4 | ||
5 | my $debug = @ARGV ? 1 : 0; | my $debug = @ARGV ? 1 : 0; |
6 | ||
7 | use Test::More tests => 17; | use Test::More tests => 21; |
8 | use lib 'lib'; | use lib 'lib'; |
9 | ||
10 | #use Devel::LeakTrace::Fast; | #use Devel::LeakTrace::Fast; |
# | Line 39 ok( $available->{$_}, "have $_" ) foreac | Line 39 ok( $available->{$_}, "have $_" ) foreac |
39 | my $test = { | my $test = { |
40 | 'Frey' => 0, | 'Frey' => 0, |
41 | 'Frey::Web' => 1, | 'Frey::Web' => 1, |
42 | 'Moose' => 0, | |
43 | 'Fey' => 0, | |
44 | }; | }; |
45 | ||
46 | foreach my $p ( keys %$test ) { | foreach my $p ( keys %$test ) { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |