summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-11-13 22:19:16 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-11-13 22:19:16 +0000
commitc81c44d32e58bf3f49dfb34341232bbe26c12cea (patch)
treed461c277286a7c017073c9384e5ae26ccb9704b1 /t
parent69326cd33298a19f8d0585fb5b35da8232afba1f (diff)
Correcting t/42 tests and dbobject array parsing.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2395 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 't')
-rw-r--r--t/42-dbobject.t12
1 files changed, 12 insertions, 0 deletions
diff --git a/t/42-dbobject.t b/t/42-dbobject.t
new file mode 100644
index 00000000..6eb42f2f
--- /dev/null
+++ b/t/42-dbobject.t
@@ -0,0 +1,12 @@
+use LedgerSMB::DBObject;
+use Test::More tests => 4;
+
+# Array parsing tests
+my $test = '{test,"test2\"\",",test3,"test4"}';
+my @vals = ('test', 'test2"",', 'test3', 'test4');
+my $passes = 0;
+for (LedgerSMB::DBObject->_parse_array($test)){
+ is($_, shift @vals, "pass $pass, array parse test");
+}
+
+