accept 0 rate in tests

esl · Dec 7, 2023 · 79dba51 · 79dba51
1 parent 6fd7de3
commit 79dba51
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/test/opuntia_SUITE.erl b/test/opuntia_SUITE.erl
@@ -12,6 +12,7 @@
  init_per_testcase/2,
  end_per_testcase/2]).
 
+-include_lib("stdlib/include/assert.hrl").
 -include_lib("proper/include/proper.hrl").
 
 all() ->
@@ -23,6 +24,7 @@ groups() ->
  [
  {throughput_throttle, [parallel],
  [
+ run_shaper_with_zero_does_not_shape,
  run_basic_shaper_property
  ]}
  ].
@@ -54,6 +56,18 @@ end_per_testcase(_TestCase, _Config) ->
 %%% Individual Test Cases (from groups() definition)
 %%%===================================================================
 
+run_shaper_with_zero_does_not_shape(_) ->
+ Prop = ?FORALL(
+ TokensToSpend,
+ integer(1, 9999),
+ begin
+ Shaper = opuntia:new(0),
+ {TimeUs, _LastShaper} = timer:tc(fun run_shaper/2, [Shaper, TokensToSpend]),
+ TimeMs = erlang:convert_time_unit(TimeUs, microsecond, millisecond),
+ 0 =< TimeMs
+ end),
+ run_prop(?FUNCTION_NAME, Prop, 100, 1).
+
 run_basic_shaper_property(_) ->
  Prop = ?FORALL(
  {TokensToSpend, RatePerMs},