PageRenderTime 55ms CodeModel.GetById 25ms RepoModel.GetById 0ms app.codeStats 0ms

/test/twilio/test/twiml/voice.clj

https://github.com/sethtrain/clj-twilio
Clojure | 48 lines | 42 code | 6 blank | 0 comment | 15 complexity | 7a206e22e718cfbe09a2bb2e42f2350a MD5 | raw file
    

  1. (ns twilio.test.twiml.voice
    2. 

  2.   (:use [twilio.twiml.voice] :reload)
    3. 

  3.   (:use [clojure.test]
    4. 

  4.         [twilio.twiml.core]))
    5. 

  5. 

  6. (deftest test-say
    7. 

  7.   (is (= (say "Hello World")
    8. 

  8.          [:Say {} "Hello World"]))
    9. 

  9.   (is (= (say {:voice "woman"} "Hello World")
    10. 

  10.          [:Say {:voice "woman"} "Hello World"])))
    11. 

  11. 

  12. (deftest test-play
    13. 

  13.   (is (= (play "http://foo.bar.com/hello.mp3")
    14. 

  14.          [:Play {} "http://foo.bar.com/hello.mp3"]))
    15. 

  15.   (is (= (play {:loop 1} "http://foo.bar.com/hello.mp3")
    16. 

  16.          [:Play {:loop 1} "http://foo.bar.com/hello.mp3"])))
    17. 

  17. 

  18. (deftest test-gather
    19. 

  19.   (is (= (gather)
    20. 

  20.          [:Gather {} nil]))
    21. 

  21.   (is (= (gather (say "Please enter your account number."))
    22. 

  22.          [:Gather {} (list [:Say {} "Please enter your account number."])]))
    23. 

  23.   (is (= (gather {} (say "Please enter your account number.")
    24. 

  24.                     (play "http://foo.bar.com/account_music.mp3"))
    25. 

  25.          [:Gather {} (list [:Say {} "Please enter your account number."]
    26. 

  26.                            [:Play {} "http://foo.bar.com/account_music.mp3"])])))
    27. 

  27. 

  28. (deftest test-record
    29. 

  29.   (is (= (record)
    30. 

  30.          [:Record {}]))
    31. 

  31.   (is (= (record {:maxLength 20 :method "GET"})
    32. 

  32.          [:Record {:maxLength 20 :method "GET"}])))
    33. 

  33. 

  34. (deftest test-dial-number
    35. 

  35.   (is (= (dial (number "123-555-5555"))
    36. 

  36.          [:Dial {} (list [:Number {} "123-555-5555"])]))
    37. 

  37.   (is (= (dial (number {:sendDigits "9999"} "123-555-5555"))
    38. 

  38.          [:Dial {} (list [:Number {:sendDigits "9999"} "123-555-5555"])]))
    39. 

  39.   (is (= (dial {:method "POST"} (number "123-555-5555"))
    40. 

  40.          [:Dial {:method "POST"} (list [:Number {} "123-555-5555"])])))
    41. 

  41. 

  42. (deftest test-dial-conference
    43. 

  43.   (is (= (dial (conference "123-555-5555"))
    44. 

  44.          [:Dial {} (list [:Conference {} "123-555-5555"])]))
    45. 

  45.   (is (= (dial (conference {:startConferenceOnEnter "true"} "123-555-5555"))
    46. 

  46.          [:Dial {} (list [:Conference {:startConferenceOnEnter "true"} "123-555-5555"])]))
    47. 

  47.   (is (= (dial {:method "POST"} (conference "123-555-5555"))
    48. 

  48.          [:Dial {:method "POST"} (list [:Conference {} "123-555-5555"])])))
    49. 

  49.