aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/gleam/queue_test.gleam534
1 files changed, 266 insertions, 268 deletions
diff --git a/test/gleam/queue_test.gleam b/test/gleam/queue_test.gleam
index 24c70b1..ae5dfeb 100644
--- a/test/gleam/queue_test.gleam
+++ b/test/gleam/queue_test.gleam
@@ -1,334 +1,332 @@
-if erlang {
- import gleam/queue
- import gleam/int
- import gleam/list
- import gleam/should
- import gleam/pair
+import gleam/queue
+import gleam/int
+import gleam/list
+import gleam/should
+import gleam/pair
+
+pub fn from_and_to_list_test() {
+ queue.from_list([])
+ |> should.equal(queue.new())
+
+ [1, 2, 3]
+ |> queue.from_list
+ |> queue.to_list
+ |> should.equal([1, 2, 3])
+}
- pub fn from_and_to_list_test() {
- queue.from_list([])
- |> should.equal(queue.new())
+pub fn is_empty_test() {
+ queue.new()
+ |> queue.is_empty
+ |> should.be_true
- [1, 2, 3]
- |> queue.from_list
- |> queue.to_list
- |> should.equal([1, 2, 3])
+ queue.from_list([""])
+ |> queue.is_empty
+ |> should.be_false
+}
+
+pub fn length_test() {
+ let test = fn(input) {
+ queue.from_list(input)
+ |> queue.length
+ |> should.equal(list.length(input))
}
- pub fn is_empty_test() {
- queue.new()
- |> queue.is_empty
- |> should.be_true
+ test([])
+ test([1])
+ test([1, 2])
+ test([1, 2, 1])
+ test([1, 2, 1, 5, 2, 7, 2, 7, 8, 4, 545])
+}
- queue.from_list([""])
- |> queue.is_empty
- |> should.be_false
- }
+pub fn push_back_test() {
+ [1, 2]
+ |> queue.from_list
+ |> queue.push_back(3)
+ |> queue.to_list
+ |> should.equal([1, 2, 3])
+
+ queue.new()
+ |> queue.push_back(1)
+ |> queue.push_back(2)
+ |> queue.push_back(3)
+ |> queue.to_list
+ |> should.equal([1, 2, 3])
+}
- pub fn length_test() {
- let test = fn(input) {
- queue.from_list(input)
- |> queue.length
- |> should.equal(list.length(input))
- }
-
- test([])
- test([1])
- test([1, 2])
- test([1, 2, 1])
- test([1, 2, 1, 5, 2, 7, 2, 7, 8, 4, 545])
- }
+pub fn push_front_test() {
+ [2, 3]
+ |> queue.from_list
+ |> queue.push_front(1)
+ |> queue.push_front(0)
+ |> queue.to_list
+ |> should.equal([0, 1, 2, 3])
+}
- pub fn push_back_test() {
- [1, 2]
+pub fn push_test() {
+ queue.new()
+ |> queue.push_front("b")
+ |> queue.push_back("x")
+ |> queue.push_front("a")
+ |> queue.push_back("y")
+ |> queue.to_list
+ |> should.equal(["a", "b", "x", "y"])
+}
+
+pub fn pop_back_test() {
+ assert Ok(tup) =
+ [1, 2, 3]
|> queue.from_list
- |> queue.push_back(3)
- |> queue.to_list
- |> should.equal([1, 2, 3])
+ |> queue.pop_back
+
+ tup
+ |> pair.first
+ |> should.equal(3)
+
+ tup
+ |> pair.second
+ |> queue.is_equal(queue.from_list([1, 2]))
+ |> should.be_true
+}
+pub fn pop_back_after_push_back_test() {
+ assert Ok(tup) =
queue.new()
|> queue.push_back(1)
|> queue.push_back(2)
|> queue.push_back(3)
- |> queue.to_list
- |> should.equal([1, 2, 3])
- }
+ |> queue.pop_back
- pub fn push_front_test() {
- [2, 3]
- |> queue.from_list
- |> queue.push_front(1)
- |> queue.push_front(0)
- |> queue.to_list
- |> should.equal([0, 1, 2, 3])
- }
+ tup
+ |> pair.first
+ |> should.equal(3)
+}
- pub fn push_test() {
+pub fn pop_back_after_push_test() {
+ assert Ok(tup) =
queue.new()
|> queue.push_front("b")
|> queue.push_back("x")
|> queue.push_front("a")
|> queue.push_back("y")
- |> queue.to_list
- |> should.equal(["a", "b", "x", "y"])
- }
+ |> queue.pop_back
- pub fn pop_back_test() {
- assert Ok(tup) =
- [1, 2, 3]
- |> queue.from_list
- |> queue.pop_back
+ tup
+ |> pair.first
+ |> should.equal("y")
+}
- tup
- |> pair.first
- |> should.equal(3)
+pub fn pop_back_empty_test() {
+ queue.from_list([])
+ |> queue.pop_back
+ |> should.equal(Error(Nil))
+}
- tup
- |> pair.second
- |> queue.is_equal(queue.from_list([1, 2]))
- |> should.be_true
- }
+pub fn pop_front_test() {
+ assert Ok(tup) =
+ [1, 2, 3]
+ |> queue.from_list
+ |> queue.pop_front
- pub fn pop_back_after_push_back_test() {
- assert Ok(tup) =
- queue.new()
- |> queue.push_back(1)
- |> queue.push_back(2)
- |> queue.push_back(3)
- |> queue.pop_back
-
- tup
- |> pair.first
- |> should.equal(3)
- }
+ tup
+ |> pair.first
+ |> should.equal(1)
- pub fn pop_back_after_push_test() {
- assert Ok(tup) =
- queue.new()
- |> queue.push_front("b")
- |> queue.push_back("x")
- |> queue.push_front("a")
- |> queue.push_back("y")
- |> queue.pop_back
-
- tup
- |> pair.first
- |> should.equal("y")
- }
+ tup
+ |> pair.second
+ |> queue.is_equal(queue.from_list([2, 3]))
+ |> should.be_true
+}
- pub fn pop_back_empty_test() {
- queue.from_list([])
- |> queue.pop_back
- |> should.equal(Error(Nil))
- }
+pub fn pop_front_after_push_front_test() {
+ assert Ok(tup) =
+ queue.new()
+ |> queue.push_front(3)
+ |> queue.push_front(2)
+ |> queue.push_front(1)
+ |> queue.pop_front
- pub fn pop_front_test() {
- assert Ok(tup) =
- [1, 2, 3]
- |> queue.from_list
- |> queue.pop_front
+ tup
+ |> pair.first
+ |> should.equal(1)
+}
- tup
- |> pair.first
- |> should.equal(1)
+pub fn pop_front_after_push_test() {
+ assert Ok(tup) =
+ queue.new()
+ |> queue.push_front("b")
+ |> queue.push_back("x")
+ |> queue.push_front("a")
+ |> queue.pop_front
- tup
- |> pair.second
- |> queue.is_equal(queue.from_list([2, 3]))
- |> should.be_true
- }
+ tup
+ |> pair.first
+ |> should.equal("a")
+}
- pub fn pop_front_after_push_front_test() {
- assert Ok(tup) =
- queue.new()
- |> queue.push_front(3)
- |> queue.push_front(2)
- |> queue.push_front(1)
- |> queue.pop_front
-
- tup
- |> pair.first
- |> should.equal(1)
- }
+pub fn pop_front_empty_test() {
+ queue.from_list([])
+ |> queue.pop_front
+ |> should.equal(Error(Nil))
+}
- pub fn pop_front_after_push_test() {
- assert Ok(tup) =
- queue.new()
- |> queue.push_front("b")
- |> queue.push_back("x")
- |> queue.push_front("a")
- |> queue.pop_front
-
- tup
- |> pair.first
- |> should.equal("a")
+pub fn reverse_test() {
+ queue.from_list([1, 2, 3])
+ |> queue.reverse
+ |> queue.to_list
+ |> should.equal([3, 2, 1])
+
+ queue.new()
+ |> queue.push_back(1)
+ |> queue.push_back(2)
+ |> queue.push_back(3)
+ |> queue.reverse
+ |> queue.to_list
+ |> should.equal([3, 2, 1])
+
+ queue.new()
+ |> queue.push_front(1)
+ |> queue.push_front(2)
+ |> queue.push_front(3)
+ |> queue.reverse
+ |> queue.to_list
+ |> should.equal([1, 2, 3])
+
+ queue.new()
+ |> queue.push_front(1)
+ |> queue.push_front(2)
+ |> queue.push_back(3)
+ |> queue.push_back(4)
+ |> queue.reverse
+ |> queue.to_list
+ |> should.equal([4, 3, 1, 2])
+}
+
+pub fn is_equal_test() {
+ let should_equal = fn(a, b) {
+ a
+ |> queue.is_equal(to: b)
+ |> should.be_true
}
- pub fn pop_front_empty_test() {
- queue.from_list([])
- |> queue.pop_front
- |> should.equal(Error(Nil))
+ let should_not_equal = fn(a, b) {
+ a
+ |> queue.is_equal(to: b)
+ |> should.be_false
}
- pub fn reverse_test() {
- queue.from_list([1, 2, 3])
- |> queue.reverse
- |> queue.to_list
- |> should.equal([3, 2, 1])
+ should_equal(queue.new(), queue.new())
+ queue.new()
+ |> queue.push_front(1)
+ |> should_equal(
queue.new()
- |> queue.push_back(1)
- |> queue.push_back(2)
- |> queue.push_back(3)
- |> queue.reverse
- |> queue.to_list
- |> should.equal([3, 2, 1])
+ |> queue.push_back(1),
+ )
+ queue.new()
+ |> queue.push_front(1)
+ |> should_equal(
queue.new()
- |> queue.push_front(1)
- |> queue.push_front(2)
- |> queue.push_front(3)
- |> queue.reverse
- |> queue.to_list
- |> should.equal([1, 2, 3])
+ |> queue.push_front(1),
+ )
+ queue.new()
+ |> queue.push_back(1)
+ |> queue.push_back(2)
+ |> should_equal(
queue.new()
- |> queue.push_front(1)
|> queue.push_front(2)
- |> queue.push_back(3)
- |> queue.push_back(4)
- |> queue.reverse
- |> queue.to_list
- |> should.equal([4, 3, 1, 2])
- }
-
- pub fn is_equal_test() {
- let should_equal = fn(a, b) {
- a
- |> queue.is_equal(to: b)
- |> should.be_true
- }
-
- let should_not_equal = fn(a, b) {
- a
- |> queue.is_equal(to: b)
- |> should.be_false
- }
-
- should_equal(queue.new(), queue.new())
-
- queue.new()
- |> queue.push_front(1)
- |> should_equal(
- queue.new()
- |> queue.push_back(1),
- )
+ |> queue.push_front(1),
+ )
+ queue.new()
+ |> queue.push_back(1)
+ |> should_not_equal(
queue.new()
- |> queue.push_front(1)
- |> should_equal(
- queue.new()
- |> queue.push_front(1),
- )
+ |> queue.push_front(2)
+ |> queue.push_front(1),
+ )
+ queue.new()
+ |> queue.push_back(2)
+ |> queue.push_back(1)
+ |> should_not_equal(
queue.new()
- |> queue.push_back(1)
- |> queue.push_back(2)
- |> should_equal(
- queue.new()
- |> queue.push_front(2)
- |> queue.push_front(1),
- )
+ |> queue.push_front(2)
+ |> queue.push_front(1),
+ )
+}
- queue.new()
- |> queue.push_back(1)
- |> should_not_equal(
- queue.new()
- |> queue.push_front(2)
- |> queue.push_front(1),
- )
+pub fn is_logically_equal_test() {
+ let both_even_or_odd = fn(a, b) { int.is_even(a) == int.is_even(b) }
- queue.new()
- |> queue.push_back(2)
- |> queue.push_back(1)
- |> should_not_equal(
- queue.new()
- |> queue.push_front(2)
- |> queue.push_front(1),
- )
+ let should_equal = fn(a, b) {
+ a
+ |> queue.is_logically_equal(to: b, checking: both_even_or_odd)
+ |> should.be_true
}
- pub fn is_logically_equal_test() {
- let both_even_or_odd = fn(a, b) { int.is_even(a) == int.is_even(b) }
-
- let should_equal = fn(a, b) {
- a
- |> queue.is_logically_equal(to: b, checking: both_even_or_odd)
- |> should.be_true
- }
-
- let should_not_equal = fn(a, b) {
- a
- |> queue.is_logically_equal(to: b, checking: both_even_or_odd)
- |> should.be_false
- }
+ let should_not_equal = fn(a, b) {
+ a
+ |> queue.is_logically_equal(to: b, checking: both_even_or_odd)
+ |> should.be_false
+ }
- should_equal(queue.new(), queue.new())
+ should_equal(queue.new(), queue.new())
+ queue.new()
+ |> queue.push_front(3)
+ |> should_equal(
queue.new()
- |> queue.push_front(3)
- |> should_equal(
- queue.new()
- |> queue.push_back(1),
- )
+ |> queue.push_back(1),
+ )
+ queue.new()
+ |> queue.push_front(4)
+ |> should_equal(
queue.new()
- |> queue.push_front(4)
- |> should_equal(
- queue.new()
- |> queue.push_back(2),
- )
+ |> queue.push_back(2),
+ )
+ queue.new()
+ |> queue.push_front(3)
+ |> should_equal(
queue.new()
- |> queue.push_front(3)
- |> should_equal(
- queue.new()
- |> queue.push_front(1),
- )
+ |> queue.push_front(1),
+ )
+ queue.new()
+ |> queue.push_back(3)
+ |> queue.push_back(4)
+ |> should_equal(
queue.new()
- |> queue.push_back(3)
- |> queue.push_back(4)
- |> should_equal(
- queue.new()
- |> queue.push_front(2)
- |> queue.push_front(1),
- )
+ |> queue.push_front(2)
+ |> queue.push_front(1),
+ )
+ queue.new()
+ |> queue.push_back(1)
+ |> should_not_equal(
queue.new()
- |> queue.push_back(1)
- |> should_not_equal(
- queue.new()
- |> queue.push_front(2)
- |> queue.push_front(1),
- )
+ |> queue.push_front(2)
+ |> queue.push_front(1),
+ )
+ queue.new()
+ |> queue.push_back(2)
+ |> queue.push_back(1)
+ |> should_not_equal(
queue.new()
- |> queue.push_back(2)
- |> queue.push_back(1)
- |> should_not_equal(
- queue.new()
- |> queue.push_front(2)
- |> queue.push_front(1),
- )
+ |> queue.push_front(2)
+ |> queue.push_front(1),
+ )
+ queue.new()
+ |> queue.push_back(4)
+ |> queue.push_back(3)
+ |> should_not_equal(
queue.new()
- |> queue.push_back(4)
- |> queue.push_back(3)
- |> should_not_equal(
- queue.new()
- |> queue.push_front(2)
- |> queue.push_front(1),
- )
- }
+ |> queue.push_front(2)
+ |> queue.push_front(1),
+ )
}
generated by cgit v1.2.3 (git 2.25.1) at 2025-07-27 19:31:45 +0000