update test suite to v1.0.1

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

Author: Stefan Reinauer

testsuite/TokCondl/CondMacAlias_01.fth

@@ -77,15 +77,15 @@
 	: [else]  ."  Don't do it" ;  [message]  Fake [else] got through
 	create [else]   [message]  Fake [else] got through
 	h# defeca8e constant [else]   [message]  Fake [else] got through
-	h# beeffece value [else]   [message]  Fake [else] got through
+	h# -41100132 value [else]   [message]  Fake [else] got through
 	d# 64  buffer: [else]   [message]  Fake [else] got through
 	 struct
 	 /l field [else] [message]  Fake [else] got through
 	variable [else]  [message]  Fake [else] got through
 	defer [else]    [message]  Fake [else] got through
 	 ['] [else]     [message]  Fake [else] got through
 	   to [else]    [message]  Fake [else] got through
-	 ['] [else]
+	 ['] [else]   alias moomoo [else]
 	   is [else]    [message]  Fake [else] got through
 	   : say-what ( tony vinnie looie -- 
 	                   -- marie )

testsuite/TokMisc/AllBiFCTypes.fth

@@ -0,0 +1,64 @@
+\  Test all the known Built-In FCode tokens
+\     that have specific definition Types
+
+\  Updated Wed, 16 Aug 2006 at 14:30 PDT by David L. Paktor
+
+\  Applying "TO" to them ought to generate errors
+\  except for the ones that legitimately take "TO",
+\  namely the DEFER and VALUE definitions
+
+fcode-version2
+
+
+[message]  Constants.  Should generate errors
+d# 10 to -1  (  CONST  )
+d# 10 to -1  (  CONST  )
+d# 10 to 0  (  CONST  )
+d# 10 to 0  (  CONST  )
+d# 10 to 0  (  CONST  )
+d# 10 to 1  (  CONST  )
+d# 10 to 2  (  CONST  )
+d# 10 to 3  (  CONST  )
+d# 10 to bell  (  CONST  )
+d# 10 to bl  (  CONST  )
+d# 10 to bs  (  CONST  )
+
+[message]  Defer Words.  Should generate no errors
+['] noop to  blink-screen  (  DEFER  )
+['] noop to  delete-characters  (  DEFER  )
+['] noop to  delete-lines  (  DEFER  )
+['] noop to  draw-character  (  DEFER  )
+['] noop to  draw-logo  (  DEFER  )
+['] noop to  erase-screen  (  DEFER  )
+['] noop to  insert-characters  (  DEFER  )
+['] noop to  insert-lines  (  DEFER  )
+['] noop to  invert-screen  (  DEFER  )
+['] noop to  reset-screen  (  DEFER  )
+['] noop to  toggle-cursor  (  DEFER  )
+
+[message]  Value Words.  Should generate no errors
+h# 32 to  #columns  (  VALUE  )
+h# 32 to  #lines  (  VALUE  )
+h# 32 to  char-height  (  VALUE  )
+h# 32 to  char-width  (  VALUE  )
+h# 32 to  column#  (  VALUE  )
+h# 32 to  fontbytes  (  VALUE  )
+h# 32 to  frame-buffer-adr  (  VALUE  )
+h# 32 to  inverse-screen?  (  VALUE  )
+h# 32 to  inverse?  (  VALUE  )
+h# 32 to  line#  (  VALUE  )
+h# 32 to  my-self  (  VALUE  )
+h# 32 to  screen-height  (  VALUE  )
+h# 32 to  screen-width  (  VALUE  )
+h# 32 to  window-left  (  VALUE  )
+h# 32 to  window-top  (  VALUE  )
+
+[message]  Variables.  Should generate errors
+h# 12 to  #line  (  VRBLE  )
+h# 12 to  #out  (  VRBLE  )
+h# 12 to  base  (  VRBLE  )
+h# 12 to  mask  (  VRBLE  )
+h# 12 to  span  (  VRBLE  )
+h# 12 to  state  (  VRBLE  )
+
+fcode-end

testsuite/TokMisc/TestArgs

@@ -8,7 +8,7 @@
 #          Lines that have no label, no switches, and no script
 #              do not need any commas.
 
-#  Updated Thu, 06 Jul 2006 at 13:16 PDT by David L. Paktor
+#  Updated Thu, 07 Sep 2006 at 11:49 PDT by David L. Paktor
 
 MiscFeatures ,  ,  -i
 MiscFeatures , applabq ,  -i -f NOSUN-ABORT-Quote
@@ -46,7 +46,9 @@ HeadrSettings
 HeadrSettings , alwyshdr , -f always-heADERs
 HeadrSettings , alwyextl , -f alwaYS-External
 HeadrSettings , alwaysboth , -f always-headers -f always-external
-FlagsHelp , , -f HELP
+FlagsHelp , Hlp , -f HELP
+FlagsHelp ,  , -o FlagsHelp.fc FlagsHelp.fth
+FlagsHelp , UnkOpt , -Z
 FlagsHelp , Chg , -f noHex-remark-ESCAPE -f Always-Headers -f help
 FlagsHelp , noChg , -f noLocal-Values -f help
 FlagsHelp , chgNoHlp , -f noHex-remark-escape -f Always-Headers -f noHelp
@@ -55,6 +57,7 @@ FlgReset , Solo
 FlgReset  FlgReset_1  FlgReset_2
 FlgReset  FlgReset_1  FlgReset_2 , AlwExt , -f Always-External
 AllMacros , , , ExamAllMacs.scr
+AllBiFCTypes
 
 #  A little more set-up for Batch Test
 UserMacros ,  ,  , cp UserMacros.fth UserMacros_cpy1.fth

testsuite/TokeErrs/DupNams.fth

@@ -33,7 +33,7 @@ fcode-version2
 
 : noop  ."  Op?  No!" ;
 [macro] zoop noop message" I Care."
-: poop  h# defeca8e  ;
+: poop  h# -21013572  ;
 
     new-device
        : zoop  ." Nothing like the other zoop"  croop ;
@@ -74,8 +74,18 @@ fcode-version2
        finish-device
 
     finish-device
-
+start4  \  Let's just stick in an extra, and another error besides...
 fcode-end
 
-\  Let's just stick in an extra...
+\ And a few false-starts and ends...
 fcode-end
+
+start0
+   ." What does this button do?"
+end1
+
+start2
+   ." Oh, was I not supposed to touch that?"
+end0
+
+save-image poop.fc   \  Not gonna happen anyway...

testsuite/TokeErrs/GlobScopErrTst.fth

@@ -73,7 +73,7 @@ new-device    [message] Missing a finish-device
      garbanzo
 ;
 
-h# deadc0de  instance value quaack   [message] Instance should be legit here.
+h# DEADc0de  instance value quaack   [message] Instance should be legit here.
 
 global-definitions
 

testsuite/TokeErrs/LocalTest.fth

@@ -1,5 +1,5 @@
 \ LocalTest.fth
-\    Updated Wed, 25 Jan 2006 at 14:33 PST by David L. Paktor
+\    Updated Thu, 31 Aug 2006 at 15:33 PDT by David L. Paktor
 
 fcode-version2
 
@@ -9,7 +9,7 @@ fcode-version2
     fload LocalValuesSupport.fth
 [endif]
 
-h# deaf constant dean
+h# Deaf constant dean
 
 : faber ( n3 n2 n1 -- alloc-addr size $addr,len )
      { _otter _weasel _skunk ; _muskrat _mole }
@@ -58,6 +58,31 @@ f[
 : ordinary ( -- )
    123 456 789 miracle
 ;
+
+ { _don't _allow _this ; _ever }
 
+ F[
+      { _nor _this ; _either }
+ ]F
+
+\  And the "unterminated" tests
+
+: ahnold ( the unterminator )
+    fload UntermLocalDecl.fth
+    }  \  Does this conclude it okay?  (No, it's extraneous...)
+    _green _goose +  dup 
+    -> _souvenirs
+    fload UntermLocalAssgmnt.fth
+    _souvenirs
+;
+
+\  Once more, out of context:
+fload UntermLocalDecl.fth
+fload UntermLocalAssgmnt.fth   _souvenirs
+
+\  And another couple of corner-cases:
+    fload UntermDefn.fth  moopoop
+F[  fload UntermDefn.fth  poop-de-moo  ]F
+
 fcode-end
 

testsuite/TokeErrs/MiscFeatErrs.fth

@@ -3,10 +3,10 @@
 
 [flag] Local-Values
 f[  ."  This is a test"  ]f
-fcode-version2
+fcode-version1
 
 fload LocalValuesSupport.fth
-
+noop  noop  noop
 headers
 
 [char] G emit
@@ -32,8 +32,8 @@ control [ emit
 	[macro] swell bell
     device-definitions
 [macro] yell  bell 
-
-bell
+offset16
+bell  offset16
 : factl ( n -- n! )
     ?dup 0= if 1 factl
     control G to bell

testsuite/TokeErrs/MulPCI_LapFC.fth

@@ -1,12 +1,12 @@
 \  Combine Multiple PCI headers with overlapping FCodes.
-\  Updated Wed, 14 Jun 2006 at 12:04 PDT by David L. Paktor
+\  Updated Fri, 01 Sep 2006 at 12:55 PDT by David L. Paktor
 
 \  We already have a source with overlapping FCodes in two FCode blocks
 \  We just have to wrap it in multiple PCI headers.
 \  Also, we have to make sure to define  NoCrash  as a command-line symbol
 \  While we're at it, let's also create another switchable behavior:
 \  If the command-line symbol  RangeTwo  is defined, it should have 
-\      a value in the form of a hex number (We'll tace care of the "hex")
+\      a value in the form of a hex number (We'll take care of the "hex")
 \      which will, in a roundabout way, become the starting FCode for
 \      the second loading of the common Source.
 \  We'll save the symbol in a roundabout manner that will test whether
@@ -37,11 +37,11 @@ h#  20109     \   Bogus Class Code
 fload TooManyFCodes.fth
 
 
-[ifdef] RangeTwo
+\  Generate an error or two if  RangeTwo  is not DEFINED.  It's harmless
      f[
 	[DEFINED]  RangeTwo  constant SecondRangeFCode
       ]f
-[endif]
+\  because all the other references to  SecondRangeFCode  are conditioned...
 
 \  Try it once before and once after...    
 [ifndef]  NoReset  fcode-reset [else] #message" Not resetting..." [endif]

testsuite/TokeErrs/PCIhdrErrs.fth

@@ -1,6 +1,6 @@
 \  Basic PCI-Headers Errors test.
 
-\  Updated Wed, 25 May 2005 at 17:30 by David L. Paktor
+\  Updated Thu, 31 Aug 2006 at 13:27 PDT by David L. Paktor
 
 
 hex
@@ -26,3 +26,6 @@ fcode-end
 
 pci-header-end
 
+\  This is another...
+
+pci-header-end

testsuite/TokeErrs/TestArgs

@@ -13,11 +13,11 @@
 #  Most files in this category need the  -i  switch
 #  Some may have additional variants.
 
-#  Updated Thu, 27 Jul 2006 at 17:55 PDT by David L. Paktor
+#  Updated Thu, 07 Sep 2006 at 11:49 PDT by David L. Paktor
 
 MiscFeatErrs , , -i -I. -I..
-LocalTest , NoLvSupp , -i  -I. -I.. -f Local-Values 
-LocalTest , , -i -f Local-Values -d dont_omit_support -I. -I..
+LocalTest , NoLvSupp , -i -f Local-Values -I. -I..
+LocalTest , , -i -f Local-Values -I. -I.. -f Always-Headers -d dont_omit_support
 LocalTest1 , ,   -f Local-Values -f noLV-Legacy-Message -I. -I..
 ControlMismatch , , -i
 SuppLocErrTest4 , , -i -f Local-Values -l -I. -I..
@@ -40,6 +40,7 @@ TooLargeBranch_off16 , V178 , -i -l -d "fld_cmd=fload TooLargeBranch_V178_body.f
 TooLargeBranch_off16 , V179 , -i -l -d "fld_cmd=fload TooLargeBranch_V179_body.fth"
 TooLargeBranch_off16 , V180 , -i -l -d "fld_cmd=fload TooLargeBranch_V180_body.fth"
 TooLargeBranch_off08 , , -i -l
+TooLargeBranch_off08 , V180 , -i -l -d "fld_cmd=fload TooLargeBranch_V180_body.fth"
 TooLargeBranch_off08_to_16 , , -i -l
 TooTooLargeBuffer , , -i -l
 UserMacroErrors , , -i
@@ -52,13 +53,13 @@ GlobScopErrTst , , -i -f Local-Values -I. -I..
 GlobScopErrTst_01 , , -i -f Local-Values -I. -I..
 GlobScopErrTst_02 , , -i -f Local-Values -I. -I..
 GlobScopErrTst_03 , , -i -f Local-Values -I. -I..
-#  The script-fields below prepare for the  ExpPath and  InclLst  tests
-Frinstnce , , -i , touch ExpPath.NoV.f{c,l{,.missing}}
-Frinstnce , NoI , , chmod a-rw ../TokeCommon/{MyBeerAndYouCannotHaveIt.fth,NoRead.bin} ExpPath.NoV.f{c,l{,.missing}}
+#  The script-fields below prepare for the  ExpPath InclLst and DePList  tests
+Frinstnce , , -i , touch ExpPath.NoV.{P,f{c,l{,.missing}}}
+Frinstnce , NoI , , chmod a-rw ../TokeCommon/{MyBeerAndYouCannotHaveIt.fth,NoRead.bin} ExpPath.NoV.{P,f{c,l{,.missing}}}
 
-#  We're now ready for the  ExpPath and  InclLst  tests
+#  We're now ready for the  ExpPath InclLst and DePList  tests
 
-ExpPath , NoV , -i -l , +V rm -f ExpPath.NoV.f{c,l{,.missing}}
+ExpPath , NoV , -i -l -P , +V rm -f ExpPath.NoV.{P,f{c,l{,.missing}}}
 
 InclLst , , -i -l -P  -I .. -I ../TokBrack -I ../TokMisc -I ../TokeCommon -I ../TokoLoco -I ../TokCondl -I ../TokProdCpy -I ../TokeErrs -I /home/dlpaktor/HeyVern/DoYuhThink/ThisIsA/LongEnuffPathName/To/Make/The/Line/Really/Overflow -I . -I /home/dlpaktor/Hey/Vern/This/Path/Just/Fills/Up/TheLine/KnowWhudI/Mean -I ../TokeCommon  -f noAbort-quote
 
@@ -68,29 +69,32 @@ ExpPath , , -i -l , chmod a+r ../TokeCommon/{MyBeerAndYouCannotHaveIt.fth,NoRead
 
 #  Done with the  ExpPath and  InclLst  tests
 ToAtEnd , , -i
+ToAtEnd , WLocSup , -i -I . -I ..
 ObsoFCodes , , -i
 ObsoFCodes , NoWarn , -f NoObsolete-FCode-Warning
 
 TooLargePMessage
 TooLargePQuote , , -i 
 TooLargeQMessage
-TooLargeSQuote
+TooLargeSQuote , , -i
 TooLargeParen , , -i 
 TooLargeQAbort
-TooLargeQNoAbort
+TooLargeQNoAbort , , -f Local-Values
 
 AbrtWQuotStr , , -i
 
 #  The new "Trace" feature, and handling of duplicate and mis-scoped names...
 DupNams  , , -f Local-Values -T croop -T drop -T _harpo -T dup -T noop -T zoop -T foop
 
-TooManyFCodes , , -i
+TooManyFCodes , , -l -o TooManyFCodes.fl
+TooManyFCodes , Reg , -i
 TooManyFCodes , NoCrash , -i -d NoCrash
 
 MulPCI_LapFC , , -i -d NoCrash
-MulPCI_LapFC , RngTwo , -i -d NoCrash -d RangeTwo=0ace
+MulPCI_LapFC , RngTwo , -i -d NoCrash=DupDefn -d NoCrash -d OIBeenToTheOasis=Twice -d RangeTwo=0941 -d NoCrash -d RangeTwo=0ace
 MulPCI_LapFC , RTwoNoRst , -i -d NoCrash -d RangeTwo=0ace -d NoReset
 MulPCI_LapFC , NoRst , -i -d NoCrash -d NoReset
+MulPCI_LapFC , NoRTwoVal , -i -d NoCrash -d NoReset -d RangeTwo
 
 RetStkDep , , -i
 CondlDefn , , -i