test/login_test.clj

   1 (ns login-test
   2
   3         (:use [helpers] :reload-all)
   4         (:use [clojure.test])
   5         (:use [depth_adapter])
   6         (:require [bkell])
   7
   8         (:import java.io.ByteArrayInputStream)
   9         (:require clojure.contrib.str-utils)
  10     (:require commands.add)
  11 )
  12
  13
  14 (def configs (load-file "etc/config/config.test.clj"))
  15
  16
  17 ;; FIXTUREs
  18 (defn test-fixture-shell
  19     "Initialize the shell"
  20     [test]
  21
  22     (bkell/init-shell)
  23 )
  24 (defn test-fixture-db
  25     "test to clear out shell memory before a test is run"
  26     [test]
  27
  28     ;; make the shell active
  29         (dosync
  30                 (alter bkell/shell conj
  31                         { :active true }))
  32
  33     ;; create a basic user in the DB
  34     (add-user (:url-test configs) (:system-dir configs) { :tag "user" :attrs { :id "test.user" } } )
  35
  36     ;; ** execute the TEST function
  37     (test)
  38
  39     ;; make the shell inactive
  40         (dosync
  41                 (alter bkell/shell conj
  42                         { :active false }))
  43
  44 )
  45
  46 (use-fixtures :once test-fixture-shell)
  47 (use-fixtures :each test-fixture-db)
  48
  49 ;; test basic login
  50 (deftest test-login []
  51
  52     (is (= 5 5))
  53 )
  54
  55
  56 ;; test result when already logged in
  57 (deftest test-existing-login []
  58
  59 )
  60
  61
  62 ;; test a login with a bad password
  63 (deftest test-bad-password []
  64
  65 )
  66
  67
  68 ;; test logging out
  69 (deftest test-logout []
  70
  71 )
  72
  73