diff options
Diffstat (limited to 'root/meta/test_mmm.component')
| -rw-r--r-- | root/meta/test_mmm.component/description: text$plain | 1 | ||||
| -rw-r--r-- | root/meta/test_mmm.component/text$moonscript -> mmm$dom.moon | 246 |
2 files changed, 0 insertions, 247 deletions
diff --git a/root/meta/test_mmm.component/description: text$plain b/root/meta/test_mmm.component/description: text$plain deleted file mode 100644 index 691fea5..0000000 --- a/root/meta/test_mmm.component/description: text$plain +++ /dev/null @@ -1 +0,0 @@ -Tests for mmm.component diff --git a/root/meta/test_mmm.component/text$moonscript -> mmm$dom.moon b/root/meta/test_mmm.component/text$moonscript -> mmm$dom.moon deleted file mode 100644 index 547b030..0000000 --- a/root/meta/test_mmm.component/text$moonscript -> mmm$dom.moon +++ /dev/null @@ -1,246 +0,0 @@ -import article, div, h1, ul, li, pre from require 'mmm.dom' - -_content = {} -append = (stuff) -> table.insert _content, stuff - -last = nil -test_group = (name) -> - if last - append div (h1 last.name), ul last - - last = { :name } - (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 ... - 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 'mmm.component' - assert ReactiveVar, "ReactiveVar not exported" - assert ReactiveElement, "ReactiveElement not exported" - -run_test "exports tohtml helper", -> - import tohtml from require 'mmm.component' - assert 'function' == (type tohtml), "tohtml not exported" - --- @TODO: get_or_create - -run_test "exports text helper", -> - import text from require 'mmm.component' - assert 'function' == (type text), "text not exported" - - node = text 'a test string' - - data = if MODE == 'CLIENT' - assert (js.instanceof node, js.global.Node), "expected text to generate a Node" - node.data - else - node - - assert data == 'a test string', "expected text to store the string" - -run_test "text joins multiple arguments", -> - import text from require 'mmm.component' - - node = text 'a', 'test', 'string' - - data = if MODE == 'CLIENT' then node.data else node - assert data == 'a test string', "expected text to join arguments with spaces" - -run_test "exports elements table", -> - import elements from require 'mmm.component' - - assert (type elements.div!) == 'table', "expected to build element with elements.div!" - assert (type elements.madeup!) == 'table', "expected to build element with elements.madeup!" - -run_test = test_group 'ReactiveVar' - -run_test "stores a value", -> - reactive = ReactiveVar 'test' - assert 'test' == reactive\get!, "expected x to be 'test'" - -run_test "provides #map shorthand", -> - local done - - original = ReactiveVar 1 - mapped = original\map (a) -> a + 10 - - assert mapped\get! == 11, "expected mapped to be 11" - return if MODE == 'SERVER' - - original\set 4 - assert mapped\get! == 14, "expected mapped to update" - - mapped\subscribe coroutine.wrap (next, last) -> - assert next == 26, "expected next to be 26" - assert last == 14, "expected last to be 14" - done = true - - original\set 16 - assert done, "expected to reach the end" - -if MODE == 'CLIENT' - 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 "passes 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>" - --- @TODO: can take over a DOM Node - -run_test "sets attributes from a table arg", -> - elem = ReactiveElement 'span', class: 'never' - assert elem.node.className == '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.className == '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.className == '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.className == 'test', "expected class to be 'test'" - klass\set 'toast' - assert elem.node.className == '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 'mmm.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' - -test_group! - -article _content |