] with-test-file
! aum's bug
-H{
- { current-directory "." }
- { "resource-path" ".." }
-} [
- [ "..\\core\\bootstrap\\stage2.factor" ]
- [ "resource:core\\bootstrap\\stage2.factor" absolute-path ]
- unit-test
-] with-variables
+os windows?
+ [
+ H{
+ { current-directory "." }
+ { "resource-path" ".." }
+ } [
+ [ "..\\core\\bootstrap\\stage2.factor" ]
+ [ "resource:core\\bootstrap\\stage2.factor" absolute-path ]
+ unit-test
+ ] with-variables
+ ]
+ [
+ H{
+ { current-directory "." }
+ { "resource-path" ".." }
+ } [
+ [ "../core/bootstrap/stage2.factor" ]
+ [ "resource:core/bootstrap/stage2.factor" absolute-path ]
+ unit-test
+ ] with-variables
+ ]
+if
{ t } [ cwd "misc" resource-path [ ] with-directory cwd = ] unit-test