Как песочница clojure.string/blank? с Clojail в Clojure?

Question

Я использую Clojail для песочницы, и он отлично работает для функций clojure.core, но когда дело доходит до других пространств имен, это не работает должным образом.

Мне нужна песочница (ограничение) clojure.string/blank? функция.

(defn blacklist-symbols 
    [] 
    (testers/blacklist-symbols 
    '#{alter-var-root 
     intern 
     eval 
     clojure.string/blank? 
     ...})) 

Это должно бросить исключение безопасности, но это не так.

(sb '(do 
     (println "Hey: " (clojure.string/blank? "")))) 

Answer 1

он должен выглядеть, если я правильно понимаю,

(defn blacklist-symbols 
    [] 
    (testers/blacklist-symbols 
    #{'alter-var-root 
     'intern 
     'eval 
     'clojure.string/blank? 
     ...})) 

полностью протестирован пример

user=> (ns my.project 
    #_=> (:use [clojail.core :only [sandbox]] 
    #_=>   [clojail.testers :only [blacklist-symbols blacklist-objects]])) 
nil 
my.project=> 

my.project=> (def tester [(blacklist-symbols #{'alter-var-root 'clojure.string/blank?}) 
     #_=>    (blacklist-objects [java.lang.Thread])]) ; Create a blacklist. 
#'my.project/tester 
my.project=> (def sb (sandbox tester :timeout 5000)) 
#'my.project/sb 
my.project=> 

my.project=> (sb '(println (clojure.string/blank? ""))) 

AccessControlException access denied ("java.lang.RuntimePermission" "createClassLoader") java.security.AccessControlContext.checkPermission (AccessControlContext.java:457) 

Вы можете найти пример в библиотеке домашней странице https://github.com/Raynes/clojail