fix broken test support

This commit is contained in:
mgcaret committed 2020-01-06 19:51:19 -08:00
1 parent 98f0665349
commit 70b2b8c48f
2 files changed
+2 -2

No files matched your search

+1 -1
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 == '->'
+1 -1
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