From fcfb32ed0aec697f7cce95e7963f3c99f18d806a Mon Sep 17 00:00:00 2001 From: marcobaye Date: Sun, 11 Aug 2024 21:07:32 +0000 Subject: [PATCH] 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 --- testing/errors/subst1.a | 3 +++ testing/errors/subst2.a | 3 +++ testing/errors/subst3.a | 3 +++ testing/errors/subst4.a | 3 +++ testing/errors/subst5.a | 3 +++ 5 files changed, 15 insertions(+) create mode 100644 testing/errors/subst1.a create mode 100644 testing/errors/subst2.a create mode 100644 testing/errors/subst3.a create mode 100644 testing/errors/subst4.a create mode 100644 testing/errors/subst5.a diff --git a/testing/errors/subst1.a b/testing/errors/subst1.a new file mode 100644 index 0000000..fae1e0e --- /dev/null +++ b/testing/errors/subst1.a @@ -0,0 +1,3 @@ + *=$1000 + ;sub= we do not define sub at all +base?sub nop ; -> "neither number nor string" diff --git a/testing/errors/subst2.a b/testing/errors/subst2.a new file mode 100644 index 0000000..013f6da --- /dev/null +++ b/testing/errors/subst2.a @@ -0,0 +1,3 @@ + *=$1000 + !set sub = [2,3] ; sub is a list +base?sub nop ; -> "neither number nor string" diff --git a/testing/errors/subst3.a b/testing/errors/subst3.a new file mode 100644 index 0000000..ed720ba --- /dev/null +++ b/testing/errors/subst3.a @@ -0,0 +1,3 @@ + *=$1000 + lda sub ; sub is undefined +base?sub nop ; -> "undefined or not integer" diff --git a/testing/errors/subst4.a b/testing/errors/subst4.a new file mode 100644 index 0000000..af49592 --- /dev/null +++ b/testing/errors/subst4.a @@ -0,0 +1,3 @@ + *=$1000 + !set sub = .5 ; sub is a float +base?sub nop ; -> "undefined or not integer" diff --git a/testing/errors/subst5.a b/testing/errors/subst5.a new file mode 100644 index 0000000..2985314 --- /dev/null +++ b/testing/errors/subst5.a @@ -0,0 +1,3 @@ + *=$1000 + !set sub = 7 ; sub is defined okay, but: +base?(sub nop ; -> "does not end with ')' character."