--- trunk/t/02-frey-introspect.t 2008/07/02 22:30:19 50 +++ trunk/t/02-frey-introspect.t 2008/07/05 15:19:55 53 @@ -4,7 +4,7 @@ my $debug = @ARGV ? 1 : 0; -use Test::More tests => 15; +use Test::More tests => 21; use lib 'lib'; #use Devel::LeakTrace::Fast; @@ -27,8 +27,13 @@ is( $o->meta->name, 'Frey::Introspect', 'meta->name' ); ok( defined $o->debug, 'debug' ); + ok( ! $o->path, 'no path' ); - ok( my $examine = $o->examine, 'examine' ); - diag dump( $examine ) if $debug; + ok( my $js = $o->joose, 'joose' ); + diag dump( $js ) if $debug; + ok( $o->path, 'path' ); + + ok( my @methods = $o->methods, 'methods' ); + diag dump( @methods ) if $debug; }