Diff for /gforth/test/coretest.fs between versions 1.1 and 1.2

version 1.1, 1997/05/21 20:40:19 version 1.2, 1999/06/17 19:54:36
Line 12 Line 12
 \ I HAVEN'T FIGURED OUT HOW TO TEST KEY, QUIT, ABORT, OR ABORT"...  \ I HAVEN'T FIGURED OUT HOW TO TEST KEY, QUIT, ABORT, OR ABORT"...
 \ I ALSO HAVEN'T THOUGHT OF A WAY TO TEST ENVIRONMENT?...  \ I ALSO HAVEN'T THOUGHT OF A WAY TO TEST ENVIRONMENT?...
   
   \ modified by Anton Ertl to produce output that is independent of type sizes
   
 TESTING CORE WORDS  TESTING CORE WORDS
 HEX  HEX
   
Line 965  TESTING OUTPUT: . ." CR EMIT SPACE SPACE Line 967  TESTING OUTPUT: . ." CR EMIT SPACE SPACE
    5 1+ 0 DO I [CHAR] 0 + EMIT 2 SPACES LOOP CR     5 1+ 0 DO I [CHAR] 0 + EMIT 2 SPACES LOOP CR
    ." YOU SHOULD SEE TWO SEPARATE LINES:" CR     ." YOU SHOULD SEE TWO SEPARATE LINES:" CR
    S" LINE 1" TYPE CR S" LINE 2" TYPE CR     S" LINE 1" TYPE CR S" LINE 2" TYPE CR
    ." YOU SHOULD SEE THE NUMBER RANGES OF SIGNED AND UNSIGNED NUMBERS:" CR  \   ." YOU SHOULD SEE THE NUMBER RANGES OF SIGNED AND UNSIGNED NUMBERS:" CR
    ."   SIGNED: " MIN-INT . MAX-INT . CR  \   ."   SIGNED: " MIN-INT . MAX-INT . CR
    ." UNSIGNED: " 0 U. MAX-UINT U. CR  \   ." UNSIGNED: " 0 U. MAX-UINT U. CR
 ;  ;
   
 { OUTPUT-TEST -> }  { OUTPUT-TEST -> }
   
   \ the lower case stuff is not restricted to core words - anton
   { min-int s>d tuck dabs <# #s rot sign #>
     S" -8000000000000000" drop 2 cells 1+ compare -> 0 }
   { max-int s>d tuck dabs <# #s rot sign #>
     S" 7FFFFFFFFFFFFFFF" drop 2 cells compare -> 0 }
   { max-uint 0 <# #s #>
     S" FFFFFFFFFFFFFFFF" drop 2 cells compare -> 0 }
   
 \ ------------------------------------------------------------------------  \ ------------------------------------------------------------------------
 \ commented out to allow batch testing -anton  \ commented out to allow batch testing -anton
 \ TESTING INPUT: ACCEPT  \ TESTING INPUT: ACCEPT

Removed from v.1.1  
changed lines
  Added in v.1.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>