Oops, never added the tests for s2smanager to the repo
authorMatthew Wild <mwild1@gmail.com>
Thu, 20 Nov 2008 21:06:27 +0000 (21:06 +0000)
committerMatthew Wild <mwild1@gmail.com>
Thu, 20 Nov 2008 21:06:27 +0000 (21:06 +0000)
tests/test_core_s2smanager.lua [new file with mode: 0644]

diff --git a/tests/test_core_s2smanager.lua b/tests/test_core_s2smanager.lua
new file mode 100644 (file)
index 0000000..69715b2
--- /dev/null
@@ -0,0 +1,38 @@
+function compare_srv_priorities(csp)
+       local r1 = { priority = 10, weight = 0 }
+       local r2 = { priority = 100, weight = 0 }
+       local r3 = { priority = 1000, weight = 2 }
+       local r4 = { priority = 1000, weight = 2 }
+       local r5 = { priority = 1000, weight = 5 }
+       
+       assert_equal(csp(r1, r1), false);
+       assert_equal(csp(r1, r2), true);
+       assert_equal(csp(r1, r3), true);
+       assert_equal(csp(r1, r4), true);
+       assert_equal(csp(r1, r5), true);
+
+       assert_equal(csp(r2, r1), false);
+       assert_equal(csp(r2, r2), false);
+       assert_equal(csp(r2, r3), true);
+       assert_equal(csp(r2, r4), true);
+       assert_equal(csp(r2, r5), true);
+
+       assert_equal(csp(r3, r1), false);
+       assert_equal(csp(r3, r2), false);
+       assert_equal(csp(r3, r3), false);
+       assert_equal(csp(r3, r4), false);
+       assert_equal(csp(r3, r5), true);
+
+       assert_equal(csp(r4, r1), false);
+       assert_equal(csp(r4, r2), false);
+       assert_equal(csp(r4, r3), false);
+       assert_equal(csp(r4, r4), false);
+       assert_equal(csp(r4, r5), true);
+
+       assert_equal(csp(r5, r1), false);
+       assert_equal(csp(r5, r2), false);
+       assert_equal(csp(r5, r3), false);
+       assert_equal(csp(r5, r4), false);
+       assert_equal(csp(r5, r5), false);
+
+end