From: Björn Lindqvist <bjourne@gmail.com>
Date: Sat, 8 Oct 2016 11:55:03 +0000 (+0200)
Subject: tools.image-analyzer.gc-info.tests: fix tc so it works on windows
X-Git-Tag: unmaintained~593
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=402a416aceaee95c175e82841cad4e70a8d59dff

tools.image-analyzer.gc-info.tests: fix tc so it works on windows
---

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 7a3b4f44b8..ffe7855afa 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
-math namespaces random sequences system tools.image-analyzer.gc-info
+literals 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
@@ -72,7 +72,9 @@ QUALIFIED: opencl
 
 cpu x86.64? [
     {
-        { { 155 { ?{ f t t t t } { } } } }
+        ! 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
     ] unit-test