6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2025-01-14 02:32:09 +00:00
Code Issues Projects Releases Wiki Activity

fix broken test support

Browse Source
This commit is contained in:
mgcaret 2020-01-06 19:51:19 -08:00
parent 98f0665349
commit 70b2b8c48f
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
platforms/GoSXB/run-tests.rb
View File

@ -134,7 +134,7 @@ def run_suite(suite, outfile = nil)
if cs_line =~ /\s*[tT]\{\s+:\s+(\S+)/ if cs_line =~ /\s*[tT]\{\s+:\s+(\S+)/
colons[$1.downcase] = true colons[$1.downcase] = true
end end
if cs_line =~ /T\{\s+(.+)\s+\}T/i if cs_line =~ /^\s*T\{\s+(.+)\s+\-\>\s+/i
words = $1.split(/\s+/) words = $1.split(/\s+/)
words.each do |word| words.each do |word|
next if word == '->' next if word == '->'

2
test/7.3.5.fs
View File

@ -49,7 +49,7 @@ testing 7.3.5.4 Numeric output primitives
hex hex
: s= ( str len str len ) : s= ( str len str len )
2 pick 2dup = if 2 pick over = if
drop swap comp 0= drop swap comp 0=
else else
2drop 2drop false 2drop 2drop false