flok 0.0.12 → 0.0.14

data/spec/iface/kern/event_spec.rb

@@ -0,0 +1,46 @@
+Dir.chdir File.join File.dirname(__FILE__), '../../../'
+require './spec/env/iface.rb'
+require './spec/lib/helpers.rb'
+require './spec/lib/io_extensions.rb'
+require './spec/lib/rspec_extensions.rb'
+
+RSpec.describe "iface:kern:event" do
+  module_dep "event"
+  include_context "iface:kern"
+
+  #A callback was registered in the kernel for testing purposes
+  it "An event sent to the kernel will dispatch the `spec_event_handler` function and send the same info `int_event` received." do
+    @secret = SecureRandom.hex
+
+    #Wait for response
+    @pipe.puts [0, "ping"].to_json; @pipe.readline_timeout
+
+    #Send the event, we should get something back
+    @pipe.puts [3, "int_event", 3848392, "my_event", {"secret" => @secret}].to_json
+
+    res = [
+      [0, 3, "if_event", 3848392, "my_event", {"secret"=>@secret}]
+    ]
+
+    expect(@pipe).to readline_and_equal_json_x_within_y_seconds(res, 5.seconds)
+  end
+
+  it "An event sent to the kernel will NOT dispatch the `spec_event_handler` if it has been de-registered" do
+    @secret = SecureRandom.hex
+
+    #Wait for response
+    @pipe.puts [0, "ping"].to_json; @pipe.readline_timeout
+
+    #De-register event function
+    @pipe.puts [0, "int_spec_event_dereg"].to_json
+
+    #Send the event, we should get something back
+    @pipe.puts [3, "int_event", 3848392, "my_event", {"secret" => @secret}].to_json
+
+    res = [
+      [0, 3, "if_event", 3848392, "my_event", {"secret"=>@secret}]
+    ]
+
+    expect(@pipe).not_to readline_and_equal_json_x_within_y_seconds(res, 5.seconds)
+  end
+end

data/spec/iface/kern/net_spec.rb

@@ -0,0 +1,27 @@
+Dir.chdir File.join File.dirname(__FILE__), '../../../'
+require './spec/env/iface.rb'
+require './spec/lib/helpers.rb'
+require './spec/lib/io_extensions.rb'
+require './spec/lib/rspec_extensions.rb'
+
+RSpec.describe "iface:kern:net" do
+  module_dep "net"
+  include_context "iface:kern"
+
+  #A callback was registered in the kernel for testing purposes
+  it "A mock network callback should invoke the '-3209284741' telepointer callback and set int_net_cb_spec" do
+    @secret = SecureRandom.hex
+
+    #Wait for response
+    @pipe.puts [0, "ping"].to_json; @pipe.readline_timeout
+
+    @pipe.puts [3, "int_net_cb", -3209284741, true, {"secret" => @secret}].to_json
+    @pipe.puts [0, "get_int_net_cb_spec"].to_json
+
+    res = [
+      [0, 1, "get_int_net_cb_spec", [-3209284741, true, {"secret"=>@secret}]]
+    ]
+
+    expect(@pipe).to readline_and_equal_json_x_within_y_seconds(res, 5.seconds)
+  end
+end

data/spec/iface/kern/ping_spec.rb

@@ -0,0 +1,123 @@
+Dir.chdir File.join File.dirname(__FILE__), '../../../'
+require './spec/env/iface.rb'
+require 'securerandom'
+
+RSpec.describe "iface:kern:ping_spec" do
+  include_context "iface:kern"
+
+ it "supports ping" do
+    @pipe.puts [0, "ping"].to_json
+    expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[0, 0, "pong"]], 6.seconds)
+  end
+
+  it "supports ping1" do
+    arg = SecureRandom.hex
+    @pipe.puts [1, "ping1", arg].to_json
+    expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[0, 1, "pong1", arg]], 6.seconds)
+  end
+
+  it "supports ping2" do
+    arg1 = SecureRandom.hex
+    arg2 = SecureRandom.hex
+    @pipe.puts [2, "ping2", arg1, arg2].to_json
+
+    expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[0, 1, "pong2", arg1, 2, "pong2", arg1, arg2]], 6.seconds)
+  end
+
+  it "supports multi-ping" do
+    @pipe.puts [0, "ping", 0, "ping"].to_json
+
+    expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[0, 0, "pong", 0, "pong"]], 6.seconds)
+  end
+
+  it "supports multi-ping1" do
+    secret1 = SecureRandom.hex
+    secret2 = SecureRandom.hex
+    @pipe.puts [1, "ping1", secret1, 1, "ping1", secret2].to_json
+
+    expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[0, 1, "pong1", secret1, 1, "pong1", secret2]], 6.seconds)
+  end
+
+  it "supports multi-ping2" do
+    secret1 = SecureRandom.hex
+    secret2 = SecureRandom.hex
+    @pipe.puts [2, "ping2", secret1, secret2, 2, "ping2", secret2, secret1].to_json
+
+    expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[0, 1, "pong2", secret1, 2, "pong2", secret1, secret2, 1, "pong2", secret2, 2, "pong2", secret2, secret1]], 6.seconds)
+  end
+
+  it "supports multi-queue" do
+    secret1 = SecureRandom.hex
+    secret2 = SecureRandom.hex
+    @pipe.puts [2, "ping2", secret1, secret2, 2, "ping2", secret2, secret1].to_json
+
+    expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[0, 1, "pong2", secret1, 2, "pong2", secret1, secret2, 1, "pong2", secret2, 2, "pong2", secret2, secret1]], 6.seconds)
+ end
+
+  it "supports ping3" do
+    queue_name_to_index = {
+      
+    }
+    
+    queue_name_to_index.each do |name, index|
+      @pipe.puts [1, "ping3", name].to_json
+      expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[index, 0, "pong3"]], 6.seconds)
+    end
+  end
+
+  queue_name_to_index = {
+      "main" => 0,
+      "net" => 1,
+      "disk" => 2,
+      "cpu" => 3,
+      "gpu" => 4
+  }
+
+ queue_name_to_index.each do |name, index|
+    it "supports ping3-multi" do
+      #Don't redo last one because it's part of the first term (queue_name_b)
+      unless index == queue_name_to_index.count-1
+        queue_name_a = name
+        queue_name_b = @last_queue_name || "gpu"
+        index_a = index
+        index_b = queue_name_to_index[queue_name_b]
+        @pipe.puts [1, "ping3", queue_name_a, 1, "ping3", queue_name_a, 1, "ping3", queue_name_b].to_json
+        expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[index_a, 0, "pong3", 0, "pong3"], [index_b, 0, "pong3"]].sort_by{|e| e[0]}, 6.seconds)
+        @last_queue_name = queue_name_a
+      end
+    end
+  end
+
+  #Double up, make sure multiple request are queued appropriately
+  queue_name_to_index.each do |name, index|
+    it "supports ping3-double" do
+      queue_name = name
+      @pipe.puts [1, "ping3", queue_name].to_json
+      expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[index, 0, "pong3"]], 6.seconds)
+
+      @pipe.puts [1, "ping3", queue_name].to_json
+      expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[index, 0, "pong3"]], 6.seconds)
+    end
+  end
+
+  #Now make sure the max_n queuing works correctly
+  queue_name_to_index.each do |name, index|
+    it "supports ping-over-commit" do
+      #Main queue always queues all
+      if name != "main" 
+        @pipe.puts ([1, "ping4", name]*6).to_json
+        expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[index, *[0, "pong4"]*5]], 6.seconds)
+        @pipe.puts ([1, "ping4", name]).to_json
+
+        #Semantics aren't exact, but it should be nothing happens after 2 seconds (no response)
+        expect(@pipe).not_to readline_and_equal_json_x_within_y_seconds([], 1.seconds)
+
+        @pipe.puts ([1, "ping4_int", name]).to_json
+        expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[index, 0, "pong4"]], 6.seconds)
+      else
+        @pipe.puts ([1, "ping4", name]*6).to_json
+        expect(@pipe).to readline_and_equal_json_x_within_y_seconds([[index, *[0, "pong4"]*6]], 6.seconds)
+      end
+    end
+  end
+end

data/spec/iface/kern/pipe_spec.rb

@@ -0,0 +1,30 @@
+Dir.chdir File.join File.dirname(__FILE__), '../../../'
+require './spec/env/iface.rb'
+RSpec.describe "iface:kern:pipe" do
+  include_context "iface:kern"
+
+  it "does close the read back pipe when when a syntax error occurs" do
+    @pipe.puts "a"
+
+    expect(@pipe).to raise_eof_from_readline_within(6.seconds)
+  end
+
+  it "does not close the read back pipe when when no syntax error occurs" do
+    @pipe.puts "[]"
+
+    expect(@pipe).not_to raise_eof_from_readline_within(6.seconds)
+  end
+
+  it "does terminate the proccess when a syntax error occurs" do
+    pid = @pipe.pid
+    @pipe.puts "a"
+    expect(pid).to die_within(6.seconds)
+  end
+
+  it "does terminate the proccess when the pipe is closed" do
+    pid = @pipe.pid
+    @pipe.close
+
+    expect(pid).to die_within(6.seconds)
+  end
+end

data/spec/kern/assets/controller0.rb

@@ -0,0 +1,14 @@
+controller :my_controller do
+  view :test_view
+  spots "hello", "world"
+
+  action :my_action do
+    on_entry %{
+      on_entry_base_pointer = __base__;
+    }
+
+    on "hello", %{
+      var x = 3;
+    }
+  end
+end

data/spec/kern/assets/controller1.rb

@@ -0,0 +1,29 @@
+controller :my_controller do
+  view :test_view
+  spots "hello", "world"
+
+  action :my_action do
+    on_entry %{
+      Embed("my_sub_controller", "hello", {});
+    }
+
+    on "hello", %{
+      var x = 3;
+    }
+  end
+end
+
+controller :my_sub_controller do
+  view :test_view2
+  spots "hello", "world"
+
+  action :my_action do
+    on_entry %{
+      on_entry_base_pointer = __base__;
+    }
+
+    on "hello", %{
+      var x = 3;
+    }
+  end
+end

data/spec/kern/assets/controller_bare.rb

@@ -0,0 +1,8 @@
+controller :my_controller do
+  view "my_view"
+
+  action :index do
+    on_entry %{
+    }
+  end
+end

data/spec/kern/assets/controller_context.rb

@@ -0,0 +1,9 @@
+controller :my_controller do
+  view "my_view"
+
+  action :index do
+    on_entry %{
+      context.hello = 'world';
+    }
+  end
+end

data/spec/kern/assets/controller_def.rb

@@ -0,0 +1,22 @@
+controller :my_controller do
+  view :test_view
+  spots "content"
+
+  macro :my_macro do
+    on "test_event", %{
+      Goto("my_other_action")
+    }
+  end
+
+  action :my_action do
+    my_macro
+
+    on_entry %{
+    }
+  end
+
+  action :my_other_action do
+    on_entry %{
+    }
+  end
+end

data/spec/kern/assets/controller_spots.rb

@@ -0,0 +1,9 @@
+controller :my_controller do
+  view "my_view"
+  spots "one", "two"
+
+  action :index do
+    on_entry %{
+    }
+  end
+end

data/spec/kern/assets/controller_spots_embed.rb

@@ -0,0 +1,19 @@
+controller :my_controller do
+  view "my_view"
+  spots "one", "two"
+
+  action :index do
+    on_entry %{
+      Embed("my_other_controller", "one", {});
+    }
+  end
+end
+
+controller :my_other_controller do
+  view "my_other_view"
+
+  action :index do
+    on_entry %{
+    }
+  end
+end

data/spec/kern/assets/controller_spots_embed_removed.rb

@@ -0,0 +1,28 @@
+controller :my_controller do
+  view "my_view"
+  spots "one", "two"
+
+  action :index do
+    on_entry %{
+      Embed("my_other_controller", "one", {});
+    }
+
+    on "next", %{
+      Goto("other");
+    }
+  end
+
+  action :other do
+    on_entry %{
+    }
+  end
+end
+
+controller :my_other_controller do
+  view "my_other_view"
+
+  action :index do
+    on_entry %{
+    }
+  end
+end

data/spec/kern/assets/embed_info.rb

@@ -0,0 +1,29 @@
+controller :my_controller do
+  view :test_view
+  spots "hello", "world"
+
+  action :my_action do
+    on_entry %{
+      Embed("my_sub_controller", "hello", context);
+    }
+
+    on "hello", %{
+      var x = 3;
+    }
+  end
+end
+
+controller :my_sub_controller do
+  view :test_view2
+  spots "hello", "world"
+
+  action :my_action do
+    on_entry %{
+      embedded_context = context;
+    }
+
+    on "holah", %{
+      var x = 3;
+    }
+  end
+end

data/spec/kern/assets/event_gw.rb

@@ -0,0 +1,21 @@
+controller :my_controller do
+  view :test_view
+  spots "hello", "world"
+
+  action :my_action do
+    on_entry %{
+      Embed("my_sub_controller", "hello", context);
+    }
+  end
+end
+
+controller :my_sub_controller do
+  view :test_view2
+  spots "hello", "world"
+
+  action :my_action do
+    on_entry %{
+      sub_event_gw = __info__.event_gw;
+    }
+  end
+end

data/spec/kern/assets/goto.rb

@@ -0,0 +1,29 @@
+controller :my_controller do
+  view :test_view
+  spots "hello", "world"
+
+  action :my_action do
+    on_entry %{
+      Embed("my_controller2", "hello", {});
+    }
+
+    on "test_event", %{
+      Goto("my_other_action")
+    }
+  end
+
+  action :my_other_action do
+    on_entry %{
+      my_other_action_on_entry_called = true;
+    }
+  end
+end
+
+controller :my_controller2 do
+  view :test_view2
+
+  action :my_action do
+    on_entry %{
+    }
+  end
+end