1 files changed, 156 insertions, 0 deletions
diff --git a/spec/internal/input_spec.moon b/spec/internal/input_spec.moon
new file mode 100644
index 0000000..04cf16e
--- /dev/null
+++ b/spec/internal/input_spec.moon
@@ -0,0 +1,156 @@
+import do_setup, do_teardown from require 'spec.test_setup'
+import Input, T, Result from require 'alv.base'
+
+setup do_setup
+teardown do_teardown
+
+basic_tests = (result, input) ->
+  it 'gives access to the Result', ->
+    assert.is.equal result, input.result
+
+  it 'forwards :unwrap', ->
+    assert.is.equal result\unwrap!, input\unwrap!, nil
+    assert.is.equal result\unwrap!, input!, nil
+
+  it 'gives access to the type string', ->
+    assert.is.equal result.type, input\type!
+
+  it 'gives access to the metatype string', ->
+    assert.is.equal result.metatype, input\metatype!
+
+describe 'Input.cold', ->
+  result = T.num\mk_sig 1
+  input = Input.cold result
+
+  basic_tests result, input
+
+  it 'is marked cold', ->
+    assert.is.equal 'cold', input.mode
+
+  it 'is never dirty', ->
+    assert.is.false input\dirty!
+    result\set 2
+    assert.is.false input\dirty!
+
+    input\setup nil
+    assert.is.false input\dirty!
+    input\finish_setup!
+
+    new_input = Input.cold T.num\mk_sig 3
+    new_input\setup input
+    assert.is.false new_input\dirty!
+    new_input.result\set 4
+    assert.is.false new_input\dirty!
+    input\finish_setup!
+
+describe 'Input.hot', ->
+  describe 'with Constant', ->
+    result = T.num\mk_const 1
+    input = Input.hot result
+
+    basic_tests result, input
+
+    it 'is marked cold', ->
+      assert.is.equal 'cold', input.mode
+
+    describe 'at evaltime', ->
+      it 'is dirty when new', ->
+        assert.is.false result\dirty!
+
+        newinput = Input.hot result
+        newinput\setup nil
+        assert.is.true newinput\dirty!
+        newinput\finish_setup!
+
+      it 'is dirty when different', ->
+        newval = T.num\mk_const 2
+
+        assert.is.false newval\dirty!
+        newinput = Input.hot newval
+        newinput\setup input
+        assert.is.true newinput\dirty!
+        newinput\finish_setup!
+
+      it 'is not dirty when equal', ->
+        newval = T.num\mk_const 1
+
+        assert.is.false newval\dirty!
+        newinput = Input.hot newval
+        newinput\setup input
+        assert.is.false newinput\dirty!
+        newinput\finish_setup!
+
+  describe 'with EvtStream', ->
+    result = T.num\mk_evt!
+    input = Input.hot result
+
+    basic_tests result, input
+
+    it 'is marked hot', ->
+      assert.is.equal 'hot', input.mode
+
+    it 'is dirty when the EvtStream is dirty', ->
+      assert.is.false input\dirty!
+      assert.is.false result\dirty!
+
+      input\setup nil
+      assert.is.false input\dirty!
+      input\finish_setup!
+
+      COPILOT\next_tick!
+      result\set 1
+
+      assert.is.true input\dirty!
+      assert.is.true result\dirty!
+
+      input\setup nil
+      assert.is.true input\dirty!
+      input\finish_setup!
+
+      assert.is.true input\dirty!
+      assert.is.true result\dirty!
+
+  describe 'with SigStream', ->
+    result = T.num\mk_sig 1
+    local input
+
+    describe 'at evaltime', ->
+      it 'is dirty when new', ->
+        assert.is.false result\dirty!
+
+        input = Input.hot result
+        input\setup nil
+        assert.is.true input\dirty!
+        input\finish_setup!
+
+      it 'is dirty when different', ->
+        newval = T.num\mk_sig 2
+
+        assert.is.false newval\dirty!
+        newinput = Input.hot newval
+        newinput\setup input
+        assert.is.true newinput\dirty!
+        newinput\finish_setup!
+
+      it 'is not dirty when equal', ->
+        newval = T.num\mk_sig!
+        newval\set 1
+
+        assert.is.true newval\dirty!
+        newinput = Input.hot newval
+        newinput\setup input
+        assert.is.false newinput\dirty!
+        newinput\finish_setup!
+
+    it 'is marked hot', ->
+      assert.is.equal 'hot', input.mode
+
+    describe 'at runtime', ->
+      it 'is dirty when the result is dirty', ->
+        result\set 3
+        assert.is.true result\dirty!
+        assert.is.true input\dirty!
+
+        COPILOT\next_tick!
+        assert.is.false result\dirty!
+        assert.is.false input\dirty!