Gecko [ georgetownmover.com ]

Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.105
Domains : 74 Domain
User : georgeto

Name	Size	Permission	Date
lib	[ DIR ]	drwxr-xr-x	2025-02-25 04:07
00-compile.t	987 B	-rw-r--r--	2013-10-18 15:10
000-report-versions-tiny.t	2.56 KB	-rw-r--r--	2013-10-18 15:10
col-init.t	1.13 KB	-rw-r--r--	2022-02-11 18:11
collection.t	2.83 KB	-rw-r--r--	2022-02-11 18:11
expand-group.t	5.27 KB	-rw-r--r--	2022-02-11 18:11
faux-export.t	2.97 KB	-rw-r--r--	2022-02-11 18:11
gen-callable.t	574 B	-rw-r--r--	2022-02-11 18:11
group-generator.t	3.69 KB	-rw-r--r--	2022-02-11 18:11
inherited.t	613 B	-rw-r--r--	2022-02-11 18:11
into-level.t	3.06 KB	-rw-r--r--	2022-02-11 18:11
real-export-groupgen.t	1.86 KB	-rw-r--r--	2022-02-11 18:11
real-export-href.t	4.12 KB	-rw-r--r--	2022-02-11 18:11
real-export-setup.t	3.6 KB	-rw-r--r--	2022-02-11 18:11
util-curry.t	1.69 KB	-rw-r--r--	2022-02-11 18:11
util-currychain.t	1.68 KB	-rw-r--r--	2022-02-11 18:11
util-like.t	3.03 KB	-rw-r--r--	2022-02-11 18:11
util-merge.t	1.71 KB	-rw-r--r--	2022-02-11 18:11
util-mixin.t	2.73 KB	-rw-r--r--	2022-02-11 18:11
util-namemap.t	568 B	-rw-r--r--	2022-02-11 18:11
valid-config.t	1.27 KB	-rw-r--r--	2022-02-11 18:11

Rename

#!/usr/bin/perl -T
use strict;
use warnings;

=head1 TEST PURPOSE

These tests exercise the handling of collections in the exporter option lists.

=cut

use Test::More tests => 3;
use Data::OptList qw(mkopt_hash);

BEGIN { use_ok('Sub::Exporter'); }

sub is_defined {
  my ($class, $value, $arg) = @_;
  return defined $value;
}

my $counter = 0;

my $config = {
  exports    => [ qw(circsaw drill handsaw nailgun) ],
  collectors => [
    INIT => sub {
      my ($value, $arg) = @_;
      return 0 if @{$arg->{import_args}}; # in other words, fail if args
      $_[0] = [ $counter++ ];
      return 1;
    },
  ]
};

$config->{$_} = mkopt_hash($config->{$_}) for qw(exports collectors);

{
  my $collection = Sub::Exporter::_collect_collections(
    $config, 
    [ ],
    'main',
  );

is_deeply(
    $collection,
    { INIT => [ 0 ] },
    "collection returned properly from collector",
  );
}

{
  my $collection = eval {
    Sub::Exporter::_collect_collections(
      $config, 
      [ [ handsaw => undef ] ],
      'main',
    );
  };

like(
    $@,
    qr/INIT failed/,
    "the init collector is run even when other things are here",
  );
}