local path = require 'pl.path'
local ok, fennel = pcall(require, 'fennel')

local ret = {}

local getTrace = function(filename, info)
  return info  -- TODO
end

local rewriteMessage = function(filename, message)
  return message  -- TODO
end

ret.match = function(busted, filename)
  return ok and path.extension(filename) == '.fnl'
end

ret.load = function(busted, filename)
  if not ok then
    error 'unable to load Fennel.'
  end

  local err = nil
  local file = function()
    return fennel.dofile(filename, {env = _G})
  end
  -- TODO: Check if filename exists and is readable
  if not file then
    busted.publish({ 'error', 'file' }, { descriptor = 'file', name = filename }, nil, err, {})
  end
  return file, getTrace, rewriteMessage
end

return ret

local function loadfile_(fname, ...)
  local file, err = io.open(fname)
  if not (file) then
    return nil, err
  end
  local text = assert(file:read("*a"))
  file:close()
  local lua = fennel.compileString(text)
  return (loadstring or load)(lua)
end