Ticket #593: xapian-1.2.9-lua-smoketest.diff

xapian-bindings-1.2.

@@ -21 +21 @@
 -- Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
 -- USA
 
-require("xapian")
-
-function expect(m, n)
+---
+-- m: expected value
+-- n: obtained value
+-- msg: failure message (a string)
+function expect(m, n, msg)
+  msg = msg and msg..': ' or ''
   if type(m) == "table" then
-    assert(#m == #n)
+    assert('table' == type(n), msg..'not a table')
+    assert(#m == #n, msg..'got: '..tostring(#n)..' want: '..tostring(#m))
     for i = 1, #m do
       expect(m[i], n[i])
     end
   else
-    assert(m == n)
+    assert(m == n, msg..'got: '..(tostring(n) or '???')..' want: '..(tostring(m) or '???'))
   end
 end
 
 function run_tests()
+  print('Xapian Lua binding smoke test...')
+
+  -- require must return module table
+  local xap = require'xapian'
+  expect(true, nil ~= xap, 'xapian returned by require is nil')
+  expect('table', type(xap), 'xapian returned by require is not a table')
+  -- require must set global "xapian"
+  expect(true, nil ~= xapian, 'global xapian is nil')
+  expect('table', type(xapian), 'global xapian is not a table')
+
   stem = xapian.Stem("english")
   doc = xapian.Document()
   doc:set_data("is there anybody out there?")
@@ -63 +77 @@
 
   -- Test stem
   expect(tostring(stem), "Xapian::Stem(english)")
-  expect("is", stem("is"))
-  expect("go", stem("going"))
-  expect("want", stem("wanted"))
-  expect("refer", stem("reference"))
+  expect("is", stem("is"), 'stem noop "is" fails')
+  expect("go", stem("going"), 'stem noop "go" fails')
+  expect("want", stem("wanted"), 'stem(english) "wanted" -> "want" fails')
+  expect("refer", stem("reference"), 'stem(english) "reference" -> "refer" fails')
 
   -- Test document
   expect(doc:termlist_count(), 5)
@@ -76 +90 @@
 
   -- Test database
   expect(tostring(db), "WritableDatabase()")
-  expect(db:get_doccount(), 1)
+  expect(db:get_doccount(), 1, 'db should have 1 document')
 
   term_count = 0
   for term in db:allterms() do
@@ -193 +207 @@
     for j = 0, #a -1 do
       hit = mset:get_hit(j)
       if hit:get_docid() ~= a[j + 1] then
-        print(string.format("Expected MSet[%i] to be %i, got %i.\n", j, a[j + 1], hit:get_docid()))
-        os.exit(-1)
+        print(string.format("Expected MSet[%i] to be %i, got %i.\n", j, a[j + 1], hit:get_docid()))
+        os.exit(-1)
       end
     end
   end