From: Björn Lindqvist <bjourne@gmail.com>
Date: Sat, 8 Oct 2016 14:42:32 +0000 (+0200)
Subject: tools.image-analyzer.gc-info.tests: trying again to fix the test
X-Git-Tag: unmaintained~592
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=560900275a330289105ec119d38e2b8b26af82db

tools.image-analyzer.gc-info.tests: trying again to fix the test
---

diff --git a/extra/tools/image-analyzer/gc-info/gc-info-tests.factor b/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
index ffe7855afa..ae85daf308 100644
--- a/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
+++ b/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
@@ -3,7 +3,7 @@ classes.struct combinators.short-circuit compiler compiler.cfg
 compiler.cfg.debugger compiler.cfg.instructions
 compiler.cfg.linearization compiler.codegen.gc-maps compiler.units fry
 generic grouping io io.encodings.binary io.streams.byte-array kernel
-literals math namespaces random sequences system tools.image-analyzer.gc-info
+math namespaces random sequences system tools.image-analyzer.gc-info
 tools.image-analyzer.utils tools.test vm vocabs words ;
 IN: tools.image-analyzer.gc-info.tests
 QUALIFIED: cpu.x86.features.private
@@ -71,12 +71,19 @@ QUALIFIED: opencl
 ] unit-test
 
 cpu x86.64? [
-    {
+    os windows? [
         ! The difference is because Windows stack references are
         ! longer because of the home space.
-        { ${ os windows? 156 155 ? { ?{ f t t t t } { } } } }
-    } [
-        \ effects:<effect> word>gc-maps
+        {
+            { 156 { ?{ f f f f f t t t t } { } } }
+        }
+    ] [
+        {
+            { 155 { ?{ f t t t t } { } } }
+        }
+    ] if
+    [
+        \ effects:<effect> word>gc-maps first
     ] unit-test
 ] when