mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 20:34:07 +00:00
66 lines
2.0 KiB
Plaintext
66 lines
2.0 KiB
Plaintext
|
|
||
|
|
ANS-SHIM.FTH
|
||
|
|
PRELIM.FTH
|
||
|
|
|
||
|
|
CR CR SOURCE TYPE ( Preliminary test ) CR
|
||
|
|
SOURCE ( These lines test SOURCE, TYPE, CR and parenthetic comments ) TYPE CR
|
||
|
|
( The next line of output should be blank to test CR ) SOURCE TYPE CR CR
|
||
|
|
|
||
|
|
( Pass #1: testing 0 >IN +! ) 0 >IN +! SOURCE TYPE CR
|
||
|
|
( Pass #2: testing 1 >IN +! ) 1 >IN +! xSOURCE TYPE CR
|
||
|
|
( Pass #3: testing 1+ ) 1 1+ >IN +! xxSOURCE TYPE CR
|
||
|
|
( Pass #4: testing @ ! BASE ) 0 1+ 1+ BASE ! BASE @ >IN +! xxSOURCE TYPE CR
|
||
|
|
( Pass #5: testing decimal BASE ) BASE @ >IN +! xxxxxxxxxxSOURCE TYPE CR
|
||
|
|
( Pass #6: testing : ; ) : .SRC SOURCE TYPE CR ; 6 >IN +! xxxxxx.SRC
|
||
|
|
( Pass #7: testing number input ) 19 >IN +! xxxxxxxxxxxxxxxxxxx.SRC
|
||
|
|
( Pass #8: testing VARIABLE ) VARIABLE Y 2 Y ! Y @ >IN +! xx.SRC
|
||
|
|
( Pass #9: testing WORD COUNT ) 5 MSG abcdef) Y ! Y ! >IN +! xxxxx.SRC
|
||
|
|
( Pass #10: testing WORD COUNT ) MSG ab) >IN +! xxY ! .SRC
|
||
|
|
Pass #11: testing WORD COUNT .MSG
|
||
|
|
Pass #12: testing = returns all 1's for true
|
||
|
|
Pass #13: testing = returns 0 for false
|
||
|
|
Pass #14: testing -1 interpreted correctly
|
||
|
|
Pass #15: testing 2*
|
||
|
|
Pass #16: testing 2*
|
||
|
|
Pass #17: testing AND
|
||
|
|
Pass #18: testing AND
|
||
|
|
Pass #19: testing AND
|
||
|
|
Pass #20: testing ?F~ ?~~ Pass Error
|
||
|
|
Pass #21: testing ?~
|
||
|
|
Pass #22: testing EMIT
|
||
|
|
Pass #23: testing S"
|
||
|
|
|
||
|
|
Results:
|
||
|
|
|
||
|
|
Pass messages #1 to #23 should be displayed above
|
||
|
|
and no error messages
|
||
|
|
|
||
|
|
0 tests failed out of 57 additional tests
|
||
|
|
|
||
|
|
|
||
|
|
--- End of Preliminary Tests ---
|
||
|
|
|
||
|
|
TESTER.FTH ERROR exists
|
||
|
|
CORE.FR
|
||
|
|
*********************YOU SHOULD SEE THE STANDARD GRAPHIC CHARACTERS:
|
||
|
|
!"#$%&'()*+,-./0123456789:;<=>?@
|
||
|
|
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`
|
||
|
|
abcdefghijklmnopqrstuvwxyz{|}~
|
||
|
|
YOU SHOULD SEE 0-9 SEPARATED BY A SPACE:
|
||
|
|
0 1 2 3 4 5 6 7 8 9
|
||
|
|
YOU SHOULD SEE 0-9 (WITH NO SPACES):
|
||
|
|
0123456789
|
||
|
|
YOU SHOULD SEE A-G SEPARATED BY A SPACE:
|
||
|
|
A B C D E F G
|
||
|
|
YOU SHOULD SEE 0-5 SEPARATED BY TWO SPACES:
|
||
|
|
0 1 2 3 4 5
|
||
|
|
YOU SHOULD SEE TWO SEPARATE LINES:
|
||
|
|
LINE 1
|
||
|
|
LINE 2
|
||
|
|
YOU SHOULD SEE THE NUMBER RANGES OF SIGNED AND UNSIGNED NUMBERS:
|
||
|
|
SIGNED: -8000 7FFF
|
||
|
|
UNSIGNED: 0 FFFF
|
||
|
|
** GDX exists
|
||
|
|
End of Core word set tests
|
||
|
|
|