mirror of
https://github.com/mgcaret/of816.git
synced 2026-10-22 02:02:41 +00:00
fix broken test support
This commit is contained in:
1 parent
98f0665349
commit
70b2b8c48f
2 files changed
+2
-2
No files matched your search
@@ -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
@@ -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
|
||||
|
||||
Reference in new issue
Block a user