From 0c08896981498bcd14a9d4e32ee949c3ebb3220b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Fri, 25 Oct 2013 17:47:58 +0200
Subject: [PATCH] pcre: fix tc that failed on Windows

---
 basis/pcre/pcre-tests.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/basis/pcre/pcre-tests.factor b/basis/pcre/pcre-tests.factor
index aeb220abc4..784ca91cb4 100644
--- a/basis/pcre/pcre-tests.factor
+++ b/basis/pcre/pcre-tests.factor
@@ -14,7 +14,11 @@ IN: pcre.tests
 
 CONSTANT: iso-date "(?P<year>\\d{4})-(?P<month>\\d{2})-(?P<day>\\d{2})"
 
-[ { f -1 } ] [ "foo" (pcre) 3array 1 tail ] unit-test
+! On windows the erroffset appears to be set to 0 despite there being
+! nothing wrong with the regexp.
+[ t ] [
+    "foo" (pcre) 3array 1 tail { { f -1 } { f 0 } } member?
+] unit-test
 
 [ { 1 2 3 } ] [
     iso-date <pcre>