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
|
#!/usr/bin/perl
# Basic first pass API testing for File::Flat
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
# Execute the tests
use Test::More 'tests' => 63;
use File::Flat;
# Execute the tests
use Test::ClassAPI;
Test::ClassAPI->execute('complete');
exit(0);
# Define the API
__DATA__
File::Flat=class
File::Flat::Object=class
[File::Flat]
exists=method
isaFile=method
isaDirectory=method
canRead=method
canWrite=method
canReadWrite=method
canExecute=method
canOpen=method
canRemove=method
isText=method
isBinary=method
fileSize=method
open=method
getReadHandle=method
getWriteHandle=method
getAppendHandle=method
getReadWriteHandle=method
slurp=method
read=method
write=method
overwrite=method
append=method
truncate=method
copy=method
move=method
remove=method
prune=method
makeDirectory=method
errstr=method
[File::Flat::Object]
File::Flat=implements
new=method
|
