Failing test for #8.

Author: back2dos

haxe_libraries/tink_pure.hxml

@@ -1,3 +1,5 @@
-# @install: lix --silent download "haxelib:tink_pure#0.3.2" into tink_pure/0.3.2/haxelib
--D tink_pure=0.3.2
--cp ${HAXESHIM_LIBCACHE}/tink_pure/0.3.2/haxelib/src
+# @install: lix --silent download "gh://github.com/haxetink/tink_pure#f93e378516aeda3b31487c09f46300714b86a49a" into tink_pure/0.5.2/github/f93e378516aeda3b31487c09f46300714b86a49a
+-lib tink_core
+-lib tink_slice
+-cp ${HAXE_LIBCACHE}/tink_pure/0.5.2/github/f93e378516aeda3b31487c09f46300714b86a49a/src
+-D tink_pure=0.5.2

src/coconut/react/Renderer.hx

@@ -4,7 +4,7 @@ class Renderer {
 
   #if !macro
   static public inline function updateAll()
-    ViewBase.updateAll();
+    tink.state.Observable.updateAll();
   #end
 
   static public macro function hxx(e)

tests.hxml

@@ -1,5 +1,5 @@
 -cp tests
 -main RunTests
 -dce full
-
+-D no-deprecation-warnings
 -lib tink_unittest

tests/Issue8.hx

@@ -0,0 +1,75 @@
+import react.ReactComponent;
+import tink.pure.*;
+import tink.state.*;
+import coconut.ui.*;
+import coconut.data.*;
+import coconut.react.Renderer.*;
+import js.Browser.*;
+
+using tink.CoreApi;
+
+@:asserts
+class Issue8 {
+  static final msgs = [];
+  static public function log(v)
+    msgs.push(v);
+
+  public function new() {}
+  public function test() {
+    var rendered = ReactTestRenderer.create(hxx('<Root />'));
+    asserts.assert(msgs.length == 2);
+    rendered.root.findByType(Div).props.onclick();
+    updateAll();
+    asserts.assert(msgs.length == 3);
+    return asserts.done();
+  }
+}
+
+class Root extends View {
+
+  @:attr var value:Value<Vector<Obj>, Vector<Obj>> = new Value({
+    raw: new State(([{foo: 'bar'}]:Vector<Obj>)),
+    parse: Success,
+  });
+
+  function render() {
+    Issue8.log('render Root ${value.raw.length}');
+    return @hxx '
+      <>
+        <for ${i in 0...value.raw.length}>
+          <Sub value=${value.sub(raw -> raw[i], (raw, nu) -> raw.with(i, nu), Success)} onClick=${value.raw = []}/>
+        </for>
+      </>
+    ';
+  }
+}
+
+typedef Obj = {
+  final foo:String;
+}
+
+class Sub extends View {
+  @:attr var value:Value<Obj, Obj>;
+  @:attr var onClick:Void->Void;
+  function render() {
+    Issue8.log('render Sub ${value.raw}');
+    return @hxx '<Div onclick=${onClick}>${value.raw == null ? null : value.raw.foo}</Div>';
+  }
+}
+
+class Div extends ReactComponent<{ onclick:()->Void, children:String }, {}> {
+  override function render() return props.children;
+}
+
+class Value<Raw, Result> implements Model {
+  @:shared var raw:Raw;
+  @:constant var parse:Raw->Outcome<Result, Error>;
+  @:computed var parsed:Outcome<Result, Error> = parse(raw);
+  public inline function sub<SubRaw, SubResult>(read:Raw->SubRaw, write:(Raw, SubRaw) -> Raw,
+      parse:SubRaw->Outcome<SubResult, Error>):Value<SubRaw, SubResult> {
+    return new Value({
+      raw: observables.raw.transform({read: read, write: v -> write(raw, v)}),
+      parse: parse,
+    });
+  }
+}

tests/ReactTestRenderer.hx

@@ -8,4 +8,5 @@ extern class ReactTestRenderer {
 
 extern class ReactTestRoot {
   function findByProps(props:{}):Dynamic;
+  function findByType(t:react.ReactType):Dynamic;
 }

tests/RunTests.hx

@@ -11,7 +11,8 @@ class RunTests {
 
   static function main() {
     Runner.run(TestBatch.make([
-      new InjectTest()
+      new InjectTest(),
+      new Issue8(),
     ])).handle(Runner.exit);
   }
 }