Gecko [ www.thearyasamaj.org ]

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

Code Editor : 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",
  );
}

${this.title}

Code Editor : util-merge.t