diff options
Diffstat (limited to 'LedgerSMB/DBTest.pm')
-rw-r--r-- | LedgerSMB/DBTest.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/LedgerSMB/DBTest.pm b/LedgerSMB/DBTest.pm index b9eb6ae2..594dfa82 100644 --- a/LedgerSMB/DBTest.pm +++ b/LedgerSMB/DBTest.pm @@ -95,6 +95,19 @@ sub connect{ return $self; } +sub commit { + my ($self) = shift; + my $sth = $self->{_dbh}->prepare('SELECT 1'); + $sth->execute; + my ($retval) = $sth->fetchrow_array; + return $retval; +} + +sub selectrow_array { + my ($self) = shift; + return $self->{_dbh}->selectrow_array(@_); +} + sub disconnect { my ($self) = @_; $self->rollback; |