Adding tests for lfs.setmode

1 files changed, 10 insertions, 0 deletions

diff --git a/tests/test.lua b/tests/test.lua
index d47a062..4c09020 100644
--- a/tests/test.lua
+++ b/tests/test.lua
@@ -77,6 +77,16 @@ if lfs.symlinkattributes then
     assert (os.remove"_a_link_for_test_")
 end
 
+if lfs.setmode then
+    -- Checking text/binary modes (works only in Windows)
+    local f = io.open(tmpfile, "w")
+    local mode = lfs.setmode(f, "binary")
+    assert(mode == "text")
+    mode = lfs.setmode(f, "text")
+    assert(mode == "binary")
+    f:close()
+end
+    
 -- Restore access time to current value
 assert (lfs.touch (tmpfile, attrib.access, attrib.modification))
 new_att = assert (lfs.attributes (tmpfile))