FM / t

/usr/share/doc/perl-Sub-Exporter/t

Name	Size	Mode	Actions
lib/	-	0755	rm
00-compile.t	987	0644	edit dl rm
000-report-versions-tiny.t	2620	0644	edit dl rm
col-init.t	1153	0644	edit dl rm
collection.t	2902	0644	edit dl rm
expand-group.t	5400	0644	edit dl rm
faux-export.t	3044	0644	edit dl rm
gen-callable.t	574	0644	edit dl rm
group-generator.t	3774	0644	edit dl rm
inherited.t	613	0644	edit dl rm
into-level.t	3130	0644	edit dl rm
real-export-groupgen.t	1902	0644	edit dl rm
real-export-href.t	4223	0644	edit dl rm
real-export-setup.t	3683	0644	edit dl rm
util-curry.t	1735	0644	edit dl rm
util-currychain.t	1718	0644	edit dl rm
util-like.t	3104	0644	edit dl rm
util-merge.t	1752	0644	edit dl rm
util-mixin.t	2795	0644	edit dl rm
util-namemap.t	568	0644	edit dl rm
valid-config.t	1305	0644	edit dl rm

Edit: /usr/share/doc/perl-Sub-Exporter/t/col-init.t (1153B)

#!/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",
  );
}

#!/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", ); }