From 70b2b8c48f76becaf1351ccb514c5d52cedb7754 Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Mon, 6 Jan 2020 19:51:19 -0800
Subject: [PATCH] fix broken test support

---
 platforms/GoSXB/run-tests.rb | 2 +-
 test/7.3.5.fs                | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/platforms/GoSXB/run-tests.rb b/platforms/GoSXB/run-tests.rb
index 0088e24..41e65fa 100755
--- a/platforms/GoSXB/run-tests.rb
+++ b/platforms/GoSXB/run-tests.rb
@@ -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 == '->'
diff --git a/test/7.3.5.fs b/test/7.3.5.fs
index de4821b..0520e89 100644
--- a/test/7.3.5.fs
+++ b/test/7.3.5.fs
@@ -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