Test .head works correctly with large negative Ints

RT#130285: https://rt.perl.org/Ticket/Display.html?id=130285
Raku · Oct 15, 2017 · dc74476 · dc74476
1 parent 76ed460
commit dc74476
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S32-list/head.t b/S32-list/head.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 24;
+plan 25;
 
 =begin description
 
@@ -67,4 +67,8 @@ This test tests the C<head> builtin.
     is $range.head(5).List, (), "Range.head works if empty";
 } #3
 
+# RT #130285
+is-deeply (4,5,6).head(-999999999999999999999999999), (),
+    '.head works correctly with large negative Ints';
+
 # vim: ft=perl6