flok 0.0.38 → 0.0.39

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

@@ -0,0 +1,30 @@
+controller :my_controller do
+  spots "content"
+  services :vm
+
+  action :a do
+
+    on_entry %{
+      Embed("a", "content", {});
+    }
+
+    on "next", %{
+      Goto("b");
+    }
+  end
+
+  action :b do
+    on_entry %{
+    }
+  end
+end
+
+controller :a do
+  services :vm
+  action :index do
+    on_entry %{
+      var info = {ns: "spec", id: "test"}
+      Request("vm", "watch", info);
+    }
+  end
+end

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

@@ -0,0 +1,28 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var entry = {
+        hello: "world"
+      }
+
+      page = NewPage("test");
+      SetPageHead(page, "head");
+      SetPageNext(page, "next");
+      EntryInsert(page, 0, entry);
+
+      var watch_info = {
+        ns: "spec",
+        id: "test"
+      }
+
+      var write_info = {
+        ns: "spec",
+        page: page
+      };
+
+      Request("vm", "write", write_info);
+    }
+  end
+end

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

@@ -0,0 +1,14 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var watch_info = {
+        ns: "spec",
+        id: "test"
+      }
+
+      Request("vm", "watch", watch_info);
+    }
+  end
+end

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

@@ -0,0 +1,15 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var watch_info = {
+        ns: "spec",
+        id: "test",
+        sync: true
+      }
+
+      Request("vm", "watch", watch_info);
+    }
+  end
+end

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

@@ -0,0 +1,19 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var watch_info = {
+        ns: "spec",
+        id: "hello"
+      }
+
+      read_res = [];
+      Request("vm", "watch", watch_info);
+    }
+
+    on "read_res", %{
+      read_res.push(params);
+    }
+  end
+end

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

@@ -0,0 +1,40 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var entry = {
+        hello: "world"
+      }
+
+      page = NewPage("test");
+
+      SetPageHead(page, "head");
+      SetPageNext(page, "next");
+      EntryInsert(page, 0, entry);
+
+
+      var watch_info = {
+        ns: "spec",
+        id: "test"
+      }
+
+      var write_info = {
+        ns: "spec",
+        page: page
+      };
+
+      Request("vm", "write", write_info);
+    }
+
+    on "next", %{
+      page2 = CopyPage(page);
+      SetPageHead(page2, "head2");
+      var write_info = {
+        ns: "spec",
+        page: page2
+      };
+      Request("vm", "write", write_info);
+    }
+  end
+end

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

@@ -0,0 +1,18 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      //Send a request
+      var info = {
+        ns: "spec",
+        id: "my_key"
+      };
+
+      Request("vm", "watch", info);
+    }
+
+    on "read_res", %{
+    }
+  end
+end

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

@@ -0,0 +1,38 @@
+controller :my_controller do
+  spots "content"
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      page0 = {
+        ns: "spec",
+        id: "my_key"
+      };
+
+      Request("vm", "watch", page0);
+    }
+
+    on "read_res", %{
+    }
+  end
+end
+
+controller :my_controller_sync do
+  spots "content"
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      page = {
+        ns: "spec",
+        id: "my_key",
+        sync: true
+      };
+
+      Request("vm", "watch", page);
+    }
+
+    on "read_res", %{
+    }
+  end
+end

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

@@ -0,0 +1,18 @@
+controller :my_controller do
+  spots "content"
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var info = {
+        ns: "spec",
+        id: "my_key"
+      };
+
+      Request("vm", "watch", info);
+    }
+
+    on "read_res", %{
+    }
+  end
+end

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

@@ -0,0 +1,20 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      //Send a request
+      var info = {
+        ns: "spec",
+        id: "my_key"
+      };
+
+      Request("vm", "watch", info);
+      Request("vm", "unwatch", info);
+      Request("vm", "watch", info);
+    }
+
+    on "read_res", %{
+    }
+  end
+end

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

@@ -0,0 +1,15 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var watch_info = {
+        ns: "spec",
+        id: "test"
+      }
+
+      Request("vm", "watch", watch_info);
+      Request("vm", "watch", watch_info);
+    }
+  end
+end

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

@@ -0,0 +1,14 @@
+controller :my_controller do
+  services :vm
+
+  action :my_action do
+    on_entry %{
+      var watch_info = {
+        ns: "spec",
+        id: "test"
+      }
+
+      Request("vm", "unwatch", watch_info);
+    }
+  end
+end

data/spec/kern/assets/vm/macros/copy_page_c.rb

@@ -0,0 +1,23 @@
+controller :controller do
+  action :index do
+    on_entry %{
+      original_page = {
+        _head: "head",
+        _next: "next",
+        _id: "id",
+        entries: [
+          {_id: "id", _sig: "sig"},
+        ],
+        _hash: "hash",
+      };
+
+      //One page done the right away, another, the wrong way
+      copied_page = CopyPage(original_page);
+      not_copied_page = original_page;
+
+      //The copied page is now modified and does
+      //not contain _hash
+      copied_page._next = "test"
+    }
+  end
+end

data/spec/kern/assets/vm/macros/entry_del_c.rb

@@ -0,0 +1,18 @@
+controller :controller do
+  action :index do
+    on_entry %{
+      original_page = {
+        _head: "head",
+        _next: "next",
+        _id: "id",
+        entries: [
+          {_id: "id", _sig: "sig"},
+        ],
+        _hash: "hash",
+      };
+
+      page = CopyPage(original_page);
+      EntryDel(page, 0);
+    }
+  end
+end

data/spec/kern/assets/vm/macros/entry_insert_c.rb

@@ -0,0 +1,21 @@
+controller :controller do
+  action :index do
+    on_entry %{
+      original_page = {
+        _head: "head",
+        _next: "next",
+        _id: "id",
+        entries: [
+          {_id: "id", _sig: "sig"},
+        ],
+        _hash: "hash",
+      };
+
+      page = CopyPage(original_page);
+      var entry0 = {hello: "world"}
+      var entry2 = {hello: "world2"}
+      EntryInsert(page, 0, entry0);
+      EntryInsert(page, 2, entry2);
+    }
+  end
+end

data/spec/kern/assets/vm/macros/entry_mutable_c.rb

@@ -0,0 +1,33 @@
+controller :controller do
+  action :index do
+    on_entry %{
+      original_page = {
+        _head: "head",
+        _next: "next",
+        _id: "id",
+        entries: [
+          {_id: "id", _sig: "sig"},
+          {_id: "id2", _sig: "sig2"},
+          {_id: "id3", _sig: "sig3"},
+        ],
+        _hash: "hash",
+      };
+
+      page = CopyPage(original_page);
+      EntryMutable(page, 0);
+      EntryMutable(page, 2);
+
+      page.entries[0].hello = "world";
+      page.entries[2].hello = "world";
+
+      //This is a violation of the vm, it will set the original but not copied
+      //This is because the page.entries[1] actually refers to the original_page.entries[1]
+      //the array of original_page.entries belongs to original_page, but the entries inside it
+      //are references. When you call entrymutable, you are making a copy and replacing that
+      //entry in the array so that page.entries[0] is actually owned by page and is no longer apart
+      //of original_page
+      page.entries[1].foo = "bar";
+    }
+  end
+end
+

data/spec/kern/assets/vm/macros/new_page_c.rb

@@ -0,0 +1,7 @@
+controller :controller do
+  action :index do
+    on_entry %{
+      page = NewPage();
+    }
+  end
+end

data/spec/kern/assets/vm/macros/new_page_c2.rb

@@ -0,0 +1,7 @@
+controller :controller do
+  action :index do
+    on_entry %{
+      page = NewPage("test");
+    }
+  end
+end

data/spec/kern/assets/vm/macros/set_page_head_c.rb

@@ -0,0 +1,18 @@
+controller :controller do
+  action :index do
+    on_entry %{
+      original_page = {
+        _head: "head",
+        _next: "next",
+        _id: "id",
+        entries: [
+          {_id: "id", _sig: "sig"},
+        ],
+        _hash: "hash",
+      };
+
+      page = CopyPage(original_page);
+      SetPageHead(page, "test");
+    }
+  end
+end

data/spec/kern/assets/vm/macros/set_page_next_c.rb

@@ -0,0 +1,18 @@
+controller :controller do
+  action :index do
+    on_entry %{
+      original_page = {
+        _head: "head",
+        _next: "next",
+        _id: "id",
+        entries: [
+          {_id: "id", _sig: "sig"},
+        ],
+        _hash: "hash",
+      };
+
+      page = CopyPage(original_page);
+      SetPageNext(page, "test");
+    }
+  end
+end