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/real-export-groupgen.t (1902B)

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

=head1 TEST PURPOSE

These tests check export group expansion, specifically the expansion of groups
that use group generators, more specifically when actually imported.

=cut

use Test::More tests => 8;

use lib 't/lib';

use Carp;

BEGIN {
  local $SIG{__DIE__} = sub { Carp::confess @_ };
  use_ok('Test::SubExporter::GroupGen');
  Test::SubExporter::GroupGen->import(
    col1 => { value => 2 },
    -generated => { xyz => 1 },
    -generated => { xyz => 5, -prefix => 'five_' },
    -symbolic  => { xyz => 2 },
  );

use_ok('Test::SubExporter::GroupGenSubclass');
  Test::SubExporter::GroupGenSubclass->import(
    col1 => { value => 3 },
    -symbolic  => { -prefix => 'subclass_', xyz => 4 },
  );
}

for my $routine (qw(foo bar)) {
  is_deeply(
    main->$routine(),
    {
      name  => $routine,
      class => 'Test::SubExporter::GroupGen',
      group => 'generated',
      arg   => { xyz => 1 }, 
      collection => { col1 => { value => 2 } },
    },
    "generated $routine does what we expect",
  );

my $five = "five_$routine";
  is_deeply(
    main->$five(),
    {
      name  => $routine,
      class => 'Test::SubExporter::GroupGen',
      group => 'generated',
      arg   => { xyz => 5 }, 
      collection => { col1 => { value => 2 } },
    },
    "generated $five does what we expect",
  );
}

is_deeply(
  main->baz(),
  {
    name  => 'baz',
    class => 'Test::SubExporter::GroupGen',
    group => 'symbolic',
    arg   => { xyz => 2 }, 
    collection => { col1 => { value => 2 } },
  },
  "parent class's generated baz does what we expect",
);

is_deeply(
  main->subclass_baz(),
  {
    name  => 'baz-sc',
    class => 'Test::SubExporter::GroupGenSubclass',
    group => 'symbolic',
    arg   => { xyz => 4 }, 
    collection => { col1 => { value => 3 } },
  },
  "inheriting class's generated baz does what we expect",
);

#!/usr/bin/perl -T use strict; use warnings; =head1 TEST PURPOSE These tests check export group expansion, specifically the expansion of groups that use group generators, more specifically when actually imported. =cut use Test::More tests => 8; use lib 't/lib'; use Carp; BEGIN { local $SIG{__DIE__} = sub { Carp::confess @_ }; use_ok('Test::SubExporter::GroupGen'); Test::SubExporter::GroupGen->import( col1 => { value => 2 }, -generated => { xyz => 1 }, -generated => { xyz => 5, -prefix => 'five_' }, -symbolic => { xyz => 2 }, ); use_ok('Test::SubExporter::GroupGenSubclass'); Test::SubExporter::GroupGenSubclass->import( col1 => { value => 3 }, -symbolic => { -prefix => 'subclass_', xyz => 4 }, ); } for my $routine (qw(foo bar)) { is_deeply( main->$routine(), { name => $routine, class => 'Test::SubExporter::GroupGen', group => 'generated', arg => { xyz => 1 }, collection => { col1 => { value => 2 } }, }, "generated $routine does what we expect", ); my $five = "five_$routine"; is_deeply( main->$five(), { name => $routine, class => 'Test::SubExporter::GroupGen', group => 'generated', arg => { xyz => 5 }, collection => { col1 => { value => 2 } }, }, "generated $five does what we expect", ); } is_deeply( main->baz(), { name => 'baz', class => 'Test::SubExporter::GroupGen', group => 'symbolic', arg => { xyz => 2 }, collection => { col1 => { value => 2 } }, }, "parent class's generated baz does what we expect", ); is_deeply( main->subclass_baz(), { name => 'baz-sc', class => 'Test::SubExporter::GroupGenSubclass', group => 'symbolic', arg => { xyz => 4 }, collection => { col1 => { value => 3 } }, }, "inheriting class's generated baz does what we expect", );