1\  Test FLOADing and ENCODing-a-File with an Include-List
2\  We'll expect the Include-List to include the sibling-directory
3\      called  TokeCommon  and the non-existence of anything with
4\      "NonExist" in its name.
5
6
7fcode-version2
8hex
9headers
10
11\  This works.
12." OneBeer.fth"
13fload OneBeer.fth
14
15\  Intended not to work
16[message] Fload a NonExistent file
17fload NonExist.fth
18[message] Fload an Unreadable file (No read Permissions)
19fload MyBeerAndYouCannotHaveIt.fth
20[message] Fload a Zero-Length file (extension doesn't matter...)
21fload ZeroLen.bin
22
23\  This works.
24." BinData.bin"
25encode-file BinData.bin
26" BinData.bin" property
27
28\  Intended not to work
29[message] Encode a NonExistent file
30encode-file NonExist.bin
31[message] Encode an Unreadable file (No read Permissions)
32encode-file NoRead.bin
33
34[message] Encode with intentional syntax error
35encode-file ${PWD/../TokeCommon/BinData.bin
36
37[message] Encode a Zero length data file
38." ZeroLen.bin"
39encode-file ZeroLen.bin
40
41." That is all..."
42
43fcode-end
44