Test::DatabaseRow tests more than one row - failure
use strict;
use warnings;
use Test::More tests => 1;
use Test::DatabaseRow;
use DBI;
system "$^X examples/dbi/create_sample.pl";
END { unlink 'sample.db' }
my $dbh = DBI->connect("dbi:SQLite:dbname=sample.db");
local $Test::DatabaseRow::dbh = $dbh;
row_ok(
sql => ['SELECT * FROM accounts'],
tests => { '>' => { 'amount' => 0 }},
label => 'accounts',
results => 3,
check_all_rows => 1,
);
$dbh->disconnect;
Results:
1..1
not ok 1 - accounts
# Failed test 'accounts'
# at examples/db/dbrow_more_fail.t line 16.
# While checking column 'amount' on 3rd row
# '0'
# >
# '0'
# Looks like you failed 1 test of 1.