25_gen_nocache.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#
# Regular read-write tests with caching disabled
# (Same as 01_gen.t)
#
my $file = "tf$$.txt";
print "1..68\n";
my $N = 1;
print "ok $N\n"; $N++;
print $o ? "ok $N\n" : "not ok $N\n";
$N++;
$: = $o->{recsep};
# 3-5 create
$a[0] = 'rec0';
# 6-11 append
$a[1] = 'rec1';
$a[2] = 'rec2';
# 12-20 same-length alterations
$a[0] = 'new0';
$a[1] = 'new1';
$a[2] = 'new2';
# 21-35 lengthening alterations
$a[0] = 'long0';
$a[1] = 'long1';
$a[2] = 'long2';
$a[1] = 'longer1';
$a[0] = 'longer0';
# 36-50 shortening alterations, including truncation
$a[0] = 'short0';
$a[1] = 'short1';
$a[2] = 'short2';
$a[1] = 'sh1';
$a[0] = 'sh0';
# (51-56) file with holes
$a[4] = 'rec4';
$a[3] = 'rec3';
# (57-59) zero out file
@a = ();
# (60-62) insert into the middle of an empty file
$a[3] = "rec3";
# (63-68) 20020326 You thought there would be a bug in STORE where if
# a cached record was false, STORE wouldn't see it at all. But you
# forgot that records always come back from the cache with the record
# separator attached, so they are unlikely to be false. The only
# really weird case is when the cached record is empty and the record
# separator is "0". Test that in 09_gen_rs.t.
$a[1] = "0";
$a[1] = "whoops";
use POSIX 'SEEK_SET';
sub check_contents {
my @c = @_;
# my $open = open FH, "< $file";
my $a;
{ local $/; $a = <FH> }
print "ok $N\n";
} else {
print "not ok $N\n# expected <$x>, got <$a>\n";
}
$N++;
# now check FETCH:
my $good = 1;
my $msg;
for (0.. $#c) {
my $aa = $a[$_];
$good = 0;
}
}
$N++;
? "ok $N\n" : "not ok $N\n";
$N++;
}
sub ctrlfix {
for (@_) {
s/\n/\\n/g;
s/\r/\\r/g;
}
}
END {
undef $o;
untie @a;
}