Parent Directory
| 
Revision Log
| 
Patch
| revision 99 by dpavlin, Sun Jun 29 16:29:09 2008 UTC | revision 100 by dpavlin, Fri Jul 11 19:19:42 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 => 8; | use Test::More tests => 6; |
| 8 | use lib 'lib'; | use lib 'lib'; |
| 9 | ||
| 10 | #use Devel::LeakTrace::Fast; | #use Devel::LeakTrace::Fast; |
| # | Line 24 is( $o->meta->name, 'Frey', 'meta->name' | Line 24 is( $o->meta->name, 'Frey', 'meta->name' |
| 24 | ||
| 25 | ok( defined $o->debug, 'debug' ); | ok( defined $o->debug, 'debug' ); |
| 26 | ||
| ok( my $classes = $o->classes, 'classes' ); | ||
| diag dump( $classes ) if $debug; | ||
| ok( $o->classes, 'classes again' ); |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |