+
+ 'git18.def' => {
+ source => "git18",
+ params => "def",
+ expect => <<'#18...........',
+# parsing stuff like 'x17' before fat comma
+my %bb = (
+ 123 x 18 => '123x18',
+ 123 x 19 => '123 x19',
+ 123 x 20 => '123x 20',
+ 2 x 7 => '2 x 7',
+ x40 => 'x40',
+ 'd' x 17 => "'d' x17",
+ c x17 => 'c x17',
+);
+foreach my $key ( keys %bb ) {
+ print "key='$key' => $bb{$key}\n";
+}
+#18...........
+ },
+
+ 'here2.def' => {
+ source => "here2",
+ params => "def",
+ expect => <<'#19...........',
+$_ = "";
+s|(?:)|"${\<<END}"
+ok $test - here2.in "" in multiline s///e outside eval
+END
+|e;
+print $_ || "not ok $test\n";
+#19...........
+ },