summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-10-02 03:45:13 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-10-02 03:45:13 +0000
commit1c3f614dab16e84815bb50fbc38a02f0fc1e1302 (patch)
tree2b4fab96983f3adc260fa8510930fcac30b1dc29
parentb9cf9e07eb29982f7aebb74df6ef42ef275c6bd1 (diff)
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
-rw-r--r--t/11-ledgersmb.t11
1 files changed, 0 insertions, 11 deletions
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';