SF.net SVN: ledger-smb: [1687] trunk/t/11-ledgersmb.t

[..hidden..]

Revision: 1687
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1687&view=rev
Author:   tetragon
Date:     2007-10-01 20:45:13 -0700 (Mon, 01 Oct 2007)

Log Message:
-----------
Removing test cases that stopped working due to a security fix

Modified Paths:
--------------
    trunk/t/11-ledgersmb.t

Modified: trunk/t/11-ledgersmb.t
===================================================================
--- trunk/t/11-ledgersmb.t	2007-10-02 03:31:47 UTC (rev 1686)
+++ trunk/t/11-ledgersmb.t	2007-10-02 03:45:13 UTC (rev 1687)
@@ -224,17 +224,6 @@
 like($r[0]->{'pi'}, qr/^3.14/, 
 	'call_procedure: empty arg list, non-numeric return');
 
-# These tests are ugly and shouldn't work
..hidden.. = $lsmb->call_procedure(
-	'procname' => 'power(2, 2) UNION ALL SELECT * FROM pi', 
-	'args' => [], 'order_by' => 'power DESC');
-is($#r, 1, 'call_procedure: correct return length (two rows)');
-is($r[0]->{'power'}, 4, 'call_procedure: DESC ordering');
..hidden.. = $lsmb->call_procedure(
-	'procname' => 'power(2, 2) UNION ALL SELECT * FROM pi', 
-	'args' => [], 'order_by' => 'power ASC');
-is($r[1]->{'power'}, 4, 'call_procedure: ASC ordering');
-
 ##
 ##TODO: {
 ##	local $TODO = 'Breaks when no arglist given';


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.