Verify that a query with no results has a falsy value

t/99-common.pl6

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