--- trunk/t/03-frey-classbrowser.t 2008/11/19 17:30:50 459 +++ trunk/t/03-frey-classbrowser.t 2008/12/10 17:51:29 793 @@ -11,11 +11,11 @@ use Data::Dump qw/dump/; BEGIN { - use_ok('Frey::ClassBrowser'); + use_ok('Frey::Class::Browser'); } -ok( my $o = Frey::ClassBrowser->new( debug => $debug ), 'new' ); -isa_ok( $o, 'Frey::ClassBrowser' ); +ok( my $o = Frey::Class::Browser->new( debug => $debug ), 'new' ); +isa_ok( $o, 'Frey::Class::Browser' ); diag dump( $o ) if $debug; $o->load_class( 'Frey::DelIcioUs' ); # XXX load class which have as_sponge @@ -23,5 +23,5 @@ ok( my $h = $o->as_markup, 'markup' ); diag "markup: $h" if $debug; -like( $h, qr/Frey::ClassBrowser/, 'found me' ); +like( $h, qr/Frey::Class::Browser/, 'found me' ); like( $h, qr/$_/, $_ ) foreach ( 'as_data', 'as_markup', 'as_sponge' );