aboutsummaryrefslogtreecommitdiff
path: root/tests/test.lua
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--tests/test.lua13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/test.lua b/tests/test.lua
index 193e0bd..591ee25 100644
--- a/tests/test.lua
+++ b/tests/test.lua
@@ -91,6 +91,8 @@ io.flush()
91if lfs.link (tmpfile, "_a_link_for_test_", true) then 91if lfs.link (tmpfile, "_a_link_for_test_", true) then
92 assert (lfs.attributes"_a_link_for_test_".mode == "file") 92 assert (lfs.attributes"_a_link_for_test_".mode == "file")
93 assert (lfs.symlinkattributes"_a_link_for_test_".mode == "link") 93 assert (lfs.symlinkattributes"_a_link_for_test_".mode == "link")
94 assert (lfs.symlinkattributes"_a_link_for_test_".target == tmpfile)
95 assert (lfs.symlinkattributes("_a_link_for_test_", "target") == tmpfile)
94 assert (lfs.link (tmpfile, "_a_hard_link_for_test_")) 96 assert (lfs.link (tmpfile, "_a_hard_link_for_test_"))
95 assert (lfs.attributes (tmpfile, "nlink") == 2) 97 assert (lfs.attributes (tmpfile, "nlink") == 2)
96 assert (os.remove"_a_link_for_test_") 98 assert (os.remove"_a_link_for_test_")
@@ -130,6 +132,17 @@ for key, value in pairs(attr) do
130 "lfs.attributes values not consistent") 132 "lfs.attributes values not consistent")
131end 133end
132 134
135-- Check that lfs.attributes accepts a table as second argument
136local attr2 = {}
137lfs.attributes(tmpfile, attr2)
138for key, value in pairs(attr2) do
139 assert (value == lfs.attributes (tmpfile, key),
140 "lfs.attributes values with table argument not consistent")
141end
142
143-- Check that extra arguments are ignored
144lfs.attributes(tmpfile, attr2, nil)
145
133-- Remove new file and directory 146-- Remove new file and directory
134assert (os.remove (tmpfile), "could not remove new file") 147assert (os.remove (tmpfile), "could not remove new file")
135assert (lfs.rmdir (tmpdir), "could not remove new directory") 148assert (lfs.rmdir (tmpdir), "could not remove new directory")