diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-26 05:25:00 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-26 05:25:00 +0000 |
| commit | 79cb0d14e92c84125ae68e0c1a5cc7d841989ff0 (patch) | |
| tree | f184fe7084773621ef424e999061d5ceb3c3de1b /t | |
| parent | b3b539da6a19529cca194bb3ff4e9d318886d011 (diff) | |
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
Diffstat (limited to 't')
| -rw-r--r-- | t/11-ledgersmb.t | 4 |
1 files changed, 2 insertions, 2 deletions
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>; |