--- trunk/t/03-frey-pod.t 2008/07/14 23:12:48 126 +++ trunk/t/03-frey-pod.t 2008/11/19 15:28:23 455 @@ -4,7 +4,7 @@ my $debug = @ARGV ? 1 : 0; -use Test::More tests => 5; +use Test::More tests => 7; use lib 'lib'; use Data::Dump qw/dump/; @@ -13,11 +13,16 @@ use_ok('Frey::Pod'); } -ok( my $o = Frey::Pod->new( class => 'Strix::User', debug => $debug ), 'new' ); +ok( my $o = Frey::Pod->new( class => 'Frey::Pod', debug => $debug ), 'new' ); isa_ok( $o, 'Frey::Pod' ); diag dump( $o ) if $debug; -ok( my $h = $o->markup('Frey::Pod'), 'markup' ); +ok( my $h = $o->as_markup('Frey::Pod'), 'markup' ); diag $h if $debug; like( $h, qr/Frey::Pod/, 'found me' ); + +ok( my @h = $o->as_markup('Frey::Pod'), 'markup' ); +diag dump( @h ) if $debug; +isa_ok( \@h, 'ARRAY' ); +