flok 0.0.36 → 0.0.38

data/spec/kern/assets/service1.rb

@@ -0,0 +1,22 @@
+service :my_service do
+  on_wakeup %{
+    every_ticks = 0;
+    on_wakeup_called = true; 
+  }
+
+  on_sleep %{
+    on_sleep_called = true;
+  }
+
+  on_connect %{
+    on_connect_called = true;
+  }
+
+  on_disconnect %{
+    on_disconnect_called = true;
+  }
+
+  every 1.seconds, %{
+    every_ticks += 1;
+  }
+end

data/spec/kern/assets/service2.rb

@@ -0,0 +1,27 @@
+service :my_service do
+  on_wakeup %{
+  }
+
+  on_sleep %{
+  }
+
+  on_connect %{
+    connect_bp = bp;
+    connect_sessions = Object.keys(sessions);
+  }
+
+  on_disconnect %{
+    disconnect_bp = bp;
+    disconnect_sessions = Object.keys(sessions);
+  }
+
+  every 1.seconds, %{
+    every_ticks_sessions = Object.keys(sessions);
+  }
+
+  on "ping", %{
+    ping_bp = bp;
+    ping_params = params;
+    ping_sessions = Object.keys(sessions);
+  }
+end

data/spec/kern/assets/service_config0.rb

@@ -0,0 +1,2 @@
+#Simple service config that uses built-in spec service to create a instance called 'spec'
+service_instance :spec, :test

data/spec/kern/assets/service_config1.rb

@@ -0,0 +1,2 @@
+#Simple service config that uses built-in spec service to create a instance called 'spec'
+service_instance :spec, :my_service

data/spec/kern/assets/service_controller0.rb

@@ -0,0 +1,13 @@
+controller :my_controller do
+  spots "hello", "world"
+  services :spec
+
+  action :my_action do
+    on_entry %{
+    }
+
+    on "ping", %{
+      ping_called = true;
+    }
+  end
+end

data/spec/kern/assets/service_controller1.rb

@@ -0,0 +1,32 @@
+controller :my_controller do
+  spots "hello", "world"
+
+  action :my_action do
+    on_entry %{
+      Embed("my_other_controller", "hello", {});
+    }
+
+    on "next", %{
+      Goto("my_other_action");
+    }
+  end
+
+  action :my_other_action do
+    on_entry %{
+    }
+
+    on "next", %{
+      Goto("my_action");
+    }
+  end
+
+end
+
+controller :my_other_controller do
+  services :spec
+
+  action :my_action do
+    on_entry %{
+    }
+  end
+end

data/spec/kern/assets/service_controller2.rb

@@ -0,0 +1,38 @@
+controller :my_controller do
+  spots "hello", "world"
+
+  action :my_action do
+    on_entry %{
+      Embed("my_other_controller", "hello", {});
+    }
+
+    on "next", %{
+      Goto("my_other_action");
+    }
+  end
+
+  action :my_other_action do
+    on_entry %{
+    }
+
+    on "next", %{
+      Goto("my_action");
+    }
+  end
+
+end
+
+controller :my_other_controller do
+  services :spec
+
+  action :my_action do
+    on_entry %{
+      my_base = __base__;
+      var info = {
+        hello: "world"
+      }
+      Request("spec", "ping", info);
+    }
+  end
+end
+

data/spec/kern/assets/service_controller3.rb

@@ -0,0 +1,38 @@
+controller :my_controller do
+  spots "hello", "world"
+
+  action :my_action do
+    on_entry %{
+      Embed("my_other_controller", "hello", {});
+    }
+
+    on "next", %{
+      Goto("my_other_action");
+    }
+  end
+
+  action :my_other_action do
+    on_entry %{
+    }
+
+    on "next", %{
+      Goto("my_action");
+    }
+  end
+
+end
+
+controller :my_other_controller do
+  services :spec
+
+  action :my_action do
+    on_entry %{
+      my_base = __base__;
+      var info = {
+        hello: "world"
+      }
+      Request("no_such_service", "ping", info);
+    }
+  end
+end
+

data/spec/kern/assets/vm/config0.rb

@@ -0,0 +1,2 @@
+#Simple service config that uses built-in spec service to create a instance called 'spec'
+service_instance :vm, :vm

data/spec/kern/assets/vm/config1.rb

@@ -0,0 +1,12 @@
+#Simple service config that uses built-in spec service to create a instance called 'spec'
+service_instance :vm, :vm, {
+  :pagers => [
+    {
+      :name => "spec0",
+      :namespace => "user",
+      :options => {
+        "hello" => "world"
+      }
+    }
+  ]
+}

data/spec/kern/assets/vm/config2.rb

@@ -0,0 +1,12 @@
+#Simple service config that uses built-in spec service to create a instance called 'spec'
+service_instance :vm, :vm, {
+  :pagers => [
+    {
+      :name => "spec1",
+      :namespace => "user",
+      :options => {
+        "hello" => "world"
+      }
+    }
+  ]
+}

data/spec/kern/assets/vm/config3.rb

@@ -0,0 +1,12 @@
+#Simple service config that uses built-in spec service to create a instance called 'spec'
+service_instance :vm, :vm, {
+  :pagers => [
+    {
+      :name => "spec2",
+      :namespace => "user",
+      :options => {
+        "hello" => "world"
+      }
+    }
+  ]
+}

data/spec/kern/assets/vm/controller0.rb

@@ -0,0 +1,8 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+    }
+  end
+end

data/spec/kern/assets/vm/controller1.rb

@@ -0,0 +1,18 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var info = {
+        ns: "user",
+        key: 33
+      };
+
+      Request("vm", "read_sync", info);
+    }
+
+    on "read_res", %{
+      read_res_params = params;
+    }
+  end
+end

data/spec/kern/assets/vm/controller2.rb

@@ -0,0 +1,18 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var info = {
+        ns: "user",
+        key: 33
+      };
+
+      Request("vm", "read", info);
+    }
+
+    on "read_res", %{
+      read_res_params = params;
+    }
+  end
+end

data/spec/kern/assets/vm/controller3.rb

@@ -0,0 +1,20 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var info = {
+        ns: "user",
+        key: 33,
+        value: 22
+      };
+
+      Request("vm", "write", info);
+      Request("vm", "read", info);
+    }
+
+    on "read_res", %{
+      read_res_params = params;
+    }
+  end
+end

data/spec/kern/assets/vm/controller4.rb

@@ -0,0 +1,22 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var info = {
+        ns: "user",
+        key: 33,
+        value: 22
+      };
+
+      Request("vm", "write", info);
+      Request("vm", "read", info);
+      Request("vm", "read", info);
+      Request("vm", "read_sync", info);
+    }
+
+    on "read_res", %{
+      read_res_params = params;
+    }
+  end
+end

data/spec/kern/assets/vm/controller5.rb

@@ -0,0 +1,22 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      //Send a request
+      var info = {
+        ns: "user",
+        key: "my_key",
+        value: "my_value"
+      };
+
+      read_res_called_with = [];
+      Request("vm", "read", info);
+      Request("vm", "read", info);
+    }
+
+    on "read_res", %{
+      read_res_called_with.push(params);
+    }
+  end
+end

data/spec/kern/assets/vm/controller6.rb

@@ -0,0 +1,21 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      //Send a request
+      var info = {
+        ns: "user",
+        key: "my_key"
+      };
+
+      read_res_called_with = [];
+      Request("vm", "read", info);
+      Request("vm", "watch", info);
+    }
+
+    on "read_res", %{
+      read_res_called_with.push(params);
+    }
+  end
+end

data/spec/kern/assets/vm/service0.rb

@@ -0,0 +1,24 @@
+service :my_service do
+  on_wakeup %{
+    on_wakeup_called = true; 
+  }
+
+  on_sleep %{
+    on_sleep_called = true;
+  }
+
+  on_connect %{
+    on_connect_called = true;
+  }
+
+  on_disconnect %{
+    on_disconnect_called = true;
+  }
+
+  every 1.seconds, %{
+    for (var i = 0; i < Object.keys(sessions).length; ++i) {
+      var bp = Object.keys(sessions)[i];
+      int_event(bp, "ping", {});
+    }
+  }
+end

data/spec/kern/assets/vm/service_controller0.rb

@@ -0,0 +1,7 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+    }
+  end

data/spec/kern/callout_spec.rb

@@ -0,0 +1,153 @@
+Dir.chdir File.join File.dirname(__FILE__), '../../'
+require './spec/env/kern.rb'
+require './spec/lib/helpers.rb'
+require './spec/lib/io_extensions.rb'
+require './spec/lib/rspec_extensions.rb'
+
+RSpec.describe "kern:timer_service_spec" do
+  include_context "kern"
+
+it "Can register for single-shot a callout event 1 tick in the future" do
+    #Compile the controller
+    ctx = flok_new_user File.read('./spec/kern/assets/blank.rb')
+
+    #Register callout
+    ctx.eval %{
+      //Can accept an event via int_event
+      function event_handler(ep, ename, info) {
+        event_handler_ep = ep;
+        event_handler_ename = ename;
+      }
+      reg_evt(9, event_handler);
+
+      //Send the 'test' event in one tick to the 9 event function
+      reg_timeout(9, "test", 1);
+    }
+
+    @driver.int("int_timer")
+
+    ep = ctx.eval("event_handler_ep")
+    ename = ctx.eval("event_handler_ename")
+    expect(ep).to eq(9)
+    expect(ename).to eq("test")
+  end
+
+ it "Can register for an interval callout event 1 tick in the future" do
+    #Compile the controller
+    ctx = flok_new_user File.read('./spec/kern/assets/blank.rb')
+
+    #Register callout
+    ctx.eval %{
+      //Can accept an event via int_event
+      times_called = 0;
+      function event_handler(ep, ename, info) {
+        times_called += 1;
+      }
+      reg_evt(9, event_handler);
+
+      //Send the 'test' event in one tick to the 9 event function
+      reg_interval(9, "test", 1);
+    }
+
+    @driver.int("int_timer")
+    @driver.int("int_timer")
+
+    times_called = ctx.eval("times_called")
+    expect(times_called).to eq(2);
+  end
+
+ it "only calls timeout event once" do
+    #Compile the controller
+    ctx = flok_new_user File.read('./spec/kern/assets/blank.rb')
+
+    #Register callout
+    ctx.eval %{
+      //Can accept an event via int_event
+      times_called = 0;
+      function event_handler(ep, ename, info) {
+        times_called += 1;
+      }
+      reg_evt(9, event_handler);
+
+      //Send the 'test' event in one tick to the 9 event function
+      reg_timeout(9, "test", 1);
+    }
+
+    @driver.int("int_timer")
+    @driver.int("int_timer")
+
+    times_called = ctx.eval("times_called")
+    expect(times_called).to eq(1);
+  end
+
+  it "does have nothing left in queue after one timeout" do
+    #Compile the controller
+    ctx = flok_new_user File.read('./spec/kern/assets/blank.rb')
+
+    #Register callout
+    ctx.eval %{
+      //Can accept an event via int_event
+      function event_handler(ep, ename, info) {
+      }
+      reg_evt(9, event_handler);
+
+      //Send the 'test' event in one tick to the 9 event function
+      reg_timeout(9, "test", 1);
+    }
+
+    @driver.int("int_timer")
+
+    res = JSON.parse(ctx.eval("JSON.stringify(callout_queue)"))
+    expect(res).to eq({});
+  end
+
+  it "does have left in queue after interval" do
+    #Compile the controller
+    ctx = flok_new_user File.read('./spec/kern/assets/blank.rb')
+
+    #Register callout
+    ctx.eval %{
+      //Can accept an event via int_event
+      function event_handler(ep, ename, info) {
+      }
+      reg_evt(9, event_handler);
+
+      //Send the 'test' event in one tick to the 9 event function
+      reg_interval(9, "test", 1);
+    }
+
+    @driver.int("int_timer")
+
+    res = JSON.parse(ctx.eval("JSON.stringify(callout_queue)"))
+    expect(res).not_to eq({});
+  end
+
+  it "does NOT have left in queue after interval if event receiver is gone" do
+    #Compile the controller
+    ctx = flok_new_user File.read('./spec/kern/assets/blank.rb')
+
+    #Register callout
+    ctx.eval %{
+      //Can accept an event via int_event
+      times_called = 0;
+      function event_handler(ep, ename, info) {
+        times_called += 1;
+      }
+      reg_evt(9, event_handler);
+
+      //Send the 'test' event in one tick to the 9 event function
+      reg_interval(9, "test", 1);
+    }
+
+    @driver.int("int_timer")
+
+    ctx.eval "dereg_evt(9);"
+    @driver.int("int_timer")
+
+    times_called = ctx.eval("times_called")
+    expect(times_called).to eq(1);
+
+    res = JSON.parse(ctx.eval("JSON.stringify(callout_queue)"))
+    expect(res).to eq({});
+  end
+end