From 5a0beb5afbbe5f2ec1aea0d64077a1bf9712c3df Mon Sep 17 00:00:00 2001 From: Zoffix Znet Date: Wed, 20 Dec 2017 23:52:42 +0000 Subject: [PATCH] Revert "Revert "Test Array.gist limits output to 100 els"" This reverts commit 1b814c63368ba018fe25b92b92e4972c4165b59c. --- S02-types/array.t | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/S02-types/array.t b/S02-types/array.t index 450c9a4fec..f7982a6c52 100644 --- a/S02-types/array.t +++ b/S02-types/array.t @@ -2,7 +2,7 @@ use v6; use Test; -plan 103; +plan 104; #L @@ -390,4 +390,17 @@ subtest 'flat propagates .is-lazy' => { is-deeply flat(42 xx 1) .is-lazy, False, 'sub, False'; } +subtest '.gist shows only first 100 els' => { + plan 5; + sub make-gist ($a, $extras?) { + "[$a" ~ (" $extras" with $extras) ~ ']' + } + + is [<1 2 3>].gist, '[1 2 3]', 'gist gives useful value'; + is-deeply [1..100] .gist, make-gist([1..100] ), '100 els'; + is-deeply [1..101] .gist, make-gist([1..100], '...'), '101 els'; + is-deeply [1..102] .gist, make-gist([1..100], '...'), '102 els'; + is-deeply [1..1000].gist, make-gist([1..100], '...'), '1000 els'; +} + # vim: ft=perl6