Support getting io.popen results on file:close() on PUC-Rio Lua 5.1 (#53)

1 files changed, 14 insertions, 0 deletions

diff --git a/tests/test.lua b/tests/test.lua
index 0640cae..443f6f7 100755
--- a/tests/test.lua
+++ b/tests/test.lua
@@ -625,11 +625,13 @@ do
    end))
    if mode ~= "module" then
      local f = assert(io.open(self, "r"))
+     print("io.type()", io.type(f))
      for a,b in f:lines(2, "*l") do
         print("file:lines()", a, b)
         break
      end
      f:close()
+     print("io.type()", io.type(f))
      f = assert(io.open("data.txt", "r"))
      for n1,n2,rest in f:lines("*n", "n", "*a") do
         print("file:lines()", n1, n2, rest)
@@ -650,6 +652,18 @@ do
      end))
    end
    os.remove("data.txt")
+   print("io.popen()", pcall(function()
+      local f = assert(io.popen("echo 'hello' && exit 0", "r"))
+      print("io.popen()", f:read("*a"))
+      print("io.popen()", f:close())
+   end))
+   print("io.popen()", pcall(function()
+      local f = assert(io.popen("echo 'hello' && exit 5", "r"))
+      print("io.type()", io.type(f))
+      print("io.popen()", f:read("*a"))
+      print("io.popen()", f:close())
+      print("io.type()", io.type(f))
+   end))
 end
 ___''