10 |
|
|
11 |
use Jifty::Test tests => 17; |
use Jifty::Test tests => 17; |
12 |
|
|
13 |
|
my $debug = 1; |
14 |
|
|
15 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
16 |
|
|
17 |
# Make sure we can load the action |
# Make sure we can load the action |
49 |
|
|
50 |
diag "found ", $results->count, " results"; |
diag "found ", $results->count, " results"; |
51 |
|
|
52 |
ok( my $result = $results->next, 'next' ); |
ok( my $ds = $results->next, 'next' ); |
53 |
isa_ok($result, 'CODE' ); |
isa_ok($ds, 'Webpacus::Action::DS' ); |
54 |
|
|
55 |
foreach my $f ( qw/database input id TitleProper/ ) { |
foreach my $f ( qw/database input id TitleProper/ ) { |
56 |
|
|
57 |
my $s = $result->( $f ); |
ok( my $d = $ds->display( $f ), 'display' ); |
58 |
ok( ! ref($s), 'SCALAR' ); |
diag "display: ",dump($d) if $debug; |
|
|
|
|
my @a = $result->( $f ); |
|
|
isa_ok( \@a, 'ARRAY' ); |
|
59 |
|
|
|
diag "$f = '$s' ",dump(@a); |
|
60 |
} |
} |
61 |
|
|