validation test example

validation-test-example.clj

(fact "answers get validated"
      (let [ctx {:state       :composing
                 :players     #{"data" "geordi" "picard"}
                 :submissions {}
                 :letters     [\S \I \T \M]
                 ;:live? true
                 }]
        (submit-answer ctx "data" "sock it to me") 
          => (contains {:submissions {"data" "sock it to me"}})

        ; you can't copy someone else's answer
        (-> ctx
          (submit-answer "data" "sock it to me")
          (submit-answer "geordi" "Sock It To Me")) 
          =not=> (contains {:submissions {"geordi" "Sock It To Me"}})

        (submit-answer ctx "data" "some invalid stuff that doesn't work") 
          =not=> (contains {:submissions {"data" "some invalid stuff that doesn't work"}})

        (submit-answer ctx "non-player" "whatever") 
          =not=> (contains {:submissions {"non-player" "whatever"}})
        ))