Browse files

bits of SQLite fiddling

  • Loading branch information...
1 parent 0a510bd commit a77cce72ed26188d27bff3cda9214d806bf94b41 @moritz moritz committed Apr 23, 2012
Showing with 2 additions and 2 deletions.
  1. +1 −1 lib/MiniDBD/SQLite.pm6
  2. +1 −1 t/99-common.pl6
View
2 lib/MiniDBD/SQLite.pm6
@@ -156,7 +156,7 @@ class MiniDBD::SQLite::Connection does MiniDBD::Connection {
my $sth = self.prepare($statement);
$sth.execute(@bind);
# TODO: return actual number of rows
- return 0e0;
+ return 1;
}
method selectrow_arrayref(Str $statement, $attr?, *@bind is copy) {
View
2 t/99-common.pl6
@@ -131,7 +131,7 @@ ok $sth = $dbh.prepare("INSERT INTO nom (name, description, quantity, price)
'insert new value for fetchrow_arrayref test'; #test 25
ok $sth.execute(), 'new insert statement executed'; #test 26
-is $sth.rows, 1, "insert reports 1 row affected"; # test 27
+is $sth.?rows, 1, "insert reports 1 row affected"; # test 27
ok $sth = $dbh.prepare("SELECT * FROM nom WHERE quantity='5';"),
'prepare new select for fetchrow_arrayref test'; #test 28

0 comments on commit a77cce7

Please sign in to comment.