io.files: fix unit test for forget-tests? flag

diff --git a/core/io/files/files-tests.factor b/core/io/files/files-tests.factor
index 5db1822d9e5152942d7499654e3822c11a8fd974..a308b9f0c307b0ec5bf2d0e6199eb40e6849f4d0 100644 (file)
--- 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 [