/[Frey]/trunk/t/03-frey-classbrowser.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/03-frey-classbrowser.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 458 by dpavlin, Wed Nov 19 15:28:23 2008 UTC revision 459 by dpavlin, Wed Nov 19 17:30:50 2008 UTC
# Line 4  use warnings; Line 4  use warnings;
4    
5  my $debug = @ARGV ? 1 : 0;  my $debug = @ARGV ? 1 : 0;
6    
7  use Test::More tests => 5;  use Test::More tests => 8;
8  use lib 'lib';  use lib 'lib';
9    
10  #use Devel::LeakTrace::Fast;  #use Devel::LeakTrace::Fast;
# Line 14  BEGIN { Line 14  BEGIN {
14          use_ok('Frey::ClassBrowser');          use_ok('Frey::ClassBrowser');
15  }  }
16    
17  ok( my $o = Frey::ClassBrowser->new( fey_class => 'Strix::User', debug => $debug ), 'new' );  ok( my $o = Frey::ClassBrowser->new( debug => $debug ), 'new' );
18  isa_ok( $o, 'Frey::ClassBrowser' );  isa_ok( $o, 'Frey::ClassBrowser' );
19  diag dump( $o ) if $debug;  diag dump( $o ) if $debug;
20    
21    $o->load_class( 'Frey::DelIcioUs' ); # XXX load class which have as_sponge
22    
23  ok( my $h = $o->as_markup, 'markup' );  ok( my $h = $o->as_markup, 'markup' );
24  diag $h if $debug;  diag "markup: $h" if $debug;
25    
26  like( $h, qr/Frey::ClassBrowser/, 'found me' );  like( $h, qr/Frey::ClassBrowser/, 'found me' );
27    like( $h, qr/$_/,   $_ ) foreach ( 'as_data', 'as_markup', 'as_sponge' );
Legend:
Removed from v.458  
changed lines
  Added in v.459
  ViewVC Help
Powered by ViewVC 1.1.26