API tests now mostly work

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2412 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 18 insertions, 0 deletions

diff --git a/LedgerSMB/DBTest.pm b/LedgerSMB/DBTest.pm
index 915bfc0b..b9eb6ae2 100644
--- a/LedgerSMB/DBTest.pm
+++ b/LedgerSMB/DBTest.pm
@@ -62,6 +62,14 @@ passes this call on to the private database handle
 
 passes this call on to the private database handle
 
+=item quote()
+
+passes this call on to the private database handle
+
+=item quote_identifier()
+
+passes this call on to the private database handle
+
 =item rollback()
 
 passes this call on to the private database handle.  Note that this will roll
@@ -108,6 +116,16 @@ sub errstr{
     return $self->{_dbh}->errstr;
 }
 
+sub quote{
+    my $self = shift @_;
+    return $self->{_dbh}->quote(@_);
+}
+
+sub quote_identifier{
+    my $self = shift @_;
+    return $self->{_dbh}->quote_identifier(@_);
+}
+
 sub prepare{
     my ($self, $statement) = @_;
     return $self->{_dbh}->prepare($statement);