io.directories: make sure truncate throws file-not-found

diff --git a/basis/io/directories/directories-tests.factor b/basis/io/directories/directories-tests.factor
index fea1d1c84657e67bef87ee72a3a82e693aaf88c4..de41b112b0147ed6a1d4c7a41fa1a343359e4ce4 100644 (file)
--- a/basis/io/directories/directories-tests.factor
+++ b/basis/io/directories/directories-tests.factor
@@ -301,6 +301,8 @@ splitting.monotonic strings system tools.test ;
 { "/foo/bar" } [ P"/foo" P"./bar" append-path ] unit-test
 { "/bar/foo" } [ P"./foo" P"/bar" prepend-path ] unit-test
 
+[ "resource:asdljkfasldkjfasdljfk" 0 truncate-file ] must-fail
+
 { f 16 8 } [
     [
         {