54 lines
1.8 KiB
Plaintext
54 lines
1.8 KiB
Plaintext
##
|
|
## 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 expected ".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"
|
|
|
|
set result [ u6a_dump_mnemonics $src_code ]
|
|
if { $result eq $expected } {
|
|
pass "ok!"
|
|
} else {
|
|
fail "fail! got: $result"
|
|
}
|