tests/run.lua

@@ -13,7 +13,6 @@ test_sources = {
   "tests/local.lua",
   "tests/network.lua",
   "tests/timeout.lua",
-  "tests/misc.lua",
 }
 for _, source in ipairs(test_sources) do
   loadfile("./tests/"..source)()

tests/tests/cleanup.lua

@@ -68,32 +68,6 @@ function test.clean_network2()
   end, "unknown")
 end
 
-function test.clean_network_listener()
-  local bc1 = BaseControl:new()
-  local addr1 = network.get_scene()
-  bc1:register("clnlin1", 1234)
-  bc1:finalize()
-
-  local bc2 = BaseControl:new()
-  local addr2 = network.get_scene()
-
-  local tmp
-  bc2:listen("clnlin1", bc1.Query.Change, function(new)
-    test.equal(tmp, new, "value did not propagate")
-  end)
-
-  network.set_scene(addr1)
-  tmp = 13
-  bc1:set("clnlin1", 13)
-
-  network.set_scene(addr2)
-  bc2:close()
-
-  network.set_scene(addr1)
-  -- if the listener wasn't cleaned properly, this will fail
-  bc1:set("clnlin1", 16)
-end
-
 function test.unclean_deregister()
   local bc = BaseControl:new()
   local addr = network.get_scene()

tests/tests/dirty.lua

@@ -77,7 +77,6 @@ function test.finalize_robust()
     serialization.serialize({
       ty=BaseControl.Message.Register,
       nouns={"finaln2"},
-      verbs={"finalv2", "finalv3"},
     })
   )
 
@@ -97,14 +96,11 @@ function test.finalize_robust()
     BaseControl.Network.default_port,
     serialization.serialize({
       ty=BaseControl.Message.Register,
-      nouns={"finaln3", "finaln4"},
+      nouns={"finaln3"},
     })
   )
 
-  bc2:finalize{
+  bc2:finalize{"finaln1", "finaln2", "finaln3"}
-    "finaln1", "finaln2", "finaln3",
-    "finaln4", "finalv2", "finalv3",
-  }
 
   test.is_true(bc2:has_noun("finaln1"), "noun missing")
   test.is_true(bc2:has_noun("finaln2"), "noun missing")

tests/tests/local.lua

@@ -47,11 +47,6 @@ function test.register()
   test.error_raised(function()
     bc:register("register3", 12)
   end, "already registered")
-
-  bc:register("register4", function() end)
-  test.error_raised(function()
-    bc:register("register4", function() end)
-  end, "already registered")
 end
 
 function test.register_batch()
@@ -148,18 +143,13 @@ function test.call_verb()
   end)
   bc:finalize()
 
-  local ret = bc:call("call1", 1, 2)
+  bc:call("call1", 1, 2)
   test.equal(3, flag1, "call failed")
   test.equal(1, flag2, "call failed")
-  test.equal(true, ret, "call not attempted")
 
-  local ret = bc:call("call1", 10, 10)
+  bc:call("call1", 10, 10)
   test.equal(20, flag1, "call failed")
   test.equal(2, flag2, "call failed")
-  test.equal(true, ret, "call not attempted")
-
-  local ret = bc:call("call2", 1, 2, 3)
-  test.equal(false, ret, "call erroneously attempted")
 end
 
 function test.has_iter_verbs()

tests/tests/misc.lua

@@ -1,59 +0,0 @@
-local test = require("u-test")
-
-local serialization = require("serialization")
-local computer = require("computer")
-local uuid = require("uuid")
-
-local computer_uptime_saved
-function test.os_clock.start_up()
-  computer_uptime_saved = computer.uptime
-  computer.uptime = nil
-end
-function test.os_clock.tear_down()
-  computer.uptime = computer_uptime_saved
-  -- Force reload of the module
-  package.loaded.bc = nil
-  local BaseControl = require("bc")
-end
-
-function test.os_clock.test_monkeypatched()
-  -- Force reload of the module
-  package.loaded.bc = nil
-  local BaseControl = require("bc")
-
-  -- Test a timeout to prove it works
-  local bc1 = BaseControl:new()
-  test.error_raised(function()
-    bc1:finalize({"to_final1"}, 0.1)
-  end, "timeout")
-end
-
-local uuid_next_saved
-function test.uuid.start_up()
-  uuid_next_saved = uuid.next
-  uuid.next = nil
-end
-function test.uuid.tear_down()
-  uuid.next = uuid_next_saved
-  -- Force reload of the module
-  package.loaded.bc = nil
-  local BaseControl = require("bc")
-end
-
-function test.uuid.test_monkeypatched()
-  -- Force reload of the module
-  package.loaded.bc = nil
-  local BaseControl = require("bc")
-
-  -- Test a listener as this will use a uuid
-  local bc = BaseControl:new()
-  bc:register("lisuuid1", 1234)
-  bc:finalize()
-
-  local id1 = bc:listen(
-    "lisuuid1", bc.Query.Change, function(new) end)
-  local id2 = bc:listen(
-    "lisuuid1", bc.Query.Change, function(new) end)
-
-  test.not_equal(id1, id2, "uuid collision")
-end

tests/tests/network.lua

@@ -64,9 +64,6 @@ function test.call_sync()
   test.equal(40, ret, "local sync not correct")
   test.equal("hello", val, "local sync not multiple")
   test.equal(2, n, "wrong invokation number")
-  test.error_raised(function()
-    bc1:call_sync("sync404", 1, 2, 3)
-  end, "unknown verb")
 
   -- Test remote
   local bc2 = BaseControl:new()
@@ -75,7 +72,4 @@ function test.call_sync()
   test.equal(40, ret, "local sync not correct")
   test.equal("hello", val, "local sync not multiple")
   test.equal(4, n, "wrong invokation number")
-  test.error_raised(function()
-    bc2:call_sync("sync404", 1, 2, 3)
-  end, "unknown verb")
 end