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: util-merge.t

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

use Test::More tests => 8;
BEGIN { use_ok("Sub::Exporter"); }

BEGIN {
    package Thing;
    BEGIN { main::use_ok("Sub::Exporter::Util", 'merge_col'); }

use Sub::Exporter -setup => {
      collectors => [ qw(defaults etc) ],
      exports    => {
        merge_col(
          defaults => {
            stack => sub { my @x = @_; sub { return @x } },
            kcats => \'_kcats_gen',
          },
          empty    => {
            bogus => sub { my @x = @_; sub { return @x } },
            klame => sub { my @x = @_; sub { return @x } },
          },
          etc      => {
            other => sub { my @x = @_; sub { return @x } },
          },
        ),
        plain => sub { my @x = @_; sub { return @x } },
      },
    };

sub _kcats_gen {
      my @x = @_;
      sub { return reverse @x }
    }
  }

package Test::SubExporter::MERGE::0;

my %col;

BEGIN {
  Thing->import(
    defaults => ($col{defaults} = { x => 10 }),
    etc      => ($col{etc}      = { home => "Kansas" }),
    stack    => { x => 20, y => 30 },
    kcats    => {          y =>  3 },
    bogus    => undef,
    klame    => { bar => 99 },
    other    => undef,
    plain    => { foo => 10 },
  );
}

my %tests = (
  stack => [ 'Thing', 'stack', { x => 20, y => 30 }, \%col ],
  kcats => [ \%col, { x => 10, y =>  3 }, 'kcats', 'Thing' ],
  bogus => [ 'Thing', 'bogus', {}, \%col ],
  klame => [ 'Thing', 'klame', { bar => 99 }, \%col ],
  other => [ 'Thing', 'other', { home => "Kansas" }, \%col ],
  plain => [ 'Thing', 'plain', { foo  => 10 }, \%col ],
);

while (my ($name, $expected) = each %tests) {
  main::is_deeply(
    [ __PACKAGE__->$name ],
    $expected,
    "$name returned proper value",
  );
}

X7ROOT File Manager

Editing: util-merge.t

Upload File

Create Folder