--- trunk/t/03-frey-classbrowser.t	2008/07/14 21:22:43	121
+++ trunk/t/03-frey-classbrowser.t	2008/12/10 17:51:29	793
@@ -4,21 +4,24 @@
 
 my $debug = @ARGV ? 1 : 0;
 
-use Test::More tests => 5;
+use Test::More tests => 8;
 use lib 'lib';
 
 #use Devel::LeakTrace::Fast;
 use Data::Dump qw/dump/;
 
 BEGIN {
-	use_ok('Frey::ClassBrowser');
+	use_ok('Frey::Class::Browser');
 }
 
-ok( my $o = Frey::ClassBrowser->new( fey_class => 'Strix::User', 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;
 
-ok( my $h = $o->markup, 'markup' );
-diag $h if $debug;
+$o->load_class( 'Frey::DelIcioUs' ); # XXX load class which have as_sponge
 
-like( $h, qr/Frey::ClassBrowser/, 'found me' );
+ok( my $h = $o->as_markup, 'markup' );
+diag "markup: $h" if $debug;
+
+like( $h, qr/Frey::Class::Browser/, 'found me' );
+like( $h, qr/$_/,   $_ ) foreach ( 'as_data', 'as_markup', 'as_sponge' );