Test Promise.in/at/Supply.interval with degenerate delays

Rakudo fix: rakudo/rakudo@df01ad97e5

Author: zoffixznet

S17-promise/at.t

@@ -1,7 +1,9 @@
 use v6;
+use lib <t/spec/packages/>;
 use Test;
+use Test::Util;
 
-plan 3;
+plan 4;
 
 # RT #123520
 # This test comes first in the file so it's the first to start any threads;
@@ -23,3 +25,7 @@ plan 3;
     is $p.result, True, "Promise.at result is True";
     ok now - $start >= 1, "Promise.at took long enough";
 }
+
+is_run ｢await Promise.at(now - 1000).then: {print 'pass'}｣,
+    {:out<pass>, :err(''), :0status},
+'.at with negative value works and does not warn';

S17-promise/in.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 3;
+plan 4;
 
 # RT #123520
 # This test comes first in the file so it's the first to start any threads;
@@ -23,3 +23,8 @@ plan 3;
     is $p.result, True, "Promise.in result is True";
     ok now - $start >= 1, "Promise.in took long enough";
 }
+
+subtest 'Promise.in with negative value works' => {
+    plan 1;
+    await Promise.in(-rand).then: { pass ".then'ed code ran" }
+}

S17-supply/interval.t

@@ -5,7 +5,7 @@ use Test;
 use Test::Tap;
 use Test::Util;
 
-plan 8;
+plan 9;
 
 dies-ok { Supplier.new.Supply.interval(1) }, 'can not be called as an instance method';
 
@@ -48,14 +48,31 @@ is_run(
 
 # RT #130168
 {
+    # treat too-small values as minimum timer resolution (e.g. 0.001 seconds)
+    # emitting optional warning in such cases is allowed
+    CONTROL { when CX::Warn { .resume } }
     my @a;
     react {
         whenever Supply.interval(.0001) {
             push @a, $_;
             done if $_ == 5
         }
     }
-    is @a, [0..5], "Timer with very short interval fires multiple times";
+    is-deeply @a, [0..5], "Timer with very short interval fires multiple times";
+}
+
+{
+    # treat negatives/zeros as minimum timer resolution (e.g. 0.001 seconds)
+    # emitting optional warning in such cases is allowed
+    CONTROL { when CX::Warn { .resume } }
+    my @a;
+    react {
+        whenever Supply.interval(-100) {
+            push @a, $_;
+            done if $_ == 5
+        }
+    }
+    is-deeply @a, [0..5], "Timer with very short interval fires multiple times";
 }
 
 # vim: ft=perl6 expandtab sw=4