#!/usr/bin/perl
$| = 1;
-my $file = "tf$$.txt";
+my $file = "tf01-$$.txt";
1 while unlink $file;
print "1..75\n";
#!/usr/bin/perl
-my $file = "tf$$.txt";
+my $file = "tf02-$$.txt";
$: = Tie::File::_default_recsep();
my $data = "rec1$:rec2$:rec3$:";
# (tests _fill_offsets_to() )
#
-my $file = "tf$$.txt";
+my $file = "tf03-$$.txt";
$: = Tie::File::_default_recsep();
my $data = "rec0$:rec1$:rec2$:";
$| = 1;
-my $file = "tf$$.txt";
+my $file = "tf04-$$.txt";
$: = Tie::File::_default_recsep();
my $data = "rec0$:rec1$:rec2$:";
print "1..118\n";
use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
+my $file = "tf05-$$.txt";
my ($o, $n);
print "1..16\n";
#!/usr/bin/perl
use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
+my $file = "tf06-$$.txt";
$: = Tie::File::_default_recsep();
print "1..5\n";
#
-my $file = "tf$$.txt";
+my $file = "tf07-$$.txt";
$: = Tie::File::_default_recsep();
my $data = "rec0$:rec1$:rec2$:";
# Make sure it works to open the file in read-only mode
#
-my $file = "tf$$.txt";
+my $file = "tf08-$$.txt";
$: = Tie::File::_default_recsep();
print "1..13\n";
#!/usr/bin/perl
-my $file = "tf$$.txt";
+my $file = "tf09-$$.txt";
print "1..59\n";
use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
+my $file = "tf10-$$.txt";
my $data = "rec0blahrec1blahrec2blah";
print "1..101\n";
# (04_splice.t checks its effect on the file)
#
-my $file = "tf$$.txt";
+my $file = "tf11-$$.txt";
my $data = "rec0blahrec1blahrec2blah";
print "1..50\n";
# (tests _fill_offsets_to() )
#
-my $file = "tf$$.txt";
+my $file = "tf12-$$.txt";
my $data = "rec0blahrec1blahrec2blah";
print "1..5\n";
use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
+my $file = "tf13-$$.txt";
my $data = "rec0blahrec1blahrec2blah";
my ($o, $n);
use Fcntl ':flock'; # This works at least back to 5.004_04
-my $file = "tf$$.txt";
+my $file = "tf14-$$.txt";
my ($o, $n);
my @a;
use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
+my $file = "tf15-$$.txt";
1 while unlink $file;
$: = Tie::File::_default_recsep();
my $data = "rec0$:rec1$:rec2$:";
# Basic operation, initializing the object from an already-open handle
# instead of from a filename
-my $file = "tf$$.txt";
+my $file = "tf16-$$.txt";
$: = Tie::File::_default_recsep();
if ($^O =~ /vms/i) {
# EXTEND, CLEAR, DELETE, EXISTS
#
-my $file = "tf$$.txt";
+my $file = "tf17-$$.txt";
$: = Tie::File::_default_recsep();
1 while unlink $file;
#!/usr/bin/perl
use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
+my $file = "tf18-$$.txt";
$/ = "blah";
print "1..5\n";
#
$|=1;
-my $file = "tf$$.txt";
+my $file = "tf19-$$.txt";
$: = Tie::File::_default_recsep();
my $data = join $:, "rec0" .. "rec9", "";
my $V = $ENV{INTEGRITY}; # Verbose integrity checking?
# Tests for various caching errors
#
-my $file = "tf$$.txt";
+my $file = "tf20-$$.txt";
$: = Tie::File::_default_recsep();
my $data = join $:, "record0" .. "record9", "";
my $V = $ENV{INTEGRITY}; # Verbose integrity checking?
#
# These tests (Win32 only) make sure that the file had \r\n as it should.
-my $file = "tf$$.txt";
+my $file = "tf21-$$.txt";
unless ($^O =~ /^(MSWin32|dos)$/) {
print "1..0\n";
#!/usr/bin/perl
-my $file = "tf$$.txt";
+my $file = "tf22-$$.txt";
$: = Tie::File::_default_recsep();
print "1..71\n";
# (07_rv_splice.t checks it aith autochomping off)
#
-my $file = "tf$$.txt";
+my $file = "tf23-$$.txt";
$: = Tie::File::_default_recsep();
my $data = "rec0$:rec1$:rec2$:";
#
use Config;
-my $file = "tf$$.txt";
+my $file = "tf24-$$.txt";
unless ($Config{d_alarm}) {
print "1..0\n"; exit;
}
# Regular read-write tests with caching disabled
# (Same as 01_gen.t)
#
-my $file = "tf$$.txt";
+my $file = "tf25-$$.txt";
print "1..68\n";
# $len == 0 is a pure insert; $len == length($data) is a simple overwrite.
#
-my $file = "tf$$.txt";
+my $file = "tf26-$$.txt";
print "1..181\n";
# (Because we inserted $data at the beginning) we copy as much as possible
# and return a string containing the remainder.
-my $file = "tf$$.txt";
+my $file = "tf27-$$.txt";
$| = 1;
print "1..203\n";
# 'm' here is for 'multiple'. This writes data $d1 at position $s1
# over a block of space $l1, moving subsequent data up or down as necessary.
-my $file = "tf$$.txt";
+my $file = "tf28-$$.txt";
$| = 1;
print "1..2252\n";
#
#
-my $file = "tf$$.txt";
+my $file = "tf29-$$.txt";
print "1..718\n";
# but the source and destination regions may overlap.)
-my $file = "tf$$.txt";
+my $file = "tf29-$$.txt";
print "1..55\n";
#
use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
+my $file = "tf30-$$.txt";
$: = Tie::File::_default_recsep();
my $data = "rec0$:rec1$:rec2$:";
my ($o, $n);
use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
+my $file = "tf31-$$.txt";
$: = Tie::File::_default_recsep();
my $data = "rec0$:rec1$:rec2$:";
my ($o, $n, @a);
#
use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
+my $file = "tf32-$$.txt";
$: = Tie::File::_default_recsep();
my $data = "rec0$:rec1$:rec2$:";
my ($o, $n);
#
use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
+my $file = "tf33-$$.txt";
# print "1..0\n"; exit;
$: = Tie::File::_default_recsep();
my $data = "$:1$:22$:";
use File::Spec;
use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
+my $file = "tf42-$$.txt";
BEGIN
{
https://perl5.git.perl.org / perl5.git / commitdiff