B-DeparseTree
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/roundtrip/5.014/base/rs.t view on Meta::CPAN
$bar = <FH>;
if ($bar ne "1234") {print "not ";}
print "ok $test_count # \$/ = \"34\"\n";
$test_count++;
# Eat the line terminator
$/ = "\n";
$bar = <FH>;
# Does paragraph mode work?
$/ = '';
$bar = <FH>;
if ($bar ne "1234\n12345\n\n") {print "not ";}
print "ok $test_count # \$/ = ''\n";
$test_count++;
# Try slurping the rest of the file
$/ = undef;
$bar = <FH>;
if ($bar ne "123456\n1234567\n") {print "not ";}
print "ok $test_count # \$/ = undef\n";
$test_count++;
}
t/roundtrip/5.020/base/rs.t view on Meta::CPAN
$bar = <FH>;
if ($bar ne "1234") {print "not ";}
print "ok $test_count # \$/ = \"34\"\n";
$test_count++;
# Eat the line terminator
$/ = "\n";
$bar = <FH>;
# Does paragraph mode work?
$/ = '';
$bar = <FH>;
if ($bar ne "1234\n12345\n\n") {print "not ";}
print "ok $test_count # \$/ = ''\n";
$test_count++;
# Try slurping the rest of the file
$/ = undef;
$bar = <FH>;
if ($bar ne "123456\n1234567\n") {print "not ";}
print "ok $test_count # \$/ = undef\n";
$test_count++;
}
t/roundtrip/5.024/base/rs.t view on Meta::CPAN
$bar = <FH>;
if ($bar ne "1234") {print "not ";}
print "ok $test_count # \$/ = \"34\"\n";
$test_count++;
# Eat the line terminator
$/ = "\n";
$bar = <FH>;
# Does paragraph mode work?
$/ = '';
$bar = <FH>;
if ($bar ne "1234\n12345\n\n") {print "not ";}
print "ok $test_count # \$/ = ''\n";
$test_count++;
# Try slurping the rest of the file
$/ = undef;
$bar = <FH>;
if ($bar ne "123456\n1234567\n") {print "not ";}
print "ok $test_count # \$/ = undef\n";
$test_count++;
}
t/roundtrip/5.026/base/rs.t view on Meta::CPAN
$bar = <FH>;
if ($bar ne "1234") {print "not ";}
print "ok $test_count # \$/ = \"34\"\n";
$test_count++;
# Eat the line terminator
$/ = "\n";
$bar = <FH>;
# Does paragraph mode work?
$/ = '';
$bar = <FH>;
if ($bar ne "1234\n12345\n\n") {print "not ";}
print "ok $test_count # \$/ = ''\n";
$test_count++;
# Try slurping the rest of the file
$/ = undef;
$bar = <FH>;
if ($bar ne "123456\n1234567\n") {print "not ";}
print "ok $test_count # \$/ = undef\n";
$test_count++;
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.378 second using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )