diff options
author | Louis Pilfold <louis@lpil.uk> | 2018-10-27 23:25:31 +0000 |
---|---|---|
committer | Louis Pilfold <louis@lpil.uk> | 2018-10-27 23:25:31 +0000 |
commit | f3b6ac1c3e681a4d1a240b9aa93375d830ef4c40 (patch) | |
tree | 7fa562627d486e83c2c555b4ba7253f868f2de87 /src | |
parent | 06928fccf543143bfacb0569297bef5d8184e58f (diff) | |
download | gleam_stdlib-f3b6ac1c3e681a4d1a240b9aa93375d830ef4c40.tar.gz gleam_stdlib-f3b6ac1c3e681a4d1a240b9aa93375d830ef4c40.zip |
assert -> expect
assert can be useful keyword later for turning off exhaustiveness
checking.
Diffstat (limited to 'src')
-rw-r--r-- | src/bool.gleam | 32 | ||||
-rw-r--r-- | src/list.gleam | 72 | ||||
-rw-r--r-- | src/order.gleam | 68 | ||||
-rw-r--r-- | src/result.gleam | 34 |
4 files changed, 103 insertions, 103 deletions
diff --git a/src/bool.gleam b/src/bool.gleam index c8da97d..69f01f9 100644 --- a/src/bool.gleam +++ b/src/bool.gleam @@ -9,10 +9,10 @@ pub fn not(bool) { test not { not(True) - |> assert:false + |> expect:false not(False) - |> assert:true + |> expect:true } pub fn compare(a, b) { @@ -26,16 +26,16 @@ pub fn compare(a, b) { test compare { compare(True, True) - |> assert:equal(_, Eq) + |> expect:equal(_, Eq) compare(True, False) - |> assert:equal(_, Gt) + |> expect:equal(_, Gt) compare(False, False) - |> assert:equal(_, Lt) + |> expect:equal(_, Lt) compare(False, True) - |> assert:equal(_, Gt) + |> expect:equal(_, Gt) } pub fn max(a, b) { @@ -47,16 +47,16 @@ pub fn max(a, b) { test max { max(True, True) - |> assert:equal(_, True) + |> expect:equal(_, True) max(True, False) - |> assert:equal(_, True) + |> expect:equal(_, True) max(False, False) - |> assert:equal(_, False) + |> expect:equal(_, False) max(False, True) - |> assert:equal(_, True) + |> expect:equal(_, True) } pub fn min(a, b) { @@ -68,16 +68,16 @@ pub fn min(a, b) { test min { min(True, True) - |> assert:equal(_, True) + |> expect:equal(_, True) min(True, False) - |> assert:equal(_, False) + |> expect:equal(_, False) min(False, False) - |> assert:equal(_, False) + |> expect:equal(_, False) min(False, True) - |> assert:equal(_, False) + |> expect:equal(_, False) } pub fn to_int(bool) { @@ -89,8 +89,8 @@ pub fn to_int(bool) { test to_int { to_int(True) - |> assert:equal(_, 1) + |> expect:equal(_, 1) to_int(False) - |> assert:equal(_, 0) + |> expect:equal(_, 0) } diff --git a/src/list.gleam b/src/list.gleam index 017f9ed..d191b1e 100644 --- a/src/list.gleam +++ b/src/list.gleam @@ -1,4 +1,4 @@ -import assert +import expect import result:[Ok, Error] pub enum Error = @@ -9,10 +9,10 @@ pub enum Error = pub external fn length(List(a)) -> Int = 'erlang' 'length' test length { - length([]) |> assert:equal(_, 0) - length([1]) |> assert:equal(_, 1) - length([1, 1]) |> assert:equal(_, 2) - length([1, 1, 1]) |> assert:equal(_, 3) + length([]) |> expect:equal(_, 0) + length([1]) |> expect:equal(_, 1) + length([1, 1]) |> expect:equal(_, 2) + length([1, 1, 1]) |> expect:equal(_, 3) } // Using the Erlang C BIF implementation. @@ -20,8 +20,8 @@ test length { pub external fn reverse(List(a)) -> List(a) = 'erlang' 'reverse' test reverse { - length([]) |> assert:equal(_, []) - length([1, 2, 3, 4, 5]) |> assert:equal(_, [5, 4, 3, 2, 1]) + length([]) |> expect:equal(_, []) + length([1, 2, 3, 4, 5]) |> expect:equal(_, [5, 4, 3, 2, 1]) } pub fn is_empty(list) { @@ -29,8 +29,8 @@ pub fn is_empty(list) { } test is_empty { - is_empty([]) |> assert:true - is_empty([1]) |> assert:false + is_empty([]) |> expect:true + is_empty([1]) |> expect:false } pub fn member(list, elem) { @@ -42,9 +42,9 @@ pub fn member(list, elem) { } test is_member { - is_member([0, 4, 5, 1], 1) |> assert:true - is_member([0, 4, 5, 7], 1) |> assert:false - is_member([], 1) |> assert:false + is_member([0, 4, 5, 1], 1) |> expect:true + is_member([0, 4, 5, 7], 1) |> expect:false + is_member([], 1) |> expect:false } pub fn head(list) { @@ -56,10 +56,10 @@ pub fn head(list) { test head { head([0, 4, 5, 7]) - |> assert:equal(_, Ok(0)) + |> expect:equal(_, Ok(0)) head([]) - |> assert:equal(_, Error(Empty)) + |> expect:equal(_, Error(Empty)) } pub fn tail(list) { @@ -71,13 +71,13 @@ pub fn tail(list) { test tail { tail([0, 4, 5, 7]) - |> assert:equal(_, Ok([4, 5, 7])) + |> expect:equal(_, Ok([4, 5, 7])) tail([0]) - |> assert:equal(_, Ok([])) + |> expect:equal(_, Ok([])) tail([]) - |> assert:equal(_, Error(Empty)) + |> expect:equal(_, Error(Empty)) } pub fn filter(list, fun) { @@ -87,19 +87,19 @@ pub fn filter(list, fun) { test filter { [] |> filter(_, fn(x) { True }) - |> assert:equal(_, []) + |> expect:equal(_, []) [0, 4, 5, 7, 3] |> filter(_, fn(x) { True }) - |> assert:equal(_, [0, 4, 5, 7, 3]) + |> expect:equal(_, [0, 4, 5, 7, 3]) [0, 4, 5, 7, 3] |> filter(_, fn(x) { x > 4 }) - |> assert:equal(_, [5, 7]) + |> expect:equal(_, [5, 7]) [0, 4, 5, 7, 3] |> filter(_, fn(x) { x < 4 }) - |> assert:equal(_, [0, 3]) + |> expect:equal(_, [0, 3]) } fn do_filter(list, fun, acc) { @@ -122,11 +122,11 @@ pub fn map(list, fun) { test map { [] |> map(_, fn(x) { x * 2 }) - |> assert:equal(_, []) + |> expect:equal(_, []) [0, 4, 5, 7, 3] |> map(_, fn(x) { x * 2 }) - |> assert:equal(_, [0, 8, 10, 14, 6]) + |> expect:equal(_, [0, 8, 10, 14, 6]) } fn do_map(list, fun, acc) { @@ -150,11 +150,11 @@ pub fn drop(list, n) { test drop/2 { [] |> drop(_, 5) - |> assert:equal(_, []) + |> expect:equal(_, []) [1, 2, 3, 4, 5, 6, 7, 8] |> drop(_, 5) - |> assert:equal(_, [6, 7, 8]) + |> expect:equal(_, [6, 7, 8]) } pub fn take(list, n) { @@ -175,10 +175,10 @@ fn do_take(list, n, acc) { test take { [] |> take(_, 5) - |> assert:equal(_, []) + |> expect:equal(_, []) [1, 2, 3, 4, 5, 6, 7, 8] |> take(_, 5) - |> assert:equal(_, [1, 2, 3, 4, 5]) + |> expect:equal(_, [1, 2, 3, 4, 5]) } pub fn of(x) { @@ -186,8 +186,8 @@ pub fn of(x) { } test of() { - of([]) |> assert:equal(_, [[]]) - of(1) |> assert:equal(_, [1]) + of([]) |> expect:equal(_, [[]]) + of(1) |> expect:equal(_, [1]) } pub fn new() { @@ -195,7 +195,7 @@ pub fn new() { } test new { - new() |> assert:equal(_, []) + new() |> expect:equal(_, []) } pub fn flatten(lists) { @@ -204,16 +204,16 @@ pub fn flatten(lists) { test flatten { flatten([]) - |> assert:equal(_, []) + |> expect:equal(_, []) flatten([[]]) - |> assert:equal(_, []) + |> expect:equal(_, []) flatten([[], [], []]) - |> assert:equal(_, []) + |> expect:equal(_, []) flatten([[1, 2], [], [3, 4]]) - |> assert:equal(_, [1, 2, 3, 4]) + |> expect:equal(_, [1, 2, 3, 4]) } fn do_flatten(lists, acc) { @@ -233,7 +233,7 @@ pub fn foldl(list, acc, fun) { test foldl { [1, 2, 3] |> foldl(_, [], fn(x, acc) { x :: acc }) - |> assert:equal(_, [3, 2, 1]) + |> expect:equal(_, [3, 2, 1]) } pub fn foldr(list, acc, fun) { @@ -246,5 +246,5 @@ pub fn foldr(list, acc, fun) { test foldr { [1, 2, 3] |> foldr(_, [], fn(x, acc) { x :: acc }) - |> assert:equal(_, [1, 2, 3]) + |> expect:equal(_, [1, 2, 3]) } diff --git a/src/order.gleam b/src/order.gleam index d592aec..9e69114 100644 --- a/src/order.gleam +++ b/src/order.gleam @@ -1,4 +1,4 @@ -import assert +import expect pub enum Order = | Lt @@ -15,9 +15,9 @@ pub fn reverse(order) { } test reverse { - reverse(Lt) |> assert:equal(_, Gt) - reverse(Eq) |> assert:equal(_, Eq) - reverse(Gt) |> assert:equal(_, Lt) + reverse(Lt) |> expect:equal(_, Gt) + reverse(Eq) |> expect:equal(_, Eq) + reverse(Gt) |> expect:equal(_, Lt) } pub fn to_int(order) { @@ -29,9 +29,9 @@ pub fn to_int(order) { } test to_int { - to_int(Lt) |> assert:equal(_, -1) - to_int(Eq) |> assert:equal(_, 0) - to_int(Gt) |> assert:equal(_, 1) + to_int(Lt) |> expect:equal(_, -1) + to_int(Eq) |> expect:equal(_, 0) + to_int(Gt) |> expect:equal(_, 1) } pub fn compare(a, b) { @@ -46,15 +46,15 @@ pub fn compare(a, b) { } test compare { - compare(Lt, Lt) |> assert:equal(_, Eq) - compare(Lt, Eq) |> assert:equal(_, Lt) - compare(Lt, Gt) |> assert:equal(_, Lt) - compare(Eq, Lt) |> assert:equal(_, Gt) - compare(Eq, Eq) |> assert:equal(_, Eq) - compare(Eq, Gt) |> assert:equal(_, Lt) - compare(Gt, Lt) |> assert:equal(_, Gt) - compare(Gt, Eq) |> assert:equal(_, Gt) - compare(Gt, Gt) |> assert:equal(_, Eq) + compare(Lt, Lt) |> expect:equal(_, Eq) + compare(Lt, Eq) |> expect:equal(_, Lt) + compare(Lt, Gt) |> expect:equal(_, Lt) + compare(Eq, Lt) |> expect:equal(_, Gt) + compare(Eq, Eq) |> expect:equal(_, Eq) + compare(Eq, Gt) |> expect:equal(_, Lt) + compare(Gt, Lt) |> expect:equal(_, Gt) + compare(Gt, Eq) |> expect:equal(_, Gt) + compare(Gt, Gt) |> expect:equal(_, Eq) } pub fn max(a, b) { @@ -66,15 +66,15 @@ pub fn max(a, b) { } test max { - max(Lt, Lt) |> assert:equal(_, Lt) - max(Lt, Eq) |> assert:equal(_, Eq) - max(Lt, Gt) |> assert:equal(_, Gt) - max(Eq, Lt) |> assert:equal(_, Eq) - max(Eq, Eq) |> assert:equal(_, Eq) - max(Eq, Gt) |> assert:equal(_, Gt) - max(Gt, Lt) |> assert:equal(_, Gt) - max(Gt, Eq) |> assert:equal(_, Gt) - max(Gt, Gt) |> assert:equal(_, Gt) + max(Lt, Lt) |> expect:equal(_, Lt) + max(Lt, Eq) |> expect:equal(_, Eq) + max(Lt, Gt) |> expect:equal(_, Gt) + max(Eq, Lt) |> expect:equal(_, Eq) + max(Eq, Eq) |> expect:equal(_, Eq) + max(Eq, Gt) |> expect:equal(_, Gt) + max(Gt, Lt) |> expect:equal(_, Gt) + max(Gt, Eq) |> expect:equal(_, Gt) + max(Gt, Gt) |> expect:equal(_, Gt) } pub fn min(a, b) { @@ -86,13 +86,13 @@ pub fn min(a, b) { } test min { - min(Lt, Lt) |> assert:equal(_, Lt) - min(Lt, Eq) |> assert:equal(_, Lt) - min(Lt, Gt) |> assert:equal(_, Lt) - min(Eq, Lt) |> assert:equal(_, Lt) - min(Eq, Eq) |> assert:equal(_, Eq) - min(Eq, Gt) |> assert:equal(_, Eq) - min(Gt, Lt) |> assert:equal(_, Lt) - min(Gt, Eq) |> assert:equal(_, Eq) - min(Gt, Gt) |> assert:equal(_, Gt) + min(Lt, Lt) |> expect:equal(_, Lt) + min(Lt, Eq) |> expect:equal(_, Lt) + min(Lt, Gt) |> expect:equal(_, Lt) + min(Eq, Lt) |> expect:equal(_, Lt) + min(Eq, Eq) |> expect:equal(_, Eq) + min(Eq, Gt) |> expect:equal(_, Eq) + min(Gt, Lt) |> expect:equal(_, Lt) + min(Gt, Eq) |> expect:equal(_, Eq) + min(Gt, Gt) |> expect:equal(_, Gt) } diff --git a/src/result.gleam b/src/result.gleam index d204b3b..d5aa59e 100644 --- a/src/result.gleam +++ b/src/result.gleam @@ -1,4 +1,4 @@ -import assert +import expect doc """ Result represents the result of something that may succeed or fail. @@ -17,8 +17,8 @@ pub fn is_ok(result) { } test is_ok { - is_ok(Ok(1)) |> assert:true - is_ok(Error(1)) |> assert:false + is_ok(Ok(1)) |> expect:true + is_ok(Error(1)) |> expect:false } pub fn is_error(result) { @@ -29,8 +29,8 @@ pub fn is_error(result) { } test is_error { - is_error(Ok(1)) |> assert:false - is_error(Error(1)) |> assert:true + is_error(Ok(1)) |> expect:false + is_error(Error(1)) |> expect:true } pub fn map(result, fun) { @@ -43,10 +43,10 @@ pub fn map(result, fun) { test map { Ok(1) |> map(_, fn(x) { x + 1 }) - |> assert:equal(_, Ok(2)) + |> expect:equal(_, Ok(2)) Error(1) |> map(_, fn(x) { x + 1 }) - |> assert:equal(Error(1)) + |> expect:equal(Error(1)) } pub fn map_error(result, fun) { @@ -59,10 +59,10 @@ pub fn map_error(result, fun) { test map_error { Ok(1) |> map_error(_, fn(x) { x + 1 }) - |> assert:equal(_, Ok(1)) + |> expect:equal(_, Ok(1)) Error(1) |> map_error(_, fn(x) { x + 1 }) - |> assert:equal(_, Error(2)) + |> expect:equal(_, Error(2)) } pub fn flatten(result) { @@ -74,11 +74,11 @@ pub fn flatten(result) { test flatten { flatten(Ok(Ok(1))) - |> assert:equal(_, Ok(1)) + |> expect:equal(_, Ok(1)) flatten(Ok(Error(1))) - |> assert:equal(_, Error(1)) + |> expect:equal(_, Error(1)) flatten(Error(1)) - |> assert:equal(_, Error(1)) + |> expect:equal(_, Error(1)) } pub fn flat_map(result, fun) { @@ -90,13 +90,13 @@ pub fn flat_map(result, fun) { test flat_map { Error(1) |> flat_map(_, fn(x) { Ok(x + 1) }) - |> assert:equal(_, Error(1)) + |> expect:equal(_, Error(1)) Ok(1) |> flat_map(_, fn(x) { Ok(x + 1) }) - |> assert:equal(_, Ok(2)) + |> expect:equal(_, Ok(2)) Ok(1) |> flat_map(_, fn(_) { Error(1) }) - |> assert:equal(_, Error(1)) + |> expect:equal(_, Error(1)) } pub fn unwrap(result, default) { @@ -107,6 +107,6 @@ pub fn unwrap(result, default) { } test unwrap { - unwrap(Ok(1), 50) |> assert:equal(_, 1) - unwrap(Error("nope"), 50) |> assert:equal(_, 50) + unwrap(Ok(1), 50) |> expect:equal(_, 1) + unwrap(Error("nope"), 50) |> expect:equal(_, 50) } |