From: chapman.alex <chapman.alex@gmail.com>
Date: Thu, 19 Oct 2006 21:35:15 +0000 (+0000)
Subject: fix failing unit-tests in contrib/gap-buffer
X-Git-Tag: 0.85~4
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=fdc18acf5d1b23e0660749a6ad6fb3a1d4025aab

fix failing unit-tests in contrib/gap-buffer
---

diff --git a/contrib/gap-buffer/circular-tests.factor b/contrib/gap-buffer/circular-tests.factor
index 6aada74a70..409359d76c 100644
--- a/contrib/gap-buffer/circular-tests.factor
+++ b/contrib/gap-buffer/circular-tests.factor
@@ -8,12 +8,13 @@ USING: kernel test sequences sequences-internals circular ;
 
 [ "test" <circular> 5 swap nth ] unit-test-fails
 [ CHAR: e ] [ "test" <circular> 5 swap nth-unsafe ] unit-test
-
-[ [ 1 2 3 ] ] [ { 1 2 3 } <circular> f like ] unit-test
-[ [ 2 3 1 ] ] [ { 1 2 3 } <circular> 1 over change-circular-start f like ] unit-test
-[ [ 3 1 2 ] ] [ { 1 2 3 } <circular> 1 over change-circular-start 1 over change-circular-start f like ] unit-test
+ 
+[ [ 1 2 3 ] ] [ { 1 2 3 } <circular> [ ] like ] unit-test
+[ [ 2 3 1 ] ] [ { 1 2 3 } <circular> 1 over change-circular-start [ ] like ] unit-test
+[ [ 3 1 2 ] ] [ { 1 2 3 } <circular> 1 over change-circular-start 1 over change-circular-start [ ] like ] unit-test
 
 [ "fob" ] [ "foo" <circular> CHAR: b 2 pick set-nth "" like ] unit-test
 [ "foo" <circular> CHAR: b 3 rot set-nth ] unit-test-fails
 [ "boo" ] [ "foo" <circular> CHAR: b 3 pick set-nth-unsafe "" like ] unit-test
 [ "ornact" ] [ "factor" <circular> 4 over change-circular-start CHAR: n 2 pick set-nth "" like ] unit-test
+