diff options
Diffstat (limited to 't/42-dbobject.t')
| -rw-r--r-- | t/42-dbobject.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/42-dbobject.t b/t/42-dbobject.t index 6eb42f2f..65cbbb1c 100644 --- a/t/42-dbobject.t +++ b/t/42-dbobject.t @@ -1,5 +1,5 @@ use LedgerSMB::DBObject; -use Test::More tests => 4; +use Test::More tests => 5; # Array parsing tests my $test = '{test,"test2\"\",",test3,"test4"}'; @@ -9,4 +9,7 @@ for (LedgerSMB::DBObject->_parse_array($test)){ is($_, shift @vals, "pass $pass, array parse test"); } +my $test2 = '{{1,1,1,1},{1,2,2,2}}'; +my @test_arry2 = LedgerSMB::DBObject->_parse_array($test2); +is(scalar @test_arry2, 2, 'Compount array with proper element count'); |