detect ape format

2 files changed, 20 insertions, 0 deletions

diff --git a/tests/modules/binutils/test.lua b/tests/modules/binutils/test.lua
index 363bf073b..543131c7f 100644
--- a/tests/modules/binutils/test.lua
+++ b/tests/modules/binutils/test.lua
@@ -14,6 +14,18 @@ function test_format(t)
     io.writefile(scriptfile, "#!/bin/sh\nexit 0\n")
     t:are_equal(binutils.format(scriptfile), "shebang")
 
+    local apefile = path.join(tempdir, "a.ape")
+    io.writefile(apefile, "MZqFpD00")
+    t:are_equal(binutils.format(apefile), "ape")
+
+    local apecom = path.join(tempdir, "a.com")
+    io.writefile(apecom, "MZqFpD00")
+    t:are_equal(binutils.format(apecom), "ape")
+
+    local comfile = path.join(tempdir, "b.com")
+    io.writefile(comfile, "12345678")
+    t:are_equal(binutils.format(comfile), "unknown")
+
     local programfile = os.programfile()
     if programfile then
         local expected = "elf"
diff --git a/tests/modules/os/test.lua b/tests/modules/os/test.lua
index 71e9d610d..2dcab35c6 100644
--- a/tests/modules/os/test.lua
+++ b/tests/modules/os/test.lua
@@ -188,9 +188,17 @@ function test_isexec(t)
         io.writefile(batfile, "echo test\r\n")
         t:require(os.isexec(batfile))
 
+        local comfile = path.join(tempdir, "a.com")
+        io.writefile(comfile, "12345678")
+        t:require(os.isexec(comfile))
+
         local suffix = path.join(tempdir, "prog")
         io.writefile(suffix .. ".exe", "")
         t:require(os.isexec(suffix))
+
+        local suffix2 = path.join(tempdir, "prog2")
+        io.writefile(suffix2 .. ".com", "")
+        t:require(os.isexec(suffix2))
     else
         os.vrunv("chmod", {"-x", filepath})
         t:require_not(os.isexec(filepath))