tests: more API tests

Author: hishamhm

spec/api/v3/load_spec.lua

@@ -0,0 +1,46 @@
+require("compat53")
+
+describe("teal.load", function()
+
+   describe("loading Teal code from Lua", function()
+      it("works", function()
+         local lua_code = [[
+            -- test.lua
+            local teal = require('teal.init')
+
+            local program, err = teal.load('local a: string = "hey"; return a')
+            return program()
+         ]]
+         local lua_chunk = load(lua_code)
+         local result = lua_chunk()
+         assert.same(result, "hey")
+      end)
+
+      it("can produce type checking errors when using 'c'", function()
+         local lua_code = [[
+            -- test.lua
+            local teal = require('teal.init')
+
+            local program, err = teal.load('local a: string = 123; return a', 'code.tl', 'ct')
+            assert(program == nil)
+            return err
+         ]]
+         local lua_chunk = load(lua_code)
+         local result = lua_chunk()
+         assert.match(result, "code.tl:1:19: in local declaration: a: got integer, expected string")
+      end)
+
+      it("can run even with type check errors if not using 'c'", function()
+         local lua_code = [[
+            -- test.lua
+            local teal = require('teal.init')
+
+            local program, err = teal.load('local a: string = 123; return a', 'code.tl')
+            return program()
+         ]]
+         local lua_chunk = load(lua_code)
+         local result = lua_chunk()
+         assert.same(result, 123)
+      end)
+   end)
+end)

spec/api/v3/loader_spec.lua

@@ -0,0 +1,32 @@
+local util = require("spec.util")
+
+describe("teal.loader", function()
+   setup(util.chdir_setup)
+   teardown(util.chdir_teardown)
+   it("loads and reports filename correctly in debug info (#508)", function()
+      local dir_name = util.write_tmp_dir(finally, {
+         ["file1.tl"] = [[
+         return {
+            get_src = function()
+               return debug.getinfo(1, "S").source
+            end
+         }
+         ]],
+         ["main.lua"] = [[
+         local teal = require("teal.init")
+         teal.loader()
+         file1 = require("file1")
+         print(file1.get_src())
+         ]]
+      })
+      local pd, output
+      util.do_in(dir_name, function()
+         pd = io.popen(util.lua_cmd("main.lua"), "r")
+         output = pd:read("*a")
+      end)
+      util.assert_popen_close(0, pd:close())
+      util.assert_line_by_line([[
+         @.]] .. util.os_sep .. [[file1.tl
+      ]], output)
+   end)
+end)

spec/api/v3/runtime_target_spec.lua

@@ -0,0 +1,9 @@
+local util = require("spec.util")
+local teal = require("teal")
+
+describe("teal.runtime_target", function()
+   it("reports the set of warnings", function()
+      local target = teal.runtime_target()
+      assert.matches("5.%d", target)
+   end)
+end)

spec/api/v3/search_module_spec.lua

@@ -0,0 +1,27 @@
+local util = require("spec.util")
+local teal = require("teal")
+
+describe("teal.search_module", function()
+   it("returns a search error when a module is not found", function()
+      local filename, search_err = teal.search_module("bar.foooo")
+      assert.same(nil, filename)
+      assert.is_table(search_err)
+      assert.match("no file '.*bar[/\\]foooo.tl'", search_err[1])
+   end)
+
+   it("processes a module file given a Lua module name", function()
+      util.mock_io(finally, {
+         ["bar/foo.tl"] = [[
+            local record Foo<T>
+               bar: T
+            end
+            local type FooInteger = Foo<integer>
+            return FooInteger
+         ]],
+      })
+
+      local filename, search_err = teal.search_module("bar.foo")
+      assert.matches("^.[/\\]bar[/\\]foo.tl$", filename)
+      assert.same(nil, search_err)
+   end)
+end)

spec/api/v3/version_spec.lua

@@ -0,0 +1,9 @@
+local util = require("spec.util")
+local teal = require("teal")
+
+describe("teal.version", function()
+   it("reports a version string", function()
+      local v = teal.version()
+      assert.is_string(v)
+   end)
+end)

spec/api/v3/warning_set_spec.lua

@@ -0,0 +1,15 @@
+local util = require("spec.util")
+local teal = require("teal")
+
+describe("teal.warning_set", function()
+   it("reports the set of warnings", function()
+      local set = teal.warning_set()
+      local n = 0
+      for k, v in pairs(set) do
+         n = n + 1
+         assert.is_string(k)
+         assert.same(true, v)
+      end
+      assert(n > 0)
+   end)
+end)