support multiple values and non-ref values

[p5sagit/Data-Dumper-Concise.git] / t / concise.t

diff --git a/t/concise.t b/t/concise.t
index 18d085d..6b45dd5 100644 (file)
--- a/t/concise.t
+++ b/t/concise.t
@@ -14,27 +14,27 @@ my $dd = Data::Dumper->new([])
 
 my $dd_c = Dumper;
 
-my $to_dump = { foo => "bar\nbaz", quux => sub { "fleem" } };
-
-$dd_c->Values([ $to_dump ]);
-$dd->Values([ $to_dump ]);
-
-my $example = do {
-  local $Data::Dumper::Terse = 1;
-  local $Data::Dumper::Indent = 1;
-  local $Data::Dumper::Useqq = 1;
-  local $Data::Dumper::Deparse = 1;
-  local $Data::Dumper::Quotekeys = 0;
-  local $Data::Dumper::Sortkeys = 1;
-  Data::Dumper::Dumper($to_dump);
-};
-
-is($example, $dd->Dump, 'Both Data::Dumper usages equivalent');
-
-is($example, $dd_c->Dump, 'Returned object usage equivalent');
-
-is($example, Dumper($to_dump), 'Subroutine call usage equivalent');
-
-ok(!eval { Dumper(1); 1 }, 'Non-ref call dies');
-
-ok(!eval { Dumper({}, {}); 1 }, 'Multi-ref call dies');
+foreach my $to_dump (
+  [ { foo => "bar\nbaz", quux => sub { "fleem" }  } ],
+  [ 'one', 'two' ]
+) {
+
+  $dd_c->Values([ @$to_dump ]);
+  $dd->Values([ @$to_dump ]);
+  
+  my $example = do {
+    local $Data::Dumper::Terse = 1;
+    local $Data::Dumper::Indent = 1;
+    local $Data::Dumper::Useqq = 1;
+    local $Data::Dumper::Deparse = 1;
+    local $Data::Dumper::Quotekeys = 0;
+    local $Data::Dumper::Sortkeys = 1;
+    Data::Dumper::Dumper(@$to_dump);
+  };
+  
+  is($example, $dd->Dump, 'Both Data::Dumper usages equivalent');
+  
+  is($example, $dd_c->Dump, 'Returned object usage equivalent');
+  
+  is($example, Dumper(@$to_dump), 'Subroutine call usage equivalent');
+}