use lib qw(t/lib);
use DBICTest;
-plan tests => 146;
-
## ----------------------------------------------------------------------------
## Get a Schema and some ResultSets we can play with.
is $jumped->name, 'A singer that jumped the shark two albums ago', 'Correct Name';
is $cool->name, 'An actually cool singer.', 'Correct Name';
- #cmp_ok $cool->rank, '==', 42, 'Correct Rank';
-
- my ($cooler, $lamer) = $art_rs->populate([
+ my ($cooler, $lamer) = $restricted_art_rs->populate([
[qw/artistid name/],
[1003, 'Cooler'],
[1004, 'Lamer'],
is $cooler->name, 'Cooler', 'Correct Name';
is $lamer->name, 'Lamer', 'Correct Name';
- #cmp_ok $cooler->rank, '==', 42, 'Correct Rank';
+ cmp_ok $cooler->rank, '==', 42, 'Correct Rank';
ARRAY_CONTEXT_WITH_COND_FROM_RS: {
cmp_ok( $mega_lamer->rank, '==', 42, "Got Correct rank for result object");
}
}
+
+done_testing;