diff options
Diffstat (limited to 't')
-rw-r--r-- | t/42-dbobject.t | 12 |
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"); +} + + |