aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--src/bool.gleam32
-rw-r--r--src/list.gleam72
-rw-r--r--src/order.gleam68
-rw-r--r--src/result.gleam34
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)
}
generated by cgit v1.2.3 (git 2.25.1) at 2025-07-27 22:36:46 +0000