forth-stuff/tests.lua

101 lines
2.7 KiB
Lua
Raw Normal View History

2021-05-19 05:41:01 +00:00
local istream = require("InputStream")
local ds = require("DataStructures")
local Stack, Dictionary, WordInfo, Environment = ds.Stack, ds.Dictionary, ds.WordInfo, ds.Environment
function pushThree(s)
s:push(1)
s:push(2)
s:push(3)
end
describe("Stack Tests", function()
local stack = Stack:new()
it("fails on stack underflow", function()
stack = Stack:new()
assert.has.errors(function()
stack:pop()
end)
end)
it("pushes three items properly", function()
stack = Stack:new()
pushThree(stack)
assert.are.same(stack.contents, {1,2,3})
end)
it("pops three items properly", function()
stack = Stack:new()
pushThree(stack)
assert.are.same(stack.contents, {1,2,3})
assert(3 == stack:pop())
assert.are.same(stack.contents, {1,2})
assert(2 == stack:pop())
assert.are.same(stack.contents, {1})
assert(1 == stack:pop())
assert.are.same(stack.contents, {})
assert.has.errors(function()
stack:pop()
end)
end)
it("PUSH 1, 2, 3, POP = 3, PUSH 4 = {1,2,4}", function()
stack = Stack:new()
pushThree(stack)
assert(3 == stack:pop())
assert.are.same(stack.contents, {1, 2})
stack:push(4)
assert.are.same(stack.contents, {1, 2, 4})
end)
end)
local function dummyInput()
return "1234567890"
end
describe("InputStream tests", function()
local input = istream:new(dummyInput)
it("gets a new refill accurately", function()
2021-05-19 06:26:57 +00:00
input = istream:new(dummyInput)
2021-05-19 05:41:01 +00:00
assert.are.equal(input.refill, dummyInput)
end)
it("reads text properly", function()
input = istream:new(dummyInput)
local inputString = dummyInput()
for i = 0, 100 do
local j = i % #inputString + 1
2021-05-19 06:26:57 +00:00
assert.are.same(inputString:sub(j, j), input:advance())
2021-05-19 05:41:01 +00:00
end
end)
end)
describe("WordInfo tests", function()
local Environment = ds.Environment
local WordInfo = ds.WordInfo
it("creates and doesn't crash", function()
local env = Environment:new()
wi = WordInfo:new(function(env) end, false)
end)
end)
describe("Dictionary tests", function()
local Dictionary = ds.Dictionary
local WordInfo = ds.WordInfo
local Environment = ds.Environment
it("defines without breaking",function()
local env = Environment:new()
local dict = Dictionary:new()
local wi = WordInfo:new(function(env) end, false)
dict:define("TEST",wi)
end)
2021-05-19 06:26:57 +00:00
it("can get WordInfo back after it being defined", function()
local env = Environment:new()
local dict = Dictionary:new()
local wi = WordInfo:new(function(env) end, false)
dict:define("TEST",wi)
assert.are.same(dict:lookup("TEST"),wi)
end)
2021-05-19 05:41:01 +00:00
end)