fix all pages

1 files changed, 206 insertions, 205 deletions

diff --git a/app/test_component.moon b/app/test_component.moon
index 78556a2..dba511b 100644
--- a/app/test_component.moon
+++ b/app/test_component.moon
@@ -1,205 +1,206 @@
-import div, h1, ul, li, pre from require 'lib.html'
-
-last = nil
-test_group = (name) ->
-  if last
-    append div (h1 name), ul last
-
-  last = {}
-  (name, test) ->
-    ok, err = pcall test
-    table.insert last, li if ok
-      "passed '#{name}'"
-    else
-      "failed '#{name}'", pre err
-
-expect = (expected, note, ...) ->
-  ok, msg = pcall ...
-  print ok, msg\find expected
-  if ok or not msg\find expected
-    error note
-
-run_test = test_group 'component.moon'
-
-local ReactiveVar, ReactiveElement
-run_test "exports ReactiveVar, ReactiveElement", ->
-  import ReactiveVar, ReactiveElement from require 'app.component'
-  assert ReactiveVar, "ReactiveVar not exported"
-  assert ReactiveElement, "ReactiveElement not exported"
-
-run_test "exports tohtml helper", ->
-  import tohtml from require 'app.component'
-  assert 'function' == (type tohtml), "tohtml not exported"
-
-run_test "exports append helper", ->
-  import append from require 'app.component'
-  assert 'function' == (type append), "append not exported"
-
-run_test "exports text helper", ->
-  import text from require 'app.component'
-  assert 'function' == (type text), "text not exported"
-
-  node = text 'a test string'
-  assert (js.instanceof node, js.global.Node), "expected text to generate a Node"
-  assert node.data == 'a test string', "expected text to store the string"
-
-run_test "text joins multiple arguments", ->
-  import text from require 'app.component'
-
-  node = text 'a', 'test', 'string'
-  assert node.data == 'a test string', "expected text to join arguments with spaces"
-
-run_test = test_group 'ReactiveVar'
-
-run_test "stores a value", ->
-  reactive = ReactiveVar 'test'
-  assert 'test' == reactive\get!, "expected x to be 'test'"
-
-run_test "propagates updates", ->
-  local done
-
-  reactive = ReactiveVar 'test'
-  reactive\subscribe coroutine.wrap (next) ->
-    assert next == 'toast', "expected next to be 'toast'"
-    assert coroutine.yield! == 'cheese', "expected next to be 'cheese'"
-    done = true
-
-  reactive\set 'toast'
-  assert 'toast' == reactive\get!, "expected #get to return 'toast'"
-  reactive\set 'cheese'
-  assert done, "expected to reach the end"
-
-run_test "passed old value as well", ->
-  local done
-
-  reactive = ReactiveVar 1
-  reactive\subscribe coroutine.wrap (next, last) ->
-    assert last == 1, "expected last:1 to be 1"
-    next, last = coroutine.yield!
-    assert last == 2, "expected last:2 to be 2"
-    done = true
-
-  reactive\set 2
-  reactive\set 3
-  assert done, "expected to reach the end"
-
-run_test "provides transform shorthand", ->
-  local done
-
-  reactive = ReactiveVar 1
-  reactive\subscribe coroutine.wrap (next, last) ->
-    assert last == 1, "expected last:1 to be 1"
-    next, last = coroutine.yield!
-    assert last == 2, "expected last:2 to be 2"
-    done = true
-
-  add_one = (a) -> a + 1
-  reactive\transform add_one
-  reactive\transform add_one
-  assert done, "expected to reach the end"
-
-run_test "#subscribe returns function to unsubscribe", ->
-  calls = 0
-
-  reactive = ReactiveVar 1
-  unsub = reactive\subscribe coroutine.wrap () ->
-    calls += 1
-    coroutine.yield!
-    calls += 1
-    coroutine.yield!
-    calls += 1
-
-  assert 'function' == (type unsub), "expected to receive a function"
-
-  reactive\set 2
-  reactive\set 3
-  assert calls == 2, "wat"
-
-  unsub!
-  reactive\set 4
-  assert calls == 2, "expected to stop receiving updates"
-
-run_test "tracks multiple subscriptions at once", ->
-  reactive = ReactiveVar 'test'
-  unsub = reactive\subscribe coroutine.wrap (next) ->
-    assert next == 'toast', "expected next to be toast"
-    next = coroutine.yield!
-    assert next == 'cheese', "expected next to be cheese"
-    coroutine.yield!
-    error "expected not to get here"
-
-  reactive\set 'toast'
-
-  local done
-  reactive\subscribe coroutine.wrap (next) ->
-    assert next == 'cheese', "expected next to be cheese"
-    next = coroutine.yield!
-    assert next == 'test', "expected next to be test"
-    done = true
-
-  reactive\set 'cheese'
-  unsub!
-  reactive\set 'test'
-  assert done, "expected to reach the end"
-
-run_test = test_group 'ReactiveElement'
-
-run_test "creates a HTML element", ->
-  elem = ReactiveElement 'span'
-  assert elem.node and elem.node.localName == 'span', "expected Node to be a <span>"
-
-run_test "sets attributes from a table arg", ->
-  elem = ReactiveElement 'span', class: 'never'
-  assert elem.node.class == 'never', "expected class to be 'never'"
-
-run_test "appends Nodes from arguments", ->
-  e_div, e_pre = div!, pre!
-  elem = ReactiveElement 'span', e_div, e_pre
-  assert elem.node.firstElementChild == e_div, "expected div to be the first child of elem"
-  assert elem.node.lastElementChild == e_pre, "expected pre to be the last child of elem"
-
-run_test "can append ReactiveElements and text", ->
-  e_div = ReactiveElement 'div'
-  elem = ReactiveElement 'div', e_div, 'testtext'
-  assert elem.node.firstElementChild == e_div.node, "expected div to be the first child of elem"
-  assert elem.node.lastChild.data == 'testtext', "expected last child of elem to be 'testtext'"
-
-run_test "accepts attributes after children", ->
-  e_div = div!
-  elem = ReactiveElement 'div', e_div, class: 'test'
-  assert elem.node.firstElementChild == e_div, "expected div to be the first child of elem"
-  assert elem.node.class == 'test', "expected class to be 'test'"
-
-run_test "allows mixing attributes and children in a single table", ->
-  e_div, e_pre = div!, pre!
-  elem = ReactiveElement 'div', { class: 'test', e_div, e_pre }
-  assert elem.node.firstElementChild == e_div, "expected div to be the first child of elem"
-  assert elem.node.lastElementChild == e_pre, "expected pre to be the last child of elem"
-  assert elem.node.class == 'test', "expected class to be 'test'"
-
-run_test "can unwrap and track attributes from ReactiveVars", ->
-  klass = ReactiveVar 'test'
-  elem = ReactiveElement 'div', class: klass
-  assert elem.node.class == 'test', "expected class to be 'test'"
-  klass\set 'toast'
-  assert elem.node.class == 'toast', "expected class to be 'toast'"
-
-run_test "can unwrap and track children from ReactiveVars", ->
-  child = ReactiveVar h1 'test'
-  elem = ReactiveElement 'div', child, pre 'fixed'
-  assert elem.node.firstElementChild.localName == 'h1', "expected first child to be h1"
-  assert elem.node.childElementCount == 2, "expected node to have two children"
-  child\set div 'toast'
-  assert elem.node.firstElementChild.localName == 'div', "expected first child to be div"
-  assert elem.node.childElementCount == 2, "expected node to have two children"
-
-run_test "warns when appending a string from a ReactiveVar", ->
-  import text from require 'app.component'
-
-  str = ReactiveVar 'test'
-  elem = ReactiveElement 'div', str
-  expect 'cannot replace string node', 'expected error', str\set, 'string too'
-  elem\destroy!
-
-  elem = ReactiveElement 'div', str\map text
-  str\set 'this is text'
+on_client ->
+  import div, h1, ul, li, pre from require 'lib.html'
+
+  last = nil
+  test_group = (name) ->
+    if last
+      append div (h1 name), ul last
+
+    last = {}
+    (name, test) ->
+      ok, err = pcall test
+      table.insert last, li if ok
+        "passed '#{name}'"
+      else
+        "failed '#{name}'", pre err
+
+  expect = (expected, note, ...) ->
+    ok, msg = pcall ...
+    print ok, msg\find expected
+    if ok or not msg\find expected
+      error note
+
+  run_test = test_group 'component.moon'
+
+  local ReactiveVar, ReactiveElement
+  run_test "exports ReactiveVar, ReactiveElement", ->
+    import ReactiveVar, ReactiveElement from require 'lib.component'
+    assert ReactiveVar, "ReactiveVar not exported"
+    assert ReactiveElement, "ReactiveElement not exported"
+
+  run_test "exports tohtml helper", ->
+    import tohtml from require 'lib.component'
+    assert 'function' == (type tohtml), "tohtml not exported"
+
+  run_test "exports append helper", ->
+    import append from require 'lib.component'
+    assert 'function' == (type append), "append not exported"
+
+  run_test "exports text helper", ->
+    import text from require 'lib.component'
+    assert 'function' == (type text), "text not exported"
+
+    node = text 'a test string'
+    assert (js.instanceof node, js.global.Node), "expected text to generate a Node"
+    assert node.data == 'a test string', "expected text to store the string"
+
+  run_test "text joins multiple arguments", ->
+    import text from require 'lib.component'
+
+    node = text 'a', 'test', 'string'
+    assert node.data == 'a test string', "expected text to join arguments with spaces"
+
+  run_test = test_group 'ReactiveVar'
+
+  run_test "stores a value", ->
+    reactive = ReactiveVar 'test'
+    assert 'test' == reactive\get!, "expected x to be 'test'"
+
+  run_test "propagates updates", ->
+    local done
+
+    reactive = ReactiveVar 'test'
+    reactive\subscribe coroutine.wrap (next) ->
+      assert next == 'toast', "expected next to be 'toast'"
+      assert coroutine.yield! == 'cheese', "expected next to be 'cheese'"
+      done = true
+
+    reactive\set 'toast'
+    assert 'toast' == reactive\get!, "expected #get to return 'toast'"
+    reactive\set 'cheese'
+    assert done, "expected to reach the end"
+
+  run_test "passed old value as well", ->
+    local done
+
+    reactive = ReactiveVar 1
+    reactive\subscribe coroutine.wrap (next, last) ->
+      assert last == 1, "expected last:1 to be 1"
+      next, last = coroutine.yield!
+      assert last == 2, "expected last:2 to be 2"
+      done = true
+
+    reactive\set 2
+    reactive\set 3
+    assert done, "expected to reach the end"
+
+  run_test "provides transform shorthand", ->
+    local done
+
+    reactive = ReactiveVar 1
+    reactive\subscribe coroutine.wrap (next, last) ->
+      assert last == 1, "expected last:1 to be 1"
+      next, last = coroutine.yield!
+      assert last == 2, "expected last:2 to be 2"
+      done = true
+
+    add_one = (a) -> a + 1
+    reactive\transform add_one
+    reactive\transform add_one
+    assert done, "expected to reach the end"
+
+  run_test "#subscribe returns function to unsubscribe", ->
+    calls = 0
+
+    reactive = ReactiveVar 1
+    unsub = reactive\subscribe coroutine.wrap () ->
+      calls += 1
+      coroutine.yield!
+      calls += 1
+      coroutine.yield!
+      calls += 1
+
+    assert 'function' == (type unsub), "expected to receive a function"
+
+    reactive\set 2
+    reactive\set 3
+    assert calls == 2, "wat"
+
+    unsub!
+    reactive\set 4
+    assert calls == 2, "expected to stop receiving updates"
+
+  run_test "tracks multiple subscriptions at once", ->
+    reactive = ReactiveVar 'test'
+    unsub = reactive\subscribe coroutine.wrap (next) ->
+      assert next == 'toast', "expected next to be toast"
+      next = coroutine.yield!
+      assert next == 'cheese', "expected next to be cheese"
+      coroutine.yield!
+      error "expected not to get here"
+
+    reactive\set 'toast'
+
+    local done
+    reactive\subscribe coroutine.wrap (next) ->
+      assert next == 'cheese', "expected next to be cheese"
+      next = coroutine.yield!
+      assert next == 'test', "expected next to be test"
+      done = true
+
+    reactive\set 'cheese'
+    unsub!
+    reactive\set 'test'
+    assert done, "expected to reach the end"
+
+  run_test = test_group 'ReactiveElement'
+
+  run_test "creates a HTML element", ->
+    elem = ReactiveElement 'span'
+    assert elem.node and elem.node.localName == 'span', "expected Node to be a <span>"
+
+  run_test "sets attributes from a table arg", ->
+    elem = ReactiveElement 'span', class: 'never'
+    assert elem.node.class == 'never', "expected class to be 'never'"
+
+  run_test "appends Nodes from arguments", ->
+    e_div, e_pre = div!, pre!
+    elem = ReactiveElement 'span', e_div, e_pre
+    assert elem.node.firstElementChild == e_div, "expected div to be the first child of elem"
+    assert elem.node.lastElementChild == e_pre, "expected pre to be the last child of elem"
+
+  run_test "can append ReactiveElements and text", ->
+    e_div = ReactiveElement 'div'
+    elem = ReactiveElement 'div', e_div, 'testtext'
+    assert elem.node.firstElementChild == e_div.node, "expected div to be the first child of elem"
+    assert elem.node.lastChild.data == 'testtext', "expected last child of elem to be 'testtext'"
+
+  run_test "accepts attributes after children", ->
+    e_div = div!
+    elem = ReactiveElement 'div', e_div, class: 'test'
+    assert elem.node.firstElementChild == e_div, "expected div to be the first child of elem"
+    assert elem.node.class == 'test', "expected class to be 'test'"
+
+  run_test "allows mixing attributes and children in a single table", ->
+    e_div, e_pre = div!, pre!
+    elem = ReactiveElement 'div', { class: 'test', e_div, e_pre }
+    assert elem.node.firstElementChild == e_div, "expected div to be the first child of elem"
+    assert elem.node.lastElementChild == e_pre, "expected pre to be the last child of elem"
+    assert elem.node.class == 'test', "expected class to be 'test'"
+
+  run_test "can unwrap and track attributes from ReactiveVars", ->
+    klass = ReactiveVar 'test'
+    elem = ReactiveElement 'div', class: klass
+    assert elem.node.class == 'test', "expected class to be 'test'"
+    klass\set 'toast'
+    assert elem.node.class == 'toast', "expected class to be 'toast'"
+
+  run_test "can unwrap and track children from ReactiveVars", ->
+    child = ReactiveVar h1 'test'
+    elem = ReactiveElement 'div', child, pre 'fixed'
+    assert elem.node.firstElementChild.localName == 'h1', "expected first child to be h1"
+    assert elem.node.childElementCount == 2, "expected node to have two children"
+    child\set div 'toast'
+    assert elem.node.firstElementChild.localName == 'div', "expected first child to be div"
+    assert elem.node.childElementCount == 2, "expected node to have two children"
+
+  run_test "warns when appending a string from a ReactiveVar", ->
+    import text from require 'lib.component'
+
+    str = ReactiveVar 'test'
+    elem = ReactiveElement 'div', str
+    expect 'cannot replace string node', 'expected error', str\set, 'string too'
+    elem\destroy!
+
+    elem = ReactiveElement 'div', str\map text
+    str\set 'this is text'