summaryrefslogtreecommitdiff
path: root/city
diff options
context:
space:
mode:
Diffstat (limited to 'city')
-rw-r--r--city/geometry-test.lua24
-rw-r--r--city/geometry.lua28
-rw-r--r--city/minunit.lua29
-rw-r--r--city/quadtree.lua0
-rw-r--r--city/test.lua3
5 files changed, 84 insertions, 0 deletions
diff --git a/city/geometry-test.lua b/city/geometry-test.lua
new file mode 100644
index 0000000..ab3265d
--- /dev/null
+++ b/city/geometry-test.lua
@@ -0,0 +1,24 @@
+local test = require('minunit').test
+local geom = require 'geometry'
+
+test(
+ 'create point object',
+ function()
+ local pt = geom.point(1, 5.5)
+ assert(pt.x == 1)
+ assert(pt.y == 5.5)
+ local mt = getmetatable(pt)
+ assert(mt.__index == geom.point)
+ end
+)
+
+test(
+ 'point distances',
+ function()
+ local a = geom.point(1, 3)
+ local b = geom.point(4, 7)
+ assert(a:distance_to(b) == 5)
+
+ assert(a:distance_to(a) == 0)
+ end
+)
diff --git a/city/geometry.lua b/city/geometry.lua
new file mode 100644
index 0000000..47e6a78
--- /dev/null
+++ b/city/geometry.lua
@@ -0,0 +1,28 @@
+local geom = {}
+
+-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+--
+-- point
+--
+-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+local point = {
+ __call = function(_, x, y)
+ local pt = {}
+ pt.x = x
+ pt.y = y
+ setmetatable(pt, {__index=_})
+ return pt
+ end,
+
+ distance_to = function(self, pt)
+ local d_x = self.x - pt.x
+ local d_y = self.y - pt.y
+ return math.sqrt(d_x*d_x + d_y*d_y)
+ end,
+}
+setmetatable(point, point)
+geom.point = point
+
+
+return geom
diff --git a/city/minunit.lua b/city/minunit.lua
new file mode 100644
index 0000000..7f735e6
--- /dev/null
+++ b/city/minunit.lua
@@ -0,0 +1,29 @@
+local tests_run = 0
+local tests_failed = 0
+
+local function printf(fmt, ...)
+ print(string.format(fmt, ...))
+end
+
+function test(description, testfunc)
+ tests_run = tests_run + 1
+ local ok, err = pcall(testfunc)
+ if ok then
+ printf('\t%s: OK', description)
+ else
+ printf('\t%s: FAIL\n\t%s\n', description, err)
+ tests_failed = tests_failed + 1
+ end
+end
+
+function suite(name)
+ local n_tests_old = tests_run
+ local n_failed_old = tests_failed
+ printf('suite: %s', name)
+ require(name)
+ printf('\tran %d tests, %d failed',
+ tests_run - n_tests_old,
+ tests_failed - n_failed_old)
+end
+
+return { test=test, suite=suite }
diff --git a/city/quadtree.lua b/city/quadtree.lua
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/city/quadtree.lua
diff --git a/city/test.lua b/city/test.lua
new file mode 100644
index 0000000..dd4652f
--- /dev/null
+++ b/city/test.lua
@@ -0,0 +1,3 @@
+local run_suite = require('minunit').run_suite
+
+suite('geometry-test')