Integration tests for convert_time_unit/3 including badarg

native_implemented/otp/src/erlang/convert_time_unit_3.rs

@@ -1,6 +1,3 @@
-#[cfg(all(not(target_arch = "wasm32"), test))]
-mod test;
-
 use std::convert::TryInto;
 
 use anyhow::*;

native_implemented/otp/src/macros/exception.rs

@@ -223,16 +223,6 @@ macro_rules! prop_assert_is_not_number {
     };
 }
 
-#[cfg(test)]
-macro_rules! prop_assert_is_not_time_unit {
-    ($actual:expr, $name:ident) => {
-        prop_assert_is_not_time_unit!($actual, stringify!($name), $name)
-    };
-    ($actual:expr, $name:expr, $value:expr) => {
-        prop_assert_is_not_type!($actual, $name, $value, "a time unit")
-    };
-}
-
 #[cfg(test)]
 macro_rules! prop_assert_is_not_tuple {
     ($actual:expr, $name:ident) => {

native_implemented/otp/tests/internal/lib/erlang/convert_time_unit_3.rs

@@ -1,5 +1,5 @@
-// `without_integer_time_returns_badarg` in unit tests
-// `with_integer_time_without_unit_from_unit_errors_badarg` in unit tests
-// `with_integer_time_with_unit_from_unit_without_unit_to_unit_errors_badarg` in unit tests
+test_stdout!(without_integer_time_returns_badarg, "{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n");
+test_stdout!(with_integer_time_without_unit_from_unit_errors_badarg, "{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n");
+test_stdout!(with_integer_time_with_unit_from_unit_without_unit_to_unit_errors_badarg, "{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n{caught, error, badarg}\n");
 test_stdout!(with_small_integer_time_valid_units_returns_converted_value, "true\n2000000000\n500000000\n500000000000\n500000000000000000\n500000000000\n500000000000\n5000000000\n1000000000\n1000000000000\n1000000000000000000\n1000000000000\n1000000000000\n5000000\n1000000\n1000000000\n1000000000000000\n1000000000\n1000000000\n5000\n1000\n1000000\n1000000000000\n1000000\n1000000\n5\n1\n1000\n1000000000\n1000\n1000\n5000000\n1000000\n1000000000\n1000000000000000\n1000000000\n1000000000\n5000000\n1000000\n1000000000\n1000000000000000\n1000000000\n1000000000\n");
 test_stdout!(with_big_integer_time_with_unit_from_unit_with_unit_to_unit_returns_converted_value, "true\n2000000000000000000\n500000000000000000\n500000000000000000000\n500000000000000000000000000\n500000000000000000000\n500000000000000000000\n5000000000000000000\n1000000000000000000\n1000000000000000000000\n1000000000000000000000000000\n1000000000000000000000\n1000000000000000000000\n5000000000000000\n1000000000000000\n1000000000000000000\n1000000000000000000000000\n1000000000000000000\n1000000000000000000\n5000000000000\n1000000000000\n1000000000000000\n1000000000000000000000\n1000000000000000\n1000000000000000\n5000000000\n1000000000\n1000000000000\n1000000000000000000\n1000000000000\n1000000000000\n5000000000000000\n1000000000000000\n1000000000000000000\n1000000000000000000000000\n1000000000000000000\n1000000000000000000\n5000000000000000\n1000000000000000\n1000000000000000000\n1000000000000000000000000\n1000000000000000000\n1000000000000000000\n");

native_implemented/otp/tests/internal/lib/erlang/convert_time_unit_3/with_integer_time_with_unit_from_unit_without_unit_to_unit_errors_badarg/init.erl

@@ -0,0 +1,15 @@
+-module(init).
+-export([start/0]).
+-import(erlang, [convert_time_unit/3]).
+
+start() ->
+  test:each(fun
+    (Integer) when is_integer(Integer) -> ignore;
+    (Atom) when is_atom(Atom) -> ignore;
+    (Term) -> test(Term)
+  end).
+
+test(ToUnit) ->
+  test:caught(fun () ->
+    convert_time_unit(0, native, ToUnit)
+  end).

native_implemented/otp/tests/internal/lib/erlang/convert_time_unit_3/with_integer_time_without_unit_from_unit_errors_badarg/init.erl

@@ -0,0 +1,15 @@
+-module(init).
+-export([start/0]).
+-import(erlang, [convert_time_unit/3]).
+
+start() ->
+  test:each(fun
+    (Integer) when is_integer(Integer) -> ignore;
+    (Atom) when is_atom(Atom) -> ignore;
+    (Term) -> test(Term)
+  end).
+
+test(FromUnit) ->
+  test:caught(fun () ->
+    convert_time_unit(0, FromUnit, native)
+  end).

native_implemented/otp/tests/internal/lib/erlang/convert_time_unit_3/without_integer_time_returns_badarg/init.erl

@@ -0,0 +1,14 @@
+-module(init).
+-export([start/0]).
+-import(erlang, [convert_time_unit/3]).
+
+start() ->
+  test:each(fun
+    (Integer) when is_integer(Integer) -> ignore;
+    (Term) -> test(Term)
+  end).
+
+test(Time) ->
+  test:caught(fun () ->
+    convert_time_unit(Time, native, native)
+  end).