Permalink
Browse files

update introspection for tests

  • Loading branch information...
1 parent a138cc5 commit caf7ba9e651f9585f44a084a8e52261c1e1e90ba @moritz moritz committed Apr 29, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 t/99-common.pl6
View
@@ -104,7 +104,7 @@ ok $sth = $dbh.prepare("SELECT * FROM nom WHERE name='TAFM';"),
'prepare new select for fetchrow_hashref test'; #test 19
ok $sth.execute(), 'execute prepared statement for fetchrow_hashref'; #test 20
-if 'fetchrow_hashref' eq any ($sth.^methods) {
+if $sth.can('column_names') {
ok my $hashref = $sth.fetchrow_hashref(), 'called fetchrow_hashref'; #test 21
is $hashref, { 'name' => 'TAFM', 'description' => 'Mild fish taco', 'quantity'
=> 1, 'price' => '4.85' }, 'selected data matches test hashref'; #test 22

0 comments on commit caf7ba9

Please sign in to comment.