fix broken test support

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

View File

@ -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 == '->'

View File

@ -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