terse debug/collapser_cref_op_deparse
Peter Rabbitson [Thu, 28 Feb 2013 07:55:51 +0000 (08:55 +0100)]
t/resultset/rowparser_internals.t

index 5bdebac..a828b01 100644 (file)
@@ -702,6 +702,18 @@ is_same_src (
   'Multiple has_many on multiple branches with underdefined root, HRI-direct torture test',
 );
 
+use B::Terse;
+my $w = B::Terse::compile(
+  $schema->source ('CD')->_mk_row_parser({
+    eval => 1,
+    inflate_map => $infmap,
+    collapse => 1,
+  }),
+);
+
+$w->();
+
+
 done_testing;
 
 my $deparser;