use DBIC::SqlMakerTest;
use DBIC::DebugObj;
use DBICTest;
+
+# use Data::Dumper comparisons to avoid mesing with coderefs
use Data::Dumper;
+$Data::Dumper::Sortkeys = 1;
my $schema = DBICTest->init_schema();
for my $s (qw/a2a artw cd artw_back/) {
my $rs = $q{$s}{rs};
- lives_ok ( sub { $rs->first }, "first on $s does not throw an exception" );
+ lives_ok ( sub { $rs->first }, "first() on $s does not throw an exception" );
- lives_ok ( sub { $rs->count }, "count on $s does not throw an exception" );
+ lives_ok ( sub { $rs->count }, "count() on $s does not throw an exception" );
is_same_sql_bind ($rs->as_query, $q{$s}{query}, "$s resultset unmodified (as_query matches)" );
}
-