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
|
\ Test FLOADing and ENCODing-a-File with an Include-List
\ We'll expect the Include-List to include the sibling-directory
\ called TokeCommon and the non-existence of anything with
\ "NonExist" in its name.
fcode-version2
hex
headers
\ This works.
." OneBeer.fth"
fload OneBeer.fth
\ Intended not to work
[message] Fload a NonExistent file
fload NonExist.fth
[message] Fload an Unreadable file (No read Permissions)
fload MyBeerAndYouCannotHaveIt.fth
[message] Fload a Zero-Length file (extension doesn't matter...)
fload ZeroLen.bin
\ This works.
." BinData.bin"
encode-file BinData.bin
" BinData.bin" property
\ Intended not to work
[message] Encode a NonExistent file
encode-file NonExist.bin
[message] Encode an Unreadable file (No read Permissions)
encode-file NoRead.bin
[message] Encode with intentional syntax error
encode-file ${PWD/../TokeCommon/BinData.bin
[message] Encode a Zero length data file
." ZeroLen.bin"
encode-file ZeroLen.bin
." That is all..."
fcode-end
|
