--- trunk/t/02-frey-introspect.t 2008/07/02 22:30:19 50 +++ trunk/t/02-frey-introspect.t 2008/07/03 19:51:18 51 @@ -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,16 @@ 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( $o->path, 'path' ); + + my $cmd = 'js ' . $o->path; + my $syntax = `$cmd 2>&1`; + diag $syntax; + + ok( ! $syntax, 'syntax' ); }