/[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 121 by dpavlin, Mon Jul 14 21:22:43 2008 UTC revision 793 by dpavlin, Wed Dec 10 17:51:29 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;
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( fey_class => 'Strix::User', 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  ok( my $h = $o->markup, 'markup' );  $o->load_class( 'Frey::DelIcioUs' ); # XXX load class which have as_sponge
 diag $h if $debug;  
22    
23  like( $h, qr/Frey::ClassBrowser/, 'found me' );  ok( my $h = $o->as_markup, 'markup' );
24    diag "markup: $h" if $debug;
25    
26    like( $h, qr/Frey::Class::Browser/, 'found me' );
27    like( $h, qr/$_/,   $_ ) foreach ( 'as_data', 'as_markup', 'as_sponge' );
Legend:
Removed from v.121  
changed lines
  Added in v.793
  ViewVC Help
Powered by ViewVC 1.1.26