[svn:dbi] r14313 - in dbi/trunk: . t

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,
     ],
 );