Hash :
acf5213f
Author :
Date :
2006-10-14T20:31:53
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