core: Don't use with-scope. H{ } clone [ ] with-variables is the same thing and is...

[factor.git] / core / io / pathnames / pathnames-tests.factor

diff --git a/core/io/pathnames/pathnames-tests.factor b/core/io/pathnames/pathnames-tests.factor
index 617debee6905b9d34cd22afb07c028e6e7a90816..75574b58dec0bd043e52a87b9bfa843cea763214 100644 (file)
--- a/core/io/pathnames/pathnames-tests.factor
+++ b/core/io/pathnames/pathnames-tests.factor
@@ -1,7 +1,6 @@
-USING: io.pathnames io.files.temp io.directories
-continuations math io.files.private kernel
-namespaces sequences system tools.test
-io.backend io.pathnames.private ;
+USING: continuations hashtables io.backend io.directories
+io.files.private io.files.temp io.pathnames kernel math
+namespaces system tools.test ;
 IN: io.pathnames.tests
 
 { "passwd" } [ "/etc/passwd" file-name ] unit-test
@@ -58,13 +57,12 @@ IN: io.pathnames.tests
 { } [ 2 [ "touch-twice-test" temp-file touch-file ] times ] unit-test
 
 ! aum's bug
-[
-    "." current-directory set
-    ".." "resource-path" set
+"." current-directory
+".." "resource-path" 2hashtable [
     [ "../core/bootstrap/stage2.factor" ]
     [ "resource:core/bootstrap/stage2.factor" absolute-path ]
     unit-test
-] with-scope
+] with-variables
 
 { t } [ cwd "misc" resource-path [ ] with-directory cwd = ] unit-test