68 lines
2.5 KiB
Clojure
68 lines
2.5 KiB
Clojure
|
(ns clj-rhino.core-test
|
||
|
|
(:import [org.mozilla.javascript Context UniqueTag EvaluatorException])
|
||
|
|
(:use clojure.test)
|
||
|
|
(:require [clj-rhino :as js]))
|
||
|
|
|
||
|
|
(defn- assert-var-undefined [scope]
|
||
|
|
(fn [name]
|
||
|
|
(js/eval scope (str "a = typeof " name))
|
||
|
|
(is (= (js/get scope "a") "undefined"))))
|
||
|
|
|
||
|
|
(deftest js-test
|
||
|
|
(testing "undefined? works"
|
||
|
|
(is (not (js/undefined? 1)))
|
||
|
|
(is (js/undefined? (. UniqueTag NOT_FOUND))))
|
||
|
|
|
||
|
|
(testing "get returns undefined if get'ing inexistent var"
|
||
|
|
(let [scope (js/new-scope)]
|
||
|
|
(is (js/undefined? (js/get scope "foo")))))
|
||
|
|
|
||
|
|
(testing "get returns default if get'ing inexistent var and default provided"
|
||
|
|
(let [scope (js/new-scope)]
|
||
|
|
(is (= (js/get scope "foo" 4) 4))))
|
||
|
|
|
||
|
|
(testing "safe scope doesn't have dangerous references"
|
||
|
|
(let [scope (js/new-safe-scope)
|
||
|
|
unsafe-scope (js/new-scope)]
|
||
|
|
|
||
|
|
(js/eval scope "a = typeof With")
|
||
|
|
(js/eval unsafe-scope "a = typeof With")
|
||
|
|
(is (= (js/get scope "a") "undefined"))
|
||
|
|
(is (= (js/get unsafe-scope "a") "function"))
|
||
|
|
|
||
|
|
(dorun (map (assert-var-undefined scope) js/insecure-vars))))
|
||
|
|
|
||
|
|
(testing "set function sets a variable in the scope"
|
||
|
|
(let [scope (js/new-safe-scope)]
|
||
|
|
(js/set! scope "a" 2)
|
||
|
|
(is (= (js/get scope "a") 2))))
|
||
|
|
|
||
|
|
(testing "functions can be compiled"
|
||
|
|
(let [scope (js/new-safe-scope)
|
||
|
|
code "function (a, b) { return a + b; }"
|
||
|
|
compiled-fun (js/compile-function scope code :filename "foo.js")]
|
||
|
|
(js/set! scope "add" compiled-fun)
|
||
|
|
(is (= (js/eval scope "add(1, 2)") 3.0))))
|
||
|
|
|
||
|
|
(testing "root scope doesn't allow var modifications"
|
||
|
|
(let [scope (js/new-safe-root-scope)]
|
||
|
|
(is (thrown? EvaluatorException (js/eval scope "Object = null")))))
|
||
|
|
|
||
|
|
(testing "code can be evaled"
|
||
|
|
(let [scope (js/new-scope)]
|
||
|
|
(js/eval scope "a = 1;")
|
||
|
|
(is (= (js/get scope "a") 1.0))
|
||
|
|
|
||
|
|
(js/eval scope "s = 'hello';")
|
||
|
|
(is (= (js/get scope "s") "hello"))
|
||
|
|
|
||
|
|
(js/eval scope "o = {name: 'mariano'};")
|
||
|
|
(is (= (js/get (js/get scope "o") "name") "mariano"))
|
||
|
|
(is (= (js/get-in scope [:o :name]) "mariano"))
|
||
|
|
|
||
|
|
(js/eval scope "b = false")
|
||
|
|
; TODO: this fails
|
||
|
|
; (is (= (js/get-in scope [:b :name] :not-found) :not-found))
|
||
|
|
(is (= (js/get scope "b") false))))
|
||
|
|
)
|