Test::DatabaseRow tests more than one row - failure



examples/db/dbrow_more_fail.t
#!/usr/bin/perl
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.