Make sure exhausted statements have falsy results

t/99-common.pl6

@@ -5,7 +5,7 @@
 #use Test;     # "use" dies in a runtime EVAL
 #use DBIish;
 diag "Testing MiniDBD::$*mdriver";
-plan 43;
+plan 44;
 
 sub magic_cmp(@a, @b) {
     my $res =  @a[0] eq @b[0]
@@ -236,6 +236,17 @@ $sth.finish;
     ok !?$row, 'a query with no results should have a falsy value';
 }
 
+# test that a query that's exhausted its result set has a falsy value
+{
+    $sth = $dbh.prepare('SELECT COUNT(*) FROM nom');
+    $sth.execute;
+
+    my $row = $sth.fetchrow-hash;
+       $row = $sth.fetchrow-hash;
+
+    ok !?$row, 'a query with no more results should have a falsy value';
+}
+
 
 # Drop the table when finished, and disconnect
 ok $dbh.do("DROP TABLE nom"), "final cleanup";