File Manager

X7ROOT File Manager

Current Path: /usr/share/doc/perl-Sub-Exporter/t

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

📁 ..
📄 00-compile.t(987 B)
📄 000-report-versions-tiny.t(2.56 KB)
📄 col-init.t(1.13 KB)
📄 collection.t(2.83 KB)
📄 expand-group.t(5.27 KB)
📄 faux-export.t(2.97 KB)
📄 gen-callable.t(574 B)
📄 group-generator.t(3.69 KB)
📄 inherited.t(613 B)
📄 into-level.t(3.06 KB)
📁 lib
📄 real-export-groupgen.t(1.86 KB)
📄 real-export-href.t(4.12 KB)
📄 real-export-setup.t(3.6 KB)
📄 util-curry.t(1.69 KB)
📄 util-currychain.t(1.68 KB)
📄 util-like.t(3.03 KB)
📄 util-merge.t(1.71 KB)
📄 util-mixin.t(2.73 KB)
📄 util-namemap.t(568 B)
📄 valid-config.t(1.27 KB)

Editing: real-export-groupgen.t

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

X7ROOT File Manager

Editing: real-export-groupgen.t

Upload File

Create Folder