Author: hmbrand
Date: Fri Aug 6 06:14:50 2010
New Revision: 14313
Modified:
dbi/trunk/Changes
dbi/trunk/t/50dbm_simple.t
Log:
Added tests for delete in DBM (H.Merijn Brand)
Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes (original)
+++ dbi/trunk/Changes Fri Aug 6 06:14:50 2010
@@ -21,6 +21,7 @@
Added $h->{AutoInactiveDestroy} as simpler safer form of
$h->{InactiveDestroy} (David E. Wheeler)
Added ability for parallel testing "prove -j4 ..." (Jens Rehsack)
+ Added tests for delete in DBM (H.Merijn Brand)
=head2 Changes in DBI 1.613 (svn r14271) 22nd July 2010
Modified: dbi/trunk/t/50dbm_simple.t
==============================================================================
--- dbi/trunk/t/50dbm_simple.t (original)
+++ dbi/trunk/t/50dbm_simple.t Fri Aug 6 06:14:50 2010
@@ -93,12 +93,14 @@
"DELETE FROM fruit WHERE dVal='to delete'", 2,
"UPDATE fruit SET dVal='apples' WHERE dKey=2", 1,
"DELETE FROM fruit WHERE dKey=7", 1,
- 'SELECT * FROM fruit ORDER BY dKey DESC', [
+ "SELECT * FROM fruit ORDER BY dKey DESC", [
[ 5, 'via placeholders' ],
[ 3, '' ],
[ 2, 'apples' ],
[ 1, 'oranges' ],
],
+ "DELETE FROM fruit", 4,
+ "SELECT COUNT(*) FROM fruit", [ [ 0 ] ],
"DROP TABLE fruit", -1,
],
3 => [
@@ -116,12 +118,14 @@
"DELETE FROM multi_fruit WHERE dVal='to_delete'", 2,
"DELETE FROM multi_fruit WHERE qux=17", 1,
"DELETE FROM multi_fruit WHERE dKey=8", 1,
- 'SELECT * FROM multi_fruit ORDER BY dKey DESC', [
+ "SELECT * FROM multi_fruit ORDER BY dKey DESC", [
[ 5, 'via placeholders', 15 ],
[ 3, undef, 13 ],
[ 2, 'apples', 12 ],
[ 1, 'oranges', 11 ],
],
+ "DELETE FROM multi_fruit", 4,
+ "SELECT COUNT(*) FROM multi_fruit", [ [ 0 ] ],
"DROP TABLE multi_fruit", -1,
],
);
