Added tests for Manhattan

Yonaba · Yonaba · commit 4d0e26327267 · 2014-03-31T21:25:04.000Z
Added tests for Chebyshev
Added tests for Minkowski
Added tests for Euclidean
diff --git a/Chebyshev_distance/Lua/Yonaba/chebyshev_distance_test.lua b/Chebyshev_distance/Lua/Yonaba/chebyshev_distance_test.lua
@@ -0,0 +1,35 @@
+-- Tests for chebyshev_distance.lua
+local cdist = require 'chebyshev_distance'
+
+local total, pass = 0, 0
+
+local function dec(str, len)
+  return #str < len
+     and str .. (('.'):rep(len-#str))
+      or str:sub(1,len)
+end
+
+
+local function run(message, f)
+  total = total + 1
+  local ok, err = pcall(f)
+  if ok then pass = pass + 1 end
+  local status = ok and 'PASSED' or 'FAILED'
+  print(('%02d. %68s: %s'):format(total, dec(message,68), status))
+end
+
+-- Fuzzy equality test
+local function fuzzyEqual(a, b)
+  return math.abs(a-b) < 1e-8
+end
+
+run('Chebyshev distance test', function()
+  assert(cdist({},{}), 0)
+  assert(cdist({1,2,3},{4,5,6}), 3)
+  assert(cdist({1,2,-1},{4,4,6}), 7)
+  assert(not pcall(cdist,{1,2,3},{4,5}))
+end)
+
+print(('-'):rep(80))
+print(('Total : %02d: Pass: %02d - Failed : %02d - Success: %.2f %%')
+  :format(total, pass, total-pass, (pass*100/total)))
diff --git a/Euclidean_distance/Lua/Yonaba/euclidean_distance_test.lua b/Euclidean_distance/Lua/Yonaba/euclidean_distance_test.lua
@@ -0,0 +1,34 @@
+-- Tests for euclidean_distance.lua
+local edist = require 'euclidean_distance'
+
+local total, pass = 0, 0
+
+local function dec(str, len)
+  return #str < len
+     and str .. (('.'):rep(len-#str))
+      or str:sub(1,len)
+end
+
+
+local function run(message, f)
+  total = total + 1
+  local ok, err = pcall(f)
+  if ok then pass = pass + 1 end
+  local status = ok and 'PASSED' or 'FAILED'
+  print(('%02d. %68s: %s'):format(total, dec(message,68), status))
+end
+
+-- Fuzzy equality test
+local function fuzzyEqual(a, b)
+  return math.abs(a-b) < 1e-8
+end
+
+run('Euclidian distance test', function()
+  assert(fuzzyEqual(edist({},{}), 0))
+  assert(fuzzyEqual(edist({1,2,3},{4,5,6}), math.sqrt(3*3^2)))
+  assert(not pcall(edist,{1,2,3},{4,5}))
+end)
+
+print(('-'):rep(80))
+print(('Total : %02d: Pass: %02d - Failed : %02d - Success: %.2f %%')
+  :format(total, pass, total-pass, (pass*100/total)))
diff --git a/Manhattan_distance/Lua/Yonaba/manhattan_distance_test.lua b/Manhattan_distance/Lua/Yonaba/manhattan_distance_test.lua
@@ -0,0 +1,33 @@
+-- Tests for manhattan_distance.lua
+local mdist = require 'manhattan_distance'
+
+local total, pass = 0, 0
+
+local function dec(str, len)
+  return #str < len
+     and str .. (('.'):rep(len-#str))
+      or str:sub(1,len)
+end
+
+local function run(message, f)
+  total = total + 1
+  local ok, err = pcall(f)
+  if ok then pass = pass + 1 end
+  local status = ok and 'PASSED' or 'FAILED'
+  print(('%02d. %68s: %s'):format(total, dec(message,68), status))
+end
+
+-- Fuzzy equality test
+local function fuzzyEqual(a, b)
+  return math.abs(a-b) < 1e-8
+end
+
+run('Manhattan distance test', function()
+  assert(mdist({},{}), 0)
+  assert(mdist({1,2,3},{4,5,6}), 9)
+  assert(not pcall(mdist,{1,2,3},{4,5}))
+end)
+
+print(('-'):rep(80))
+print(('Total : %02d: Pass: %02d - Failed : %02d - Success: %.2f %%')
+  :format(total, pass, total-pass, (pass*100/total)))
diff --git a/Minkowski_distance/Lua/Yonaba/minkowski_distance_test.lua b/Minkowski_distance/Lua/Yonaba/minkowski_distance_test.lua
@@ -0,0 +1,34 @@
+-- Tests for minkowski_distance.lua
+local mdist = require 'minkowski_distance'
+
+local total, pass = 0, 0
+
+local function dec(str, len)
+  return #str < len
+     and str .. (('.'):rep(len-#str))
+      or str:sub(1,len)
+end
+
+local function run(message, f)
+  total = total + 1
+  local ok, err = pcall(f)
+  if ok then pass = pass + 1 end
+  local status = ok and 'PASSED' or 'FAILED'
+  print(('%02d. %68s: %s'):format(total, dec(message,68), status))
+end
+
+-- Fuzzy equality test
+local function fuzzyEqual(a, b)
+  return math.abs(a-b) < 1e-8
+end
+
+run('Minkowski distance test', function()
+  assert(mdist({},{}, 1), 0)
+  assert(mdist({1,2,3},{4,5,6}, 1), 9)
+  assert(fuzzyEqual(mdist({1,2,3},{4,5,6},2), 27^(1/2)))
+  assert(not pcall(mdist,{1,2,3},{4,5}))
+end)
+
+print(('-'):rep(80))
+print(('Total : %02d: Pass: %02d - Failed : %02d - Success: %.2f %%')
+  :format(total, pass, total-pass, (pass*100/total)))
