From 79cb0d14e92c84125ae68e0c1a5cc7d841989ff0 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Tue, 26 Jun 2007 05:25:00 +0000 Subject: Setting things up so that the LedgerSMB.pm tests run git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1325 4979c152-3d1c-0410-bac9-87ea11338e46 --- t/11-ledgersmb.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 't') diff --git a/t/11-ledgersmb.t b/t/11-ledgersmb.t index cdb42507..90dd782f 100644 --- a/t/11-ledgersmb.t +++ b/t/11-ledgersmb.t @@ -127,11 +127,11 @@ is($lsmb->num_text_rows('string' => "012345 67890123456789", 'cols' => 10), my $lsmb = LedgerSMB->new(); @r = trap{$lsmb->debug()}; like($trap->stdout, qr|\n\$VAR1 = bless\( {[\n\s]+'action' => '',[\n\s]+'dbversion' => '\d+\.\d+\.\d+',[\n\s]+'path' => 'bin/mozilla',[\n\s]+'version' => '$lsmb->{version}'[\n\s]+}, 'LedgerSMB' \);|, - 'debug: $lsmb, no file'); + 'debug: $lsmb->debug'); SKIP: { skip 'Environment for file test not clean' if -f "t/var/lsmb-11.$$"; $lsmb->{file} = "t/var/lsmb-11.$$"; - $lsmb->debug('file' => $lsmb->{file}, $lsmb); + $lsmb->debug({'file' => $lsmb->{file}}); ok(-f "t/var/lsmb-11.$$", "debug: output file t/var/lsmb-11.$$ created"); open(my $FH, '<', "t/var/lsmb-11.$$"); my @str = <$FH>; -- cgit v1.2.3