[svn:dbi] r14325 - dbi/trunk/t

[email protected] Sat, 14 Aug 2010 07:47:21 -0700 (PDT)
Newsgroups perl.dbi.changes
Message-ID <[email protected]>
Author: REHSACK
Date: Sat Aug 14 07:47:21 2010
New Revision: 14325

Modified:
   dbi/trunk/t/50dbm_simple.t

Log:
skip aggregation function usage when using DBI::SQL::Nano


Modified: dbi/trunk/t/50dbm_simple.t
==============================================================================
--- dbi/trunk/t/50dbm_simple.t	(original)
+++ dbi/trunk/t/50dbm_simple.t	Sat Aug 14 07:47:21 2010
@@ -100,7 +100,7 @@
 	    [ 1, 'oranges' ],
 	],
 	"DELETE FROM fruit", 4,
-	"SELECT COUNT(*) FROM fruit", [ [ 0 ] ],
+	$ENV{DBI_SQL_NANO} ? () : ( "SELECT COUNT(*) FROM fruit", [ [ 0 ] ] ),
 	"DROP TABLE fruit", -1,
     ],
     3 => [
@@ -125,7 +125,7 @@
 	    [ 1, 'oranges', 11 ],
 	],
 	"DELETE FROM multi_fruit", 4,
-	"SELECT COUNT(*) FROM multi_fruit", [ [ 0 ] ],
+	$ENV{DBI_SQL_NANO} ? () : ( "SELECT COUNT(*) FROM multi_fruit", [ [ 0 ] ] ),
 	"DROP TABLE multi_fruit", -1,
     ],
 );