+
+ 'git51.def' => {
+ source => "git51",
+ params => "def",
+ expect => <<'#17...........',
+Type::Libraries->setup_class(
+ __PACKAGE__,
+ qw(
+ Types::Standard
+ Types::Common::Numeric
+ ), # <--- brace here
+);
+#17...........
+ },
+
+ 'git51.git51' => {
+ source => "git51",
+ params => "git51",
+ expect => <<'#18...........',
+Type::Libraries->setup_class(
+ __PACKAGE__,
+ qw(
+ Types::Standard
+ Types::Common::Numeric
+ ), # <--- brace here
+);
+#18...........
+ },
+
+ 'pretok.def' => {
+ source => "pretok",
+ params => "def",
+ expect => <<'#19...........',
+# test sub split_pretoken
+my $s1 = $^? ? "def" : "not def";
+my $s2 = $^ ? "def" : "not def";
+my $s3 = $^ if ($s2);
+my $s4 = $^O eq "linux";
+my $s5 = $^O ne "linux";
+my $s6 = $^O ne "linux";
+my $s7 = %^O;
+my $s8 = 'hi' . 's' x 10 if (1);
+my $s9 = 'merci' x 0.1e4 . $s8;
+#19...........
+ },