1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
BEGIN { $| = 1; print "1..6\n"; }
END {print "not ok 1\n" unless $loaded;}
use File::Tail;
$loaded = 1;
print "ok 1\n";
$debug=0;
######################### End of black magic.
# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
#
# Test 2 - open an existant file
#
$testname="./test$$";
open(TEST,">$testname");
select TEST;
$|=1;
select STDOUT;
$|=1;
$file=File::Tail->new(name=>$testname,debug=>$debug,interval=>1,maxinterval=>5,
adjustafter=>5,errmode=>"return") or
print "not ok 2\n";
print "ok 2\n" if defined($file);
#
# Test 3 - read a line from the file
#
$teststring="This is a test string\n";
print TEST $teststring;
$t=$file->read;
if ($t eq $teststring) {
print "ok 3\n";
} else {
print "not ok 3\n";
}
#
# Test 4 - read an array of lines from file
#
print TEST "0\n1\n2\n3\n4\n";
@t=$file->read;
foreach (0..4) {
unless ($t[$_] eq "$_\n") {
print "not ok 4\n - <$t[$_]> at $_";
last;
}
}
print "ok 4\n";
#
# Test 5 - Read on reopened file
#
close(TEST);
open(TEST,">$testname");
$teststring="This is another test string\n";
print TEST $teststring;
$t=$file->read;
if ($t eq $teststring) {
print "ok 5\n";
} else {
print "not ok 5\n";
}
#
# Test 6 - Read on moved and reopened file
#
system("mv $testname $testname-tmp");
open(TEST,">$testname");
$teststring="This is yet another test string\n";
print TEST $teststring;
$t=$file->read;
if ($t eq $teststring) {
print "ok 6\n";
} else {
# print "<$t><$teststring>\n";
print "not ok 6\n";
}
unlink "$testname";
unlink "$testname-tmp";
|
