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 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
\ Test FLOADing and ENCODing-a-File with embedded Env't V'bles in pathnames
\ Let's not add any requirements on the environment. We'll expect the
\ existence of a sibling-directory called TokeCommon
\ and the non-existence of anything with "NonExist" in its name.
fcode-version2
hex
headers
\ Constructs like :h don't work because the path-string
\ gets interpreted by Bourne Shell syntax.
." ${PWD:h}/TokeCommon/OneBeer.fth"
fload ${PWD:h}/TokeCommon/OneBeer.fth
\ This works.
." ${PWD}/../TokeCommon/OneBeer.fth"
fload ${PWD}/../TokeCommon/OneBeer.fth
\ \ Fuggedabout these...
\ ." $PWD:h/TokeCommon/OneBeer.fth"
\ fload $PWD:h/TokeCommon/OneBeer.fth
\ fload $PWD:h/TokeCommon/NonExist.fth
\ ." ../../$PWD:h:t/TokeCommon/BinData.bin"
\ encode-file ../../$PWD:h:t/TokeCommon/BinData.bin
\ ." ../../$PWD:h:t/TokeCommon/ZeroLen.bin"
\ encode-file ../../$PWD:h:t/TokeCommon/ZeroLen.bin
\ Intended not to work
fload $PWD/../NonExist/NonExist.fth
[message] Fload an Unreadable file (No read Permissions)
fload ${PWD}/../TokeCommon/MyBeerAndYouCannotHaveIt.fth
[message] Fload a Zero-Length file (extension doesn't matter...)
fload ${PWD}/../TokeCommon/ZeroLen.bin
[message] FLoad with intentional syntax error
fload ${PWD/../TokeCommon/OneBeer.fth
\ This works.
." $PWD/../TokeCommon/BinData.bin"
encode-file $PWD/../TokeCommon/BinData.bin
" $PWD/../TokeCommon/BinData.bin" property
\ Intended not to work
[message] Encode a NonExistent file
encode-file $PWD/../NonExist/NonExist.bin
[message] Encode an Unreadable file (No read Permissions)
encode-file $PWD/../TokeCommon/NoRead.bin
[message] Encode with intentional syntax error
encode-file ${PWD/../TokeCommon/BinData.bin
[message] Is this a syntax error? On some O/S'es but not others...
." $PWD}/../TokeCommon/BinData.bin"
encode-file $PWD}/../TokeCommon/BinData.bin
[message] Encode a Zero length data file
." $PWD/../TokeCommon/ZeroLen.bin"
encode-file $PWD/../TokeCommon/ZeroLen.bin
." That is all..."
fcode-end