--- trunk/t/03-frey-classbrowser.t	2008/11/19 17:05:59	458
+++ trunk/t/03-frey-classbrowser.t	2008/11/19 17:30:50	459
@@ -4,7 +4,7 @@
 
 my $debug = @ARGV ? 1 : 0;
 
-use Test::More tests => 5;
+use Test::More tests => 8;
 use lib 'lib';
 
 #use Devel::LeakTrace::Fast;
@@ -14,11 +14,14 @@
 	use_ok('Frey::ClassBrowser');
 }
 
-ok( my $o = Frey::ClassBrowser->new( fey_class => 'Strix::User', debug => $debug ), 'new' );
+ok( my $o = Frey::ClassBrowser->new( debug => $debug ), 'new' );
 isa_ok( $o, 'Frey::ClassBrowser' );
 diag dump( $o ) if $debug;
 
+$o->load_class( 'Frey::DelIcioUs' ); # XXX load class which have as_sponge
+
 ok( my $h = $o->as_markup, 'markup' );
-diag $h if $debug;
+diag "markup: $h" if $debug;
 
 like( $h, qr/Frey::ClassBrowser/, 'found me' );
+like( $h, qr/$_/,   $_ ) foreach ( 'as_data', 'as_markup', 'as_sponge' );