From a3e6de5e6a7422f780426f73808c2eac6ec2f7d1 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 13 Apr 2010 06:14:53 -0700
Subject: [PATCH] io.files: fix unit test for forget-tests? flag

---
 core/io/files/files-tests.factor | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/core/io/files/files-tests.factor b/core/io/files/files-tests.factor
index 5db1822d9e..a308b9f0c3 100644
--- a/core/io/files/files-tests.factor
+++ b/core/io/files/files-tests.factor
@@ -3,7 +3,9 @@ debugger.threads destructors generic.single io io.directories
 io.encodings.8-bit.latin1 io.encodings.ascii
 io.encodings.binary io.encodings.string io.files
 io.files.private io.files.temp io.files.unique kernel make math
-sequences specialized-arrays system threads tools.test ;
+sequences specialized-arrays system threads tools.test vocabs
+compiler.units ;
+FROM: specialized-arrays.private => specialized-array-vocab ;
 SPECIALIZED-ARRAY: int
 IN: io.files.tests
 
@@ -119,6 +121,12 @@ CONSTANT: pt-array-1
     pt-array-1 rest-slice sequence=
 ] unit-test
 
+[ ] [
+    [
+        pt specialized-array-vocab forget-vocab
+    ] with-compilation-unit
+] unit-test
+
 ! Writing strings to binary streams should fail
 [
     "test.txt" temp-file binary [