mirror of
https://github.com/uffejakobsen/acme.git
synced 2024-11-21 11:32:23 +00:00
added test files for symbol substitutions
git-svn-id: https://svn.code.sf.net/p/acme-crossass/code-0/trunk@393 4df02467-bbd4-4a76-a152-e7ce94205b78
This commit is contained in:
parent
b3ef885385
commit
fcfb32ed0a
3
testing/errors/subst1.a
Normal file
3
testing/errors/subst1.a
Normal file
@ -0,0 +1,3 @@
|
||||
*=$1000
|
||||
;sub= we do not define sub at all
|
||||
base?sub nop ; -> "neither number nor string"
|
3
testing/errors/subst2.a
Normal file
3
testing/errors/subst2.a
Normal file
@ -0,0 +1,3 @@
|
||||
*=$1000
|
||||
!set sub = [2,3] ; sub is a list
|
||||
base?sub nop ; -> "neither number nor string"
|
3
testing/errors/subst3.a
Normal file
3
testing/errors/subst3.a
Normal file
@ -0,0 +1,3 @@
|
||||
*=$1000
|
||||
lda sub ; sub is undefined
|
||||
base?sub nop ; -> "undefined or not integer"
|
3
testing/errors/subst4.a
Normal file
3
testing/errors/subst4.a
Normal file
@ -0,0 +1,3 @@
|
||||
*=$1000
|
||||
!set sub = .5 ; sub is a float
|
||||
base?sub nop ; -> "undefined or not integer"
|
3
testing/errors/subst5.a
Normal file
3
testing/errors/subst5.a
Normal file
@ -0,0 +1,3 @@
|
||||
*=$1000
|
||||
!set sub = 7 ; sub is defined okay, but:
|
||||
base?(sub nop ; -> "does not end with ')' character."
|
Loading…
Reference in New Issue
Block a user