PageRenderTime 52ms CodeModel.GetById 25ms RepoModel.GetById 1ms app.codeStats 0ms

/pelrapeire/test/pelrapeire/views/projects/uid/home_view_test.clj

https://github.com/mderosa/nimcram
Clojure | 48 lines | 41 code | 7 blank | 0 comment | 8 complexity | 8e46d95659c94b3643d4ed8f75da67a6 MD5 | raw file
    

  1. (ns pelrapeire.views.projects.uid.home-view-test
    2. 

  2.   (:use pelrapeire.views.projects.uid.home-view
    3. 

  3. 	clojure.contrib.trace
    4. 

  4. 	clojure.test))
    5. 

  5. 

  6. (def test-task 
    7. 

  7.      {"taskStartDate" [2010 7 6 21 10 0], 
    8. 

  8.       "specification" "should be queryable so that give an project name we can obtain all the tasks for that project", 
    9. 

  9.       "_rev" "3-f0c26eae64651811fffd4a1bf534ea23", 
    10. 

  10.       "deliversUserFunctionality" true, 
    11. 

  11.       "progress" "delivered", 
    12. 

  12.       "solutionTeam" ["marc.derosa@gmail.com"], 
    13. 

  13.       "title" "create project task view", 
    14. 

  14.       "project" "PicoMinMin", 
    15. 

  15.       "taskCompleteDate" [2010 7 6 22 21 0], 
    16. 

  16.       "_id" "70ab59880b829b4ad4fbd56d6a068da1", 
    17. 

  17.       "type" "task"})
    18. 

  18. 

  19. (deftest test-make-tasks-none
    20. 

  20.   (testing "we should return an empty vector when there are no tasks in the 
    21. 

  21. task list that satisfy the progress designation"
    22. 

  22.     (let [actual (make-tasks [test-task] "proposed")]
    23. 

  23.       (is (= [] actual)))))
    24. 

  24. 

  25. (deftest test-make-tasks-one
    26. 

  26.   (testing "we should return an non empty vector of tables when there are tasks in the 
    27. 

  27. task list that satisfy the progress designation"
    28. 

  28.     (let [actual (make-tasks [test-task] "delivered")]
    29. 

  29.       (is (= 1 (.size actual)))
    30. 

  30.       (is (= :table (first (first actual)))))))
    31. 

  31. 

  32. (deftest test-make-priority-display1
    33. 

  33.   (testing "a nil value of 'priority' should show 3 off stars"
    34. 

  34.     (let [actual (make-priority-display {"_id" "3dkiee33"})]
    35. 

  35.       (is (= :td (first actual)))
    36. 

  36.       (is (= "/img/star-off.gif" (:src (nth (nth actual 2) 1))))
    37. 

  37.       (is (= 5 (count actual))))))
    38. 

  38. 

  39. (deftest test-make-priority-display2
    40. 

  40.   (testing "a priority value of 2 should display 2 on and 1 off star, in that order"
    41. 

  41.     (let [actual (make-priority-display {"priority" 2})]
    42. 

  42.       (is (= "/img/star-on.gif" (:src (nth (nth actual 3) 1))))
    43. 

  43.       (is (= "/img/star-off.gif" (:src (nth (nth actual 4) 1)))))))
    44. 

  44. 

  45. (deftest test-make-priority-display3
    46. 

  46.   (testing "values less than 1 and greater than 3 are not allowed"
    47. 

  47.     (is (thrown? IllegalArgumentException (make-priority-display {"priority" 5})))))
    48. 

  48. 

  49.