TestSignals.elm 593 B

123456789101112131415161718192021
  1. module TestSignals exposing (..)
  2. import Expect exposing (Expectation)
  3. import Fuzz exposing (Fuzzer, int, list, string)
  4. import Signals
  5. import Test exposing (..)
  6. suite : Test
  7. suite =
  8. describe "Signals"
  9. [ test "expectedCardsSeen (0)" <|
  10. \_ ->
  11. Expect.equal (Signals.expectedCardsSeen 0) 14
  12. , test "expectedCardsSeen (1)" <|
  13. \_ ->
  14. Expect.equal (Signals.expectedCardsSeen 1) (14 + 13)
  15. , test "expectedCardsSeen (41)" <|
  16. \_ ->
  17. Expect.equal (Signals.expectedCardsSeen 41) 315
  18. ]