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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
use strict;
use FileHandle::Unget;
use File::Spec::Functions qw(:ALL);
use Test::More tests => 12;
use File::Temp;
use File::Slurper qw(read_text);
my $tmp = File::Temp->new();
close $tmp;
# Test "print" and "syswrite" to write/append a file, close $fh
{
# my $fh1 = new FileHandle(">" . $tmp->filename);
use Symbol;
my $fh1 = gensym;
open $fh1, ">" . $tmp->filename;
my $fh = new FileHandle::Unget($fh1);
print $fh "first line\n";
close $fh;
$fh1 = new FileHandle(">>" . $tmp->filename);
$fh = new FileHandle::Unget($fh1);
syswrite $fh, "second line\n";
FileHandle::Unget::close($fh);
my $results = read_text($tmp->filename, undef, 1);
# 1
is($results, "first line\nsecond line\n",'syswrite()');
}
# Test input_line_number and scalar line reading, $fh->close
{
# my $fh1 = new FileHandle($tmp->filename);
use Symbol;
my $fh1 = gensym;
open $fh1, "<" . $tmp->filename;
my $fh = new FileHandle::Unget($fh1);
# 2
is($fh->input_line_number(),0,'input_line_number()');
my $line = <$fh>;
# 3
is($line,"first line\n",'getline()');
$line = <$fh>;
# 4
is($fh->input_line_number(),2,'input_line_number() after reading');
$fh->close;
}
# Test array line reading, eof $fh
{
# my $fh1 = new FileHandle($tmp->filename);
use Symbol;
my $fh1 = gensym;
open $fh1, "<" . $tmp->filename;
my $fh = new FileHandle::Unget($fh1);
my @lines = <$fh>;
# 5
is($#lines,1,'getlines() size');
# 6
is($lines[0],"first line\n",'First line');
# 7
is($lines[1],"second line\n",'Second line');
# 8
ok(eof $fh,'EOF');
$fh->close;
}
# Test byte reading
{
# my $fh1 = new FileHandle($tmp->filename);
use Symbol;
my $fh1 = gensym;
open $fh1, "<" . $tmp->filename;
my $fh = new FileHandle::Unget($fh1);
my $buf;
my $result = read($fh, $buf, 8);
# 9
is($buf,'first li','read() function');
# 10
is($result,8,'Number of bytes read');
$fh->close;
}
# Test byte ->reading
{
# my $fh1 = new FileHandle($tmp->filename);
use Symbol;
my $fh1 = gensym;
open $fh1, "<" . $tmp->filename;
my $fh = new FileHandle::Unget($fh1);
my $buf;
my $result = $fh->read($buf, 8);
# 11
is($buf,'first li','read() method');
# 12
is($result,8,'Number of bytes read');
$fh->close;
}
|
