Changeset 567

Timestamp:

04/24/09 22:03:37 (7 months ago)

Author:

ykerherve

Message:

Looks like SQLite got smarter
Thanks Emmanuel Seyman for reporting this failure
RT#45186

Files:

• trunk/t/02-basic.t (modified) (1 diff)

trunk/t/02-basic.t

@@ -243 +243 @@
     }
     # note sqlite is stupid and doesn't return the number of affected rows
-    is (Wine->remove({}, { nofetch => 1 }), '0E0', 'removing all bad wine');
+    # quick hack because I can't rely on version.pm to be installed everywhere
+    my ($sqlite_version) = $DBD::SQLite::VERSION =~ /(\d+(?:\.\d+))/;
+    my $count = $sqlite_version > 1.22 ? scalar @bad_wines : 0E0;
+    is (Wine->remove({}, { nofetch => 1 }), $count, 'removing all bad wine');
 }