refactor tests and remove js edge case

2 files changed, 32 insertions, 60 deletions

diff --git a/test/gleam/float_test.gleam b/test/gleam/float_test.gleam
index 6f923c5..6c87f65 100644
--- a/test/gleam/float_test.gleam
+++ b/test/gleam/float_test.gleam
@@ -303,49 +303,21 @@ pub fn product_test() {
   |> should.equal(33.6)
 }
 
-pub fn random_lower_boundary_test() {
-  let one_random_lower_boundary_test_set = fn(_acc, _e) {
+pub fn random_uniform_test() {
+  let one_random_uniform_test_set = fn(_acc, _e) {
     { float.random_uniform() >=. 0. }
     |> should.be_true()
     { float.random_uniform() <. 0. }
     |> should.be_false()
+
+    { float.random_uniform() <. 1. }
+    |> should.be_true()
+    { float.random_uniform() >=. 1. }
+    |> should.be_false()
+
     Nil
   }
   list.range(0, 100)
   |> iterator.from_list
-  |> iterator.fold(Nil, one_random_lower_boundary_test_set)
-}
-
-if erlang {
-  pub fn random_upper_boundary_test() {
-    let one_random_upper_boundary_test_set = fn(_acc, _e) {
-      { float.random_uniform() <. 1. }
-      |> should.be_true()
-      { float.random_uniform() >=. 1. }
-      |> should.be_false()
-      Nil
-    }
-
-    list.range(0, 100)
-    |> iterator.from_list
-    |> iterator.fold(Nil, one_random_upper_boundary_test_set)
-  }
-}
-
-if javascript {
-  // Due to IEEE 754 floating point numbers
-  // the ceiling may be rounded to 1.0 even if it should not
-  pub fn random_upper_boundary_test() {
-    let one_random_upper_boundary_test_set = fn(_acc, _e) {
-      { float.random_uniform() <=. 1. }
-      |> should.be_true()
-      { float.random_uniform() >. 1. }
-      |> should.be_false()
-      Nil
-    }
-
-    list.range(0, 100)
-    |> iterator.from_list
-    |> iterator.fold(Nil, one_random_upper_boundary_test_set)
-  }
+  |> iterator.fold(Nil, one_random_uniform_test_set)
 }
diff --git a/test/gleam/int_test.gleam b/test/gleam/int_test.gleam
index 9fdd73e..203eb37 100644
--- a/test/gleam/int_test.gleam
+++ b/test/gleam/int_test.gleam
@@ -319,6 +319,29 @@ pub fn undigits_test() {
   |> should.equal(Error(int.InvalidBase))
 }
 
+pub fn random_between_test() {
+  let one_random_between_test_set = fn(_acc, _e) {
+    int.random_between(0, 0)
+    |> should.equal(0)
+
+    int.random_between(-1, 0)
+    |> list.contains([-1, 0], _)
+    |> should.be_true
+
+    int.random_between(-1, 1)
+    |> list.contains([-1, 0], _)
+    |> should.be_true
+
+    int.random_between(-1, 2)
+    |> list.contains([-1, 0, 1], _)
+    |> should.be_true
+  }
+
+  list.range(0, 100)
+  |> iterator.from_list
+  |> iterator.fold(Nil, one_random_between_test_set)
+}
+
 pub fn random_below_test() {
   let one_random_below_test_set = fn(_acc, _e) {
     int.random_below(0)
@@ -349,26 +372,3 @@ pub fn random_below_test() {
   |> iterator.from_list
   |> iterator.fold(Nil, one_random_below_test_set)
 }
-
-pub fn random_between_test() {
-  let one_random_between_test_set = fn(_acc, _e) {
-    int.random_between(0, 0)
-    |> should.equal(0)
-
-    int.random_between(-1, 0)
-    |> list.contains([-1, 0], _)
-    |> should.be_true
-
-    int.random_between(-1, 1)
-    |> list.contains([-1, 0], _)
-    |> should.be_true
-
-    int.random_between(-1, 2)
-    |> list.contains([-1, 0, 1], _)
-    |> should.be_true
-  }
-
-  list.range(0, 100)
-  |> iterator.from_list
-  |> iterator.fold(Nil, one_random_between_test_set)
-}