drafter/tests/TestCard.elm

module TestCard exposing (..)

import Card exposing (ManaCost(..))
import Expect exposing (Expectation)
import Fuzz exposing (Fuzzer, int, list, string)
import Signals
import Test exposing (..)


suite : Test
suite =
    describe "Card"
        [ test "parseManaCost ('')" <|
            \_ ->
                Expect.equal (Card.parseManaCost "") (Just [])
        , test "parseManaCost ('{X}')" <|
            \_ ->
                Expect.equal (Card.parseManaCost "{X}") (Just [ X ])
        , test "parseManaCost ('{X}{Y}')" <|
            \_ ->
                Expect.equal (Card.parseManaCost "{X}{Y}") (Just [ X, Y ])
        ]