Using "same?" in more places.

[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 2d352848cedc81e46f4f360498f253d1606e99a6..c6095088655b38596b183edcbf2b3d279a6c7ee7 100644 (file)
--- a/core/io/pathnames/pathnames-tests.factor
+++ b/core/io/pathnames/pathnames-tests.factor
@@ -74,12 +74,12 @@ IN: io.pathnames.tests
 
 ! Testing ~ special pathname
 [ t ] [ os windows? "~\\" "~/" ? absolute-path home = ] unit-test 
-[ t ] [ "~/" home [ normalize-path ] bi@ = ] unit-test 
+[ t ] [ "~/" home [ normalize-path ] same? ] unit-test 
 
 [ t ] [ "~" absolute-path home = ] unit-test
-[ t ] [ "~" home [ normalize-path ] bi@ = ] unit-test 
+[ t ] [ "~" home [ normalize-path ] same? ] unit-test 
 
-[ t ] [ "~" home [ "foo" append-path ] bi@ [ normalize-path ] bi@ = ] unit-test
-[ t ] [ os windows? "~\\~/" "~/~/" ? "~" "~" append-path [ path-components ] bi@ = ] unit-test
+[ t ] [ "~" home [ "foo" append-path ] bi@ [ normalize-path ] same? ] unit-test
+[ t ] [ os windows? "~\\~/" "~/~/" ? "~" "~" append-path [ path-components ] same? ] unit-test