test for explicit die on unsupported nesting

renormalist · Apr 12, 2012 · 183db0f · 183db0f
1 parent 6ba523e
commit 183db0f
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/t/app_dpath.t b/t/app_dpath.t
@@ -78,4 +78,22 @@ check (qw(cfggeneral yaml), '//home', [ "/usr/home/max" ]);
 check (qw(cfggeneral yaml), '//mono//bl', [ 2 ]);
 check (qw(cfggeneral yaml), '//log', [ "/usr/log/logfile" ]);
 
+diag 'Ignore output warnings about "Unsupported innermost nesting"...';
+
+my $program;
+my $infile;
+my $path;
+my $ret;
+
+$program   = "$^X -Ilib script/dpath";
+$infile    = "t/flatabledata.yaml";
+
+$path      = "//UnsupportedInnermostHash";
+$ret = system("$program -o flat '$path' $infile");
+isnt ($ret, 0, "deny unsupported innermost HASH");
+
+$path      = "//UnsupportedInnermostArray";
+$ret = system("$program -o flat '$path' $infile");
+isnt ($ret, 0, "deny unsupported innermost ARRAY");
+
 done_testing;