1 describe("Lua star", function()
3 -- start is always top left (1,1)
4 -- goal is always bottom right (10, 10)
5 local start = { x = 1, y = 1 }
6 local goal = { x = 10, y = 10 }
9 -- define some test maps (10 x 10)
24 local openmapSolution = {
50 local simplemapSolution = {
70 local simplemapDiagonalSolution = {
105 local complexmapSolution = {
146 local unsolvablemap = [[
159 -- convert a string map into a table
160 local function makemap(template)
162 template:gsub(".", function(c)
163 if c == "0" or c == "1" then
169 -- get the value at position xy on a map
170 local function mapTileIsOpen(x, y)
171 return map[ ((y-1) * 10) + x ] == "0"
174 local function printSolution(path)
175 print(#path, "points")
176 for i, v in ipairs(path) do
177 print(string.format("{ x = %d, y = %d },", v.x, v.y))
182 for _, p in ipairs(path) do
183 if p.x == w and p.y == h then
199 it("find a path with no obstacles", function()
201 local luastar = require("lua-star")
203 local path = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen)
204 --printSolution(path)
205 assert.are.equal(10, #path)
206 assert.are.same(openmapSolution, path)
210 it("find a path on a simple map", function()
212 local luastar = require("lua-star")
214 local path = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen)
215 --printSolution(path)
216 assert.are.equal(17, #path)
217 assert.are.same(simplemapSolution, path)
221 it("find a path on a simple map without diagonam movement", function ()
223 local luastar = require("lua-star")
224 local excludeDiagonals = true
226 local path = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen, false, excludeDiagonals)
227 --printSolution(path)
228 assert.are.equal(19, #path)
229 assert.are.same(simplemapDiagonalSolution, path)
233 it("find a path on a complex map", function()
235 local luastar = require("lua-star")
237 local path = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen)
238 --printSolution(path)
239 assert.are.equal(38, #path)
240 assert.are.same(complexmapSolution, path)
244 it("find no path", function()
246 local luastar = require("lua-star")
247 makemap(unsolvablemap)
248 local path = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen)
249 assert.is_false(path)
253 it("find no diagonal path", function()
255 local luastar = require("lua-star")
256 local excludeDiagonals = true
257 makemap(unsolvablemap)
258 local path = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen, false, excludeDiagonals)
259 assert.is_false(path)
263 it("find no diagonal path on a complex map", function()
265 local luastar = require("lua-star")
266 local excludeDiagonals = true
268 local path = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen, false, excludeDiagonals)
269 assert.is_false(path)
273 it("does not cache paths by default", function()
275 local luastar = require("lua-star")
277 local path = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen)
278 local samepath = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen)
279 assert.is_not.equal(path, samepath)
283 it("caches paths", function()
285 local luastar = require("lua-star")
287 local path = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen, true)
288 local samepath = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen, true)
289 assert.are.equal(path, samepath)
293 it("clears cached paths", function()
295 local luastar = require("lua-star")
297 local path = luastar:find(mapsize, mapsize, start, goal, mapTileIsOpen, true)
298 luastar:clearCached()
299 assert.is_nil(luastar.cache)