REDROOM

Navigation

Breadcrumbs

Create

Preview: valid-config.t Size: 1.27 KB

/usr/share/doc/perl-Sub-Exporter/t/valid-config.t

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

=head1 TEST PURPOSE

These tests make sure that invalid configurations passed to
setup/build_exporter throw exceptions.

=cut

use Test::More tests => 6;

BEGIN { use_ok('Sub::Exporter'); }

eval {
  Sub::Exporter::build_exporter({
    exports    => [ qw(foo) ],
    collectors => [ qw(foo) ],
  })
};

like($@, qr/used in both/, "can't use one name in exports and collectors");

eval {
  Sub::Exporter::build_exporter({
    collections => [ qw(foo) ], # This one gets me all the time.  Live & learn.
  })
};

like($@, qr/unknown options/, "unknown options raise an exception");

eval {
  Sub::Exporter::setup_exporter({
    into       => 'Your::Face',
    into_level => 5,
  })
};

like(
  $@,
  qr/may not both/,
  "into and into_level are mutually exclusive (in setup_exporter)"
);

eval { 
  Sub::Exporter::build_exporter({})->(
    Class => {
      into       => 'Your::Face',
      into_level => 1
    }
  );
};

like(
  $@,
  qr/may not both/,
  "into and into_level are mutually exclusive (in exporter)"
);

eval {
  Sub::Exporter::build_exporter({
    into       => "This::Doesnt::Matter",
    into_level => 0,
  })
};

like(
  $@,
  qr(^into and into_level may not both be supplied to exporter),
  "can't use one name in exports and collectors"
);

Name	Size	Perms	Modified	Actions
lib DIR	-	drwxr-xr-x	2025-04-06 18:07:04	Edit Download recursive recursive
00-compile.t	987 B	lrw-r--r--	2013-10-18 15:10:07	Edit Download recursive recursive
000-report-versions-tiny.t	2.56 KB	lrw-r--r--	2013-10-18 15:10:07	Edit Download recursive recursive
col-init.t	1.13 KB	lrw-r--r--	2019-10-13 12:14:31	Edit Download recursive recursive
collection.t	2.83 KB	lrw-r--r--	2019-10-13 12:14:29	Edit Download recursive recursive
expand-group.t	5.27 KB	lrw-r--r--	2019-10-13 12:14:30	Edit Download recursive recursive
faux-export.t	2.97 KB	lrw-r--r--	2019-10-13 12:14:30	Edit Download recursive recursive
gen-callable.t	574 B	lrw-r--r--	2019-10-13 12:14:31	Edit Download recursive recursive
group-generator.t	3.69 KB	lrw-r--r--	2019-10-13 12:14:31	Edit Download recursive recursive
inherited.t	613 B	lrw-r--r--	2019-10-13 12:14:31	Edit Download recursive recursive
into-level.t	3.06 KB	lrw-r--r--	2019-10-13 12:14:31	Edit Download recursive recursive
real-export-groupgen.t	1.86 KB	lrw-r--r--	2019-10-13 12:14:30	Edit Download recursive recursive
real-export-href.t	4.12 KB	lrw-r--r--	2019-10-13 12:14:31	Edit Download recursive recursive
real-export-setup.t	3.60 KB	lrw-r--r--	2019-10-13 12:14:31	Edit Download recursive recursive
util-curry.t	1.69 KB	lrw-r--r--	2019-10-13 12:14:31	Edit Download recursive recursive
util-currychain.t	1.68 KB	lrw-r--r--	2019-10-13 12:14:30	Edit Download recursive recursive
util-like.t	3.03 KB	lrw-r--r--	2019-10-13 12:14:30	Edit Download recursive recursive
util-merge.t	1.71 KB	lrw-r--r--	2019-10-13 12:14:30	Edit Download recursive recursive
util-mixin.t	2.73 KB	lrw-r--r--	2019-10-13 12:14:30	Edit Download recursive recursive
util-namemap.t	568 B	lrw-r--r--	2019-10-13 12:14:31	Edit Download recursive recursive
valid-config.t	1.27 KB	lrw-r--r--	2019-10-13 12:14:31	Edit Download recursive recursive

Directory Contents