/[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 792 by dpavlin, Wed Nov 19 17:30:50 2008 UTC revision 793 by dpavlin, Wed Dec 10 17:51:29 2008 UTC
# Line 11  use lib 'lib'; Line 11  use lib 'lib';
11  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
12    
13  BEGIN {  BEGIN {
14          use_ok('Frey::ClassBrowser');          use_ok('Frey::Class::Browser');
15  }  }
16    
17  ok( my $o = Frey::ClassBrowser->new( debug => $debug ), 'new' );  ok( my $o = Frey::Class::Browser->new( debug => $debug ), 'new' );
18  isa_ok( $o, 'Frey::ClassBrowser' );  isa_ok( $o, 'Frey::Class::Browser' );
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  $o->load_class( 'Frey::DelIcioUs' ); # XXX load class which have as_sponge
# Line 23  $o->load_class( 'Frey::DelIcioUs' ); # X Line 23  $o->load_class( 'Frey::DelIcioUs' ); # X
23  ok( my $h = $o->as_markup, 'markup' );  ok( my $h = $o->as_markup, 'markup' );
24  diag "markup: $h" if $debug;  diag "markup: $h" if $debug;
25    
26  like( $h, qr/Frey::ClassBrowser/, 'found me' );  like( $h, qr/Frey::Class::Browser/, 'found me' );
27  like( $h, qr/$_/,   $_ ) foreach ( 'as_data', 'as_markup', 'as_sponge' );  like( $h, qr/$_/,   $_ ) foreach ( 'as_data', 'as_markup', 'as_sponge' );
Legend:
Removed from v.792  
changed lines
  Added in v.793
  ViewVC Help
Powered by ViewVC 1.1.26