Added additional cases

diff --git a/t/18_export.t b/t/18_export.t
index aae08e6..725857b 100644 (file)
--- a/t/18_export.t
+++ b/t/18_export.t
@@ -18,10 +18,10 @@ if ($db->error()) {
 $db->import(
        key1 => "value1",
        key2 => "value2",
-       array1 => [ "elem0", "elem1", "elem2" ],
+       array1 => [ "elem0", "elem1", "elem2", { foo => 'bar' }, [ 5 ] ],
        hash1 => {
                subkey1 => "subvalue1",
-               subkey2 => "subvalue2"
+               subkey2 => "subvalue2",
        }
 );
 
@@ -45,7 +45,9 @@ ok(
        ($struct->{array1} && 
                ($struct->{array1}->[0] eq "elem0") &&
                ($struct->{array1}->[1] eq "elem1") && 
-               ($struct->{array1}->[2] eq "elem2")
+               ($struct->{array1}->[2] eq "elem2") &&
+               ($struct->{array1}->[3]{foo} eq "bar") &&
+               ($struct->{array1}->[4][0] eq "5")
        ) && 
        ($struct->{hash1} &&
                ($struct->{hash1}->{subkey1} eq "subvalue1") &&