rose-ash/shared/static/wasm/sx/harness-web.sxbc

(sxbc 1 "d44c2ab4fd3c6651"
  (code
    :constants ("mock-element" {:upvalue-count nil :arity nil :constants ("children" "list" "listeners" "event-log" "tag" "text" "" "attrs" "merge" "class" "id") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "mock-set-text!" {:upvalue-count nil :arity nil :constants ("dict-set!" "text") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "mock-append-child!" {:upvalue-count nil :arity nil :constants ("append!" "get" "children") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "mock-set-attr!" {:upvalue-count nil :arity nil :constants ("dict-set!" "get" "attrs") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "mock-get-attr" {:upvalue-count nil :arity nil :constants ("get" "attrs") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "mock-add-listener!" {:upvalue-count nil :arity nil :constants ("get" "listeners" "not" "has-key?" "dict-set!" "list" "append!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "simulate-click" {:upvalue-count nil :arity nil :constants ("get" "listeners" "click" "for-each" {:upvalue-count nil :arity nil :constants ("cek-call" "list" "target" "type" "click") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "append!" "event-log" "type") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "simulate-input" {:upvalue-count nil :arity nil :constants ("mock-set-attr!" "value" "get" "listeners" "input" "for-each" {:upvalue-count nil :arity nil :constants ("cek-call" "list" "target" "type" "input") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "append!" "event-log" "type") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "simulate-event" {:upvalue-count nil :arity nil :constants ("get" "listeners" "for-each" {:upvalue-count nil :arity nil :constants ("cek-call" "list" "target" "detail" "type") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "append!" "event-log" "detail" "type") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-text" {:upvalue-count nil :arity nil :constants ("get" "text" "assert=" "str" "Expected text \"" "\", got \"" "\"") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-attr" {:upvalue-count nil :arity nil :constants ("mock-get-attr" "assert=" "str" "Expected attr " "=\"" "\", got \"" "\"") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-class" {:upvalue-count nil :arity nil :constants ("mock-get-attr" "class" "" "assert" "contains?" "split" " " "str" "Expected class \"" "\" in \"" "\"") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-no-class" {:upvalue-count nil :arity nil :constants ("mock-get-attr" "class" "" "assert" "not" "contains?" "split" " " "str" "Expected no class \"" "\" but found in \"" "\"") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-child-count" {:upvalue-count nil :arity nil :constants ("len" "get" "children" "assert=" "str" "Expected " " children, got ") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-event-fired" {:upvalue-count nil :arity nil :constants ("assert" "some" {:upvalue-count nil :arity nil :constants ("=" "get" "type") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "get" "event-log" "str" "Expected event \"" "\" to have been fired") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-no-event" {:upvalue-count nil :arity nil :constants ("assert" "not" "some" {:upvalue-count nil :arity nil :constants ("=" "get" "type") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "get" "event-log" "str" "Expected event \"" "\" to NOT have been fired") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "event-fire-count" {:upvalue-count nil :arity nil :constants ("len" "filter" {:upvalue-count nil :arity nil :constants ("=" "get" "type") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "get" "event-log") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "make-web-harness" {:upvalue-count nil :arity nil :constants ("make-harness" "platform" "harness-set!" "dom" "elements" "root" "mock-element" "div" "id") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "is-renderable?" {:upvalue-count nil :arity nil :constants ("nil?" "string?" "number?" "boolean?" "dict?" "not" "list?" "empty?" "first" "=" "type-of" "symbol") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "is-render-leak?" {:upvalue-count nil :arity nil :constants ("not" "nil?" "is-renderable?") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-renderable" {:upvalue-count nil :arity nil :constants ("assert" "is-renderable?" "str" "Render leak in " ": " "type-of" "dict?" " — dict would appear as {:key val} text in output" "list?" "not" "empty?" "first" " — list of dicts would appear as raw data in output" " — non-renderable value would appear as text") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "render-body-audit" {:upvalue-count nil :arity nil :constants ("list" "for-each" {:upvalue-count nil :arity nil :constants ("is-render-leak?" "append!" "leak-kind" "dict?" "dict" "list?" "not" "empty?" "first" "list-of-dicts" "other" "value-type" "type-of") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-render-body-clean" {:upvalue-count nil :arity nil :constants ("render-body-audit" "assert" "empty?" "str" "Render body has " "len" " leak(s) in " ". " "render-to-html/render-to-dom render ALL body expressions — " "put side effects in let bindings, not body expressions.") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "mock-render" {:upvalue-count nil :arity nil :constants ("nil?" "string?" "mock-element" "TEXT" "mock-set-text!" "number?" "str" "not" "list?" "empty?" "first" "=" "type-of" "symbol" "symbol-name" {:upvalue-count nil :arity nil :constants ("not" "empty?" "first" "=" "type-of" "keyword" "rest" "mock-set-attr!" "keyword-name" "nth" nil "mock-render" "mock-append-child!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "rest") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "mock-render-fragment" {:upvalue-count nil :arity nil :constants ("filter" {:upvalue-count nil :arity nil :constants ("not" "nil?") :bytecode (nil nil nil nil nil nil nil nil nil nil nil)} "map" "mock-render") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-single-render-root" {:upvalue-count nil :arity nil :constants ("mock-render-fragment" "assert" "=" "len" nil "str" "Expected single render root in " " but got " " element(s). " "Multi-body let/begin in render-to-html/render-to-dom renders " "ALL expressions — put side effects in let bindings.") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-tag" {:upvalue-count nil :arity nil :constants ("assert" "=" "get" "tag" "str" "Expected <" "> but got <" ">") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:library (sx harness-web) :op "import"}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))