mirror of
https://github.com/correl/elm.git
synced 2024-11-25 03:00:06 +00:00
35 lines
941 B
Elm
35 lines
941 B
Elm
|
module Tests exposing (..)
|
||
|
|
|
||
|
|
import Expect
|
||
|
|
import Test exposing (..)
|
||
|
|
import Triangle exposing (rows)
|
||
|
|
|
||
|
|
|
||
|
|
tests : Test
|
||
|
|
tests =
|
||
|
|
describe "Triangle"
|
||
|
|
[ test "no rows" <|
|
||
|
|
\() ->
|
||
|
|
Expect.equal [] (rows 0)
|
||
|
|
, skip <|
|
||
|
|
test "single row" <|
|
||
|
|
\() ->
|
||
|
|
Expect.equal [ [ 1 ] ] (rows 1)
|
||
|
|
, skip <|
|
||
|
|
test "two rows" <|
|
||
|
|
\() ->
|
||
|
|
Expect.equal [ [ 1 ], [ 1, 1 ] ] (rows 2)
|
||
|
|
, skip <|
|
||
|
|
test "three rows" <|
|
||
|
|
\() ->
|
||
|
|
Expect.equal [ [ 1 ], [ 1, 1 ], [ 1, 2, 1 ] ] (rows 3)
|
||
|
|
, skip <|
|
||
|
|
test "four rows" <|
|
||
|
|
\() ->
|
||
|
|
Expect.equal [ [ 1 ], [ 1, 1 ], [ 1, 2, 1 ], [ 1, 3, 3, 1 ] ] (rows 4)
|
||
|
|
, skip <|
|
||
|
|
test "negative rows" <|
|
||
|
|
\() ->
|
||
|
|
Expect.equal [] (rows -1)
|
||
|
|
]
|