Help language development. Donate to The Perl Foundation

List::SomeUtils zef:lizmat last updated on 2021-09-09

use v6.*;
use Test;
use List::SomeUtils;

my @supported = <
  after after_incl all all_u any any_u apply arrayify before before_incl
  binsert bremove bsearch bsearchidx bsearch_index bsearch_insert
  bsearch_remove distinct duplicates each_array each_arrayref equal_range
  false firstidx first_index firstres first_result firstval first_value
  frequency indexes insert_after insert_after_string lastidx last_index
  lastres last_result lastval last_value listcmp lower_bound mesh minmax
  minmaxstr mode natatime nsort_by none none_u notall notall_u occurrences
  one one_u onlyidx only_index onlyres only_result onlyval only_value
  pairwise part reduce_0 reduce_1 reduce_u samples qsort singleton sort_by
  true uniq upper_bound zip zip6 zip_unflatten
>.map: '&' ~ *;

plan @supported * 2;

for @supported {
    ok !defined(::($_))                     # nothing here by that name
      || ::($_) !=== List::SomeUtils::{$_}, # here, but not from List::MoreUtils
      "is $_ NOT imported?";
    ok defined(List::SomeUtils::{$_}), "is $_ externally accessible?";

# vim: expandtab shiftwidth=4