Hash :
ed679850
Author :
Date :
2006-10-30T17:01:46
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 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91
\ Nested Conditionals Erorrs test
\ Updated Fri, 07 Apr 2006 at 15:04 PDT by David L. Paktor
fcode-version2
headers
create NestTest
#else
[endif]
." Begin Nested Erorrs Test"
[#ifexist]
NestTest
." Exists, level 1"
[ifexist] NestTest
." Exists and exists, level 2"
[else]
." Exists but doesn't exist. What? Level 2"
[then]
." Resumes existence, level 1"
[ifnexist] NestTest
." Exists but not exists. What? Level 2"
[else]
." Exists and doesn't not exist, level 2"
[then]
." Still exists, level 1"
[else]
." Doesn't exist, level 1"
[else]
." Dubble elst, Wazzat?"
[ifexist] NestTest
." Doesn't exist but exists. What? Level 2"
[else]
." Doesn't exist and doesn't exist, level 2"
\ [then]
" Resumes non-existence, level 1"
[ifnexist] NestTest
." Doesn't exist and not exists, level 2"
[else]
." Doesn't exist but doesn't not exist. What? Level 2"
[then]
." Still doesn't exist, level 1"
[then]
." Middle of Nest Test Test"
[ifnexist] NestTest
." Not exists, pass 2, level 1"
[ifexist] NestTest
." Not exists but exists. What? Pass 2, Level 2"
[else]
." Not exists and doesn't exist, pass 2, level 2"
[else]
." Extra Else where it should be ignored, pass 2, level 2"
[then]
" Resumes non-existence, pass 2, level 1"
[ifnexist] NestTest
." Not exists and not exists, pass 2, level 2"
[else]
." Not exists but doesn't not exist. What? Pass 2, Level 2"
[else]
." Extra Else where it should never be seen, pass 2, level 2"
[then]
." Still not exists, pass 2, level 1"
[else]
." Doesn't not exist, pass 2, level 1"
[ifexist] NestTest
." Doesn't not exist and exists, pass 2, level 2"
[else]
." Doesn't not exist but doesn't exist. What? Pass 2, Level 2"
[then]
" Resumes not non-existing, pass 2, level 1"
[ifnexist] NestTest
." Doesn't not exist but not exists. What? Pass 2, Level 2"
[else]
." Doesn't not exist and doesn't not exist, pass 2, level 1"
[else]
." And has an extra Else where it will be seen, pass 2, level 1"
[then]
." Still doesn't not exist, pass 2, level 1"
[then]
." End Nest Test Test"
fcode-end