Document queue

1 files changed, 48 insertions, 2 deletions

diff --git a/test/gleam/queue_test.gleam b/test/gleam/queue_test.gleam
index 128dab0..e0e7378 100644
--- a/test/gleam/queue_test.gleam
+++ b/test/gleam/queue_test.gleam
@@ -7,9 +7,16 @@ pub fn from_and_to_list_test() {
   queue.from_list([])
   |> should.equal(queue.new())
 
+  [0, 0]
+  |> queue.from_list
+  |> queue.push_back(1)
+  |> queue.to_list
+  |> should.equal([0, 0, 1])
+
   let test = fn(input) {
     queue.from_list(input)
     |> queue.to_list
+    |> list.reverse
     |> should.equal(input)
   }
 
@@ -20,6 +27,14 @@ pub fn from_and_to_list_test() {
   test([1, 2, 1, 5, 2, 7, 2, 7, 8, 4, 545])
 }
 
+pub fn push_back_test() {
+  [0, 0]
+  |> queue.from_list
+  |> queue.push_back(1)
+  |> queue.to_list
+  |> should.equal([0, 0, 1])
+}
+
 pub fn is_empty_test() {
   queue.new()
   |> queue.is_empty
@@ -50,7 +65,7 @@ pub fn push_test() {
   |> queue.push_back(8)
   |> queue.push_back(2)
   |> queue.to_list
-  |> should.equal([2, 8, 7])
+  |> should.equal([7, 8, 2])
 }
 
 pub fn push_front_test() {
@@ -61,7 +76,13 @@ pub fn push_front_test() {
   |> queue.push_front(4)
   |> queue.push_front(3)
   |> queue.to_list
-  |> should.equal([2, 8, 7, 4, 3])
+  |> should.equal([3, 4, 7, 8, 2])
+
+  [0, 0]
+  |> queue.from_list
+  |> queue.push_front(1)
+  |> queue.to_list
+  |> should.equal([1, 0, 0])
 }
 
 pub fn pop_back_test() {
@@ -93,7 +114,32 @@ pub fn reverse_test() {
   queue.from_list([1, 2, 3])
   |> queue.reverse
   |> queue.to_list
+  |> should.equal([1, 2, 3])
+
+  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() {