mirror of
https://github.com/mgcaret/of816.git
synced 2025-01-14 02:32:09 +00:00
fix broken test support
This commit is contained in:
parent
98f0665349
commit
70b2b8c48f
@ -134,7 +134,7 @@ def run_suite(suite, outfile = nil)
|
||||
if cs_line =~ /\s*[tT]\{\s+:\s+(\S+)/
|
||||
colons[$1.downcase] = true
|
||||
end
|
||||
if cs_line =~ /T\{\s+(.+)\s+\}T/i
|
||||
if cs_line =~ /^\s*T\{\s+(.+)\s+\-\>\s+/i
|
||||
words = $1.split(/\s+/)
|
||||
words.each do |word|
|
||||
next if word == '->'
|
||||
|
@ -49,7 +49,7 @@ testing 7.3.5.4 Numeric output primitives
|
||||
hex
|
||||
|
||||
: s= ( str len str len )
|
||||
2 pick 2dup = if
|
||||
2 pick over = if
|
||||
drop swap comp 0=
|
||||
else
|
||||
2drop 2drop false
|
||||
|
Loading…
x
Reference in New Issue
Block a user