From f54d12682a6608d5fe7ab7b279ef16e21875f896 Mon Sep 17 00:00:00 2001 From: erg Date: Thu, 27 Mar 2008 09:01:48 -0500 Subject: [PATCH] add more unit tests for windows --- extra/io/windows/nt/files/files-tests.factor | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/extra/io/windows/nt/files/files-tests.factor b/extra/io/windows/nt/files/files-tests.factor index a96bd6dad8..3b31d73e4a 100644 --- a/extra/io/windows/nt/files/files-tests.factor +++ b/extra/io/windows/nt/files/files-tests.factor @@ -9,3 +9,7 @@ IN: io.windows.nt.files.tests [ t ] [ "//" root-directory? ] unit-test [ t ] [ "//////////////" root-directory? ] unit-test [ t ] [ "\\foo" absolute-path? ] unit-test +[ t ] [ "\\\\?\\foo" absolute-path? ] unit-test +[ t ] [ "c:\\foo" absolute-path? ] unit-test +[ t ] [ "c:" absolute-path? ] unit-test +