From 1c3f614dab16e84815bb50fbc38a02f0fc1e1302 Mon Sep 17 00:00:00 2001 From: tetragon Date: Tue, 2 Oct 2007 03:45:13 +0000 Subject: Removing test cases that stopped working due to a security fix git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1687 4979c152-3d1c-0410-bac9-87ea11338e46 --- t/11-ledgersmb.t | 11 ----------- 1 file changed, 11 deletions(-) (limited to 't') diff --git a/t/11-ledgersmb.t b/t/11-ledgersmb.t index 90dd782f..36d7e4de 100644 --- a/t/11-ledgersmb.t +++ b/t/11-ledgersmb.t @@ -224,17 +224,6 @@ is($r[0]->{'trunc'}, Math::BigFloat->new('57'), like($r[0]->{'pi'}, qr/^3.14/, 'call_procedure: empty arg list, non-numeric return'); -# These tests are ugly and shouldn't work -@r = $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'); -@r = $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'; -- cgit v1.2.3