test/run_tests.clj

   1 (use 'clojure.test)
   2 (require 'login-test)
   3 (run-tests 'login-test)
   4
   5 ;;                                (comment
   6 ;;                                                              (println        "Add command > context[" (:tag (:command-context @bkell/shell ))
   7 ;;                                                                                                      "] > users?[" (= (keyword "users") (:tag (:command-context @bkell/shell )))
   8 ;;                                                                                                      "] > :previous / each_copy[" (:previous @bkell/shell)"] > match?["
   9 ;;                                                                                                              (and    (= (keyword "users") (:tag (:command-context @bkell/shell )))
  10 ;;                                                                                                                                      (= (keyword "user") (:tag (:previous @bkell/shell )))) "]")
  11 ;;
  12 ;;                                                              (if (and        (= (keyword "users") (:tag (:command-context @bkell/shell )))
  13 ;;                                                                                      (= (keyword "user") (:tag (:previous @bkell/shell ))))
  14 ;;
  15 ;;                                                                              ;; we are adding a user
  16 ;;                                                                              (add-user db-base-URL db-system-DIR (:previous @bkell/shell))
  17 ;;
  18 ;;                                                                              ;; this is a generic 'add'
  19 ;;                                                                              (add-generic db-base-URL db-system-DIR (:previous @bkell/shell) (:command-context @bkell/shell ))
  20 ;;
  21 ;;                                                              )
  22 ;;                                )