openbios/fcode-utils/testsuite/TokCondl/TokCondErrs.fth

Branch - branch -master- tag -v1.0.3v1.0.2v1.0.1v1.0.0

• Show log

  Commit

• Hash : acf5213f
  Author :
  Date : 2006-10-14T20:31:53
  

  testsuite 1.0.0 git-svn-id: svn://coreboot.org/openbios/fcode-utils@91 f158a5a8-5612-0410-a976-696ce0be7e32

Download

• testsuite/TokCondl/TokCondErrs.fth

• \  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
  
  
  

Download