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
|
#!/usr/bin/perl
use warnings 'all';
use strict;
BEGIN {
if (-d "lib") {
use lib "./lib";
} elsif (-d "../lib") {
use lib "../lib";
}
}
use Test::Inter;
my $ti = new Test::Inter $0;
sub func1 {
my($tiutput) = @_;
my @lines = ("First line",
"Second line",
"Third line");
open(OUT,">$tiutput");
foreach my $line (@lines) {
print OUT "$line\n";
}
close(OUT);
}
sub func2 {
my($input,$tiutput) = @_;
open(IN,$input);
open(OUT,">$tiutput");
my @lines = <IN>;
print OUT @lines;
close(IN);
close(OUT);
}
$ti->file(\&func1,'', '','file.1.exp','No input');
$ti->file(\&func2,'file.2.in','','file.2.exp','File copy');
$ti->done_testing();
|
