(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))))
         )