8 @tests = (split(/\nEND\n/s, <<DONE));
38 This Is a test of a line with many embedded tabs
40 This Is a test of a line with many embedded tabs
43 This Is a test of a line with many embedded tabs
45 This Is a test of a line with many embedded tabs
84 foobar IN A 140.174.82.12
87 foobar IN A 140.174.82.12
94 my $testcount = "1..";
95 $testcount .= @tests/2;
100 $rerun = $ENV{'PERL_DL_NONLAZY'} ? 0 : 1;
104 my $in = shift(@tests);
105 my $out = shift(@tests);
107 $in =~ s/^TEST\s*(\d+)?\s*(\S+)?\n//;
123 foreach ($in, $back, $out) {
127 print "------------ input ------------\n";
129 print "\$\n------------ $fn -----------\n";
131 print "\$\n------------ expected ---------\n";
133 print "\$\n-------------------------------\n";
134 $Text::Tabs::debug = 1;
138 print "not ok $tn\n";