Write test case for mnemonic dumping
This commit is contained in:
parent
b551b5fb8a
commit
d3fe2aa445
|
@ -0,0 +1,52 @@
|
||||||
|
##
|
||||||
|
## dump.exp - Test whether mnemonic dumping works on this u6a build
|
||||||
|
##
|
||||||
|
## Copyright (C) 2020 CismonX <admin@cismon.net>
|
||||||
|
##
|
||||||
|
## This program is free software: you can redistribute it and/or modify
|
||||||
|
## it under the terms of the GNU General Public License as published by
|
||||||
|
## the Free Software Foundation, either version 3 of the License, or
|
||||||
|
## (at your option) any later version.
|
||||||
|
##
|
||||||
|
## This program is distributed in the hope that it will be useful,
|
||||||
|
## but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
## GNU General Public License for more details.
|
||||||
|
##
|
||||||
|
## You should have received a copy of the GNU General Public License
|
||||||
|
## along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||||||
|
##
|
||||||
|
|
||||||
|
set tool "default"
|
||||||
|
set timeout 1
|
||||||
|
|
||||||
|
set mnemonics ".text
|
||||||
|
00000000: APP s, i
|
||||||
|
00000001: APP acc, i
|
||||||
|
00000002: SA 0x0000000e
|
||||||
|
00000003: APP s, i
|
||||||
|
00000004: SA 0x0000000d
|
||||||
|
00000005: DEL 0x00000009
|
||||||
|
00000006: LC<print> 0x00000000
|
||||||
|
00000007: APP acc, .U
|
||||||
|
00000008: LA
|
||||||
|
00000009: APP k, acc
|
||||||
|
0000000a: APP s, acc
|
||||||
|
0000000b: APP acc, i
|
||||||
|
0000000c: LA
|
||||||
|
0000000d: LA
|
||||||
|
0000000e: APP e, acc
|
||||||
|
|
||||||
|
.rodata
|
||||||
|
00000000: 6e6c 616d 6264 612c 2063 2765 7374 2074 nlambda, c'est t
|
||||||
|
00000010: 7269 7669 616c 210a 00 rivial!.."
|
||||||
|
|
||||||
|
# Code taken from ftp://ftp.madore.org/pub/madore/unlambda/CUAN/trivial.unl
|
||||||
|
# Written by David Madore <david.madore@ens.fr>
|
||||||
|
set src_code "```sii``si``s`k`d`r`.!`.l`.a`.i`.v`.i`.r`.t`. `.t`.s`.e`.'`.c`. `.,`.a`.d`.b`.m`.a`.l`.n.Ui"
|
||||||
|
|
||||||
|
if { [ u6a_dump_mnemonics $src_code ] eq $mnemonics } {
|
||||||
|
pass "ok!"
|
||||||
|
} else {
|
||||||
|
fail "fail!"
|
||||||
|
}
|
|
@ -17,6 +17,15 @@
|
||||||
## along with this program. If not, see <https://www.gnu.org/licenses/>.
|
## along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||||||
##
|
##
|
||||||
|
|
||||||
|
proc u6a_dump_mnemonics { src_code } {
|
||||||
|
global U6AC_BIN
|
||||||
|
if { [ catch { exec $U6AC_BIN -S - << $src_code } result ] == 0 } {
|
||||||
|
return $result
|
||||||
|
} else {
|
||||||
|
fail "failed to dump mnemonics of program"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
proc u6a_run { src_code u6ac_opts u6a_opts has_input } {
|
proc u6a_run { src_code u6ac_opts u6a_opts has_input } {
|
||||||
global U6A_BIN U6AC_BIN U6A_RUN B64_ENCODE B64_DECODE
|
global U6A_BIN U6AC_BIN U6A_RUN B64_ENCODE B64_DECODE
|
||||||
set u6ac "$U6AC_BIN $u6ac_opts"
|
set u6ac "$U6AC_BIN $u6ac_opts"
|
||||||
|
|
Loading…
Reference in New Issue