Rework LuCI build system

[project/luci.git] / libs / luci-lib-nixio / axTLS / www / lua / test_lib.lua

diff --git a/libs/luci-lib-nixio/axTLS/www/lua/test_lib.lua b/libs/luci-lib-nixio/axTLS/www/lua/test_lib.lua
new file mode 100644 (file)
index 0000000..5041253
--- /dev/null
+++ b/libs/luci-lib-nixio/axTLS/www/lua/test_lib.lua
@@ -0,0 +1,31 @@
+local function getfield (t, f)
+  for w in string.gfind(f, "[%w_]+") do
+    if not t then return nil end
+    t = t[w]
+  end
+  return t
+end
+
+function test_lib (libname)
+       local ok, err = pcall (require, libname)
+       if not ok then
+               cgilua.put ("Library <tt><b>"..libname.."</b></tt> not found<br>\n"..
+                       err)
+       else
+               cgilua.put ("Library <tt><b>"..libname.."</b></tt><br>\n")
+               local t = getfield (_G, libname)
+               if type(t) ~= "table" then
+                       cgilua.put (tostring(t))
+               else
+                       for i, v in pairs (t) do
+                               cgilua.put ("&nbsp;&nbsp;"..tostring(i).." = "..tostring(v).."<br>\n")
+                       end
+               end
+       end
+       cgilua.put ("\n<p>\n")
+end
+
+cgilua.htmlheader ()
+for _, lib in ipairs { "lfs", "socket", "luasql.postgres", "luasql", "lxp", "lxp.lom", "lualdap", "htk", "xmlrpc", "xmlrpc.http" } do
+       test_lib (lib)
+end