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

(sxbc 1 "a46bdc825a390880"
  (code
    :constants ("assert" {:upvalue-count nil :arity nil :constants ("not" "error" "Assertion failed") :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)} "assert=" {:upvalue-count nil :arity nil :constants ("not" "=" "error" "str" "Expected " ", 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)} "default-platform" "current-user" {:upvalue-count nil :arity nil :constants () :bytecode (nil nil)} "csrf-token" {:upvalue-count nil :arity nil :constants ("test-csrf-token") :bytecode (nil nil nil nil)} "app-url" {:upvalue-count nil :arity nil :constants ("/mock-app-url") :rest-arity nil :bytecode (nil nil nil nil)} "frag" {:upvalue-count nil :arity nil :constants ("") :rest-arity nil :bytecode (nil nil nil nil)} "sleep" {:upvalue-count nil :arity nil :constants () :bytecode (nil nil)} "local-storage-set" {:upvalue-count nil :arity nil :constants () :bytecode (nil nil)} "set-cookie" {:upvalue-count nil :arity nil :constants () :rest-arity nil :bytecode (nil nil)} "url-for" {:upvalue-count nil :arity nil :constants ("/mock-url") :rest-arity nil :bytecode (nil nil nil nil)} "create-element" "request-path" {:upvalue-count nil :arity nil :constants ("/") :bytecode (nil nil nil nil)} "config" "set-attr" {:upvalue-count nil :arity nil :constants () :bytecode (nil nil)} "set-text" "remove-child" "fetch" {:upvalue-count nil :arity nil :constants ("status" nil "body" "" "ok") :rest-arity nil :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "query" {:upvalue-count nil :arity nil :constants ("list") :rest-arity nil :bytecode (nil nil nil nil nil)} "add-class" "get-element" "now" {:upvalue-count nil :arity nil :constants (nil) :bytecode (nil nil nil nil)} "abort" "action" {:upvalue-count nil :arity nil :constants ("ok") :rest-arity nil :bytecode (nil nil nil nil nil nil nil nil)} "remove-class" "append-child" "request-arg" "emit-dom" {:upvalue-count nil :arity nil :constants () :rest-arity nil :bytecode (nil nil)} "local-storage-get" "get-cookie" "make-harness" {:upvalue-count nil :arity nil :constants ("nil?" "default-platform" "merge" "log" "list" "platform" "state" "cookies" "storage" "dom") :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)} "harness-reset!" {:upvalue-count nil :arity nil :constants ("dict-set!" "log" "list" "state" "cookies" "storage" "dom") :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)} "harness-log" {:upvalue-count nil :arity nil :constants ("get" "log" "nil?" "filter" {:upvalue-count nil :arity nil :constants ("=" "get" "op") :bytecode (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 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "harness-get" {:upvalue-count nil :arity nil :constants ("get" "state") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "harness-set!" {:upvalue-count nil :arity nil :constants ("dict-set!" "get" "state") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "make-interceptor" {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("empty?" "=" nil "len" "first" nil "nth" nil "apply" "get" "log" "append!" "args" "result" "op") :rest-arity nil :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)}) :bytecode (nil nil nil nil nil nil nil nil nil nil)} "install-interceptors" {:upvalue-count nil :arity nil :constants ("for-each" {:upvalue-count nil :arity nil :constants ("get" "platform" "make-interceptor" "env-bind!") :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)} "keys" "get" "platform") :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)} "io-calls" {:upvalue-count nil :arity nil :constants ("filter" {:upvalue-count nil :arity nil :constants ("=" "get" "op") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "get" "log") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "io-call-count" {:upvalue-count nil :arity nil :constants ("len" "io-calls") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "io-call-nth" {:upvalue-count nil :arity nil :constants ("io-calls" "<" "len" "nth") :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)} "io-call-args" {:upvalue-count nil :arity nil :constants ("io-call-nth" "nil?" "get" "args") :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)} "io-call-result" {:upvalue-count nil :arity nil :constants ("io-call-nth" "nil?" "get" "result") :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-io-called" {:upvalue-count nil :arity nil :constants ("assert" ">" "io-call-count" nil "str" "Expected IO operation " " to be called but it was not") :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)} "assert-no-io" {:upvalue-count nil :arity nil :constants ("assert" "=" "io-call-count" nil "str" "Expected IO operation " " not to be called but it was called " " time(s)") :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)} "assert-io-count" {:upvalue-count nil :arity nil :constants ("io-call-count" "assert" "=" "str" "Expected " " to be called " " time(s) but was called " " time(s)") :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)} "assert-io-args" {:upvalue-count nil :arity nil :constants ("io-call-args" "assert" "equal?" "str" "Expected call " " to " " with args " " 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 nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-io-result" {:upvalue-count nil :arity nil :constants ("io-call-result" "assert" "equal?" "str" "Expected call " " to " " to return " " 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 nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "assert-state" {:upvalue-count nil :arity nil :constants ("harness-get" "assert" "equal?" "str" "Expected state " " to be " " 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 nil nil nil nil nil nil nil)} {:library (sx harness) :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 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))