Setup Busted test framework and start porting tests

.busted

@@ -0,0 +1,6 @@
+return {
+  default = {
+    lpath = "./lua/?.lua;./lua/?/init.lua",
+  }
+}
+-- vim: ft=lua

.luacheckrc

@@ -14,6 +14,7 @@ not_globals = {
 include_files = {
   "**/*.lua",
   "*.rockspec",
+  ".busted",
   ".luacheckrc",
 }
 

.travis.yml

@@ -16,11 +16,13 @@ before_install:
   - hererocks here -r^ --$LUA
   - source here/bin/activate
   - luarocks install luacov-coveralls
+  - luarocks install busted
 
 install:
   - luarocks make
 
 script:
+  - busted -c -v
   - lua run.lua tests --luacov
   - lua run.lua examples
 

appveyor.yml

@@ -20,11 +20,13 @@ before_build:
   - call here\bin\activate
   - "if \"%LUA%\"==\"lua 5.4\" ( luarocks install bit32 )"
   - luarocks install luacov-coveralls
+  - luarocks install busted
 
 build_script:
   - luarocks make
 
 test_script:
+  - busted -c -v
   - lua run.lua tests --luacov
   - lua run.lua examples
 

penlight-dev-1.rockspec

@@ -26,6 +26,14 @@ dependencies = {
   "luafilesystem"
 }
 
+test_dependencies = {
+  "busted",
+}
+
+test = {
+  type = "busted",
+}
+
 build = {
   type = "builtin",
   modules = {

spec/app_spec.lua

@@ -0,0 +1,15 @@
+local app = require("pl.app")
+
+describe("pl.app.lua", function ()
+
+  local invocation = app.lua()
+
+  it("should pick up the arguments used to run this test", function ()
+    assert.is.truthy(invocation:match("lua.+package.+busted"))
+  end)
+
+  it("should be reusable to invoke Lua", function ()
+    assert.is.truthy(os.execute(app.lua()..' -e "n=1;os.exit(n-1)"'))
+  end)
+
+end)

spec/date_spec.lua

@@ -0,0 +1,11 @@
+local Date = require("pl.Date")
+
+describe("pl.Date:__tostring()", function ()
+
+  it("should be suitable for serialization", function ()
+    local df = Date.Format()
+    local du = df:parse("2008-07-05")
+    assert.is.equal(du, du:toUTC())
+  end)
+
+end)

spec/text_spec.lua

@@ -0,0 +1,11 @@
+local text = require("pl.text")
+
+describe("pl.text.Template", function ()
+
+  it("replaces placeholders", function ()
+    local tempalte = text.Template("${here} is the $answer")
+    local out = tempalte:substitute({ here = 'one', answer = 'two' })
+    assert.is.equal('one is the two', out)
+  end)
+
+end)

tests/test-date.lua

@@ -1,6 +1,5 @@
 local test = require 'pl.test'
 local app = require 'pl.app'
-local utils = require 'pl.utils'
 local asserteq, assertmatch = test.asserteq, test.assertmatch
 local dump = require 'pl.pretty'.dump
 local T = require 'pl.test'.tuple
@@ -121,8 +120,4 @@ local now,utc  = Date(), Date 'utc'
 asserteq(tostring(now - utc),'zero')
 
 if app.platform() ~= 'Windows' then
-    print(app.lua())
-    if not utils.execute ("TZ='Europe/London' "..app.lua().." tests/test-date2.lua") then
-        error "buggered!"
-    end
 end