From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Mon, 27 Feb 2006 13:54:03 +0000 (+0000)
Subject: Added additional cases
X-Git-Tag: 0-98~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02776a7e56409e5b43815b6e94db2cb321ef5c77;p=dbsrgits%2FDBM-Deep.git

Added additional cases
---

diff --git a/t/18_export.t b/t/18_export.t
index aae08e6..725857b 100644
--- 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") &&