[p5sagit/Package-Variant.git] / t / 11dynamic-build.t

use strictures 2;
use Test::More;

BEGIN {
  package TestVariable;
  use Package::Variant;
  sub make_variant {
    my ($class, $target, @args) = @_;
    install variant_values => sub { [@args] };
  }
}

is_deeply(
  Package::Variant
    ->build_variant_of('TestVariable', 3..7)
    ->variant_values,
  [3..7],
  'build_variant_of with scalar values',
);

done_testing;
Commit	Line	Data
d4b2facb	1	use strictures 2;
2bf4fbb4	2	use Test::More;
	3
	4	BEGIN {
	5	package TestVariable;
	6	use Package::Variant;
	7	sub make_variant {
	8	my ($class, $target, @args) = @_;
	9	install variant_values => sub { [@args] };
	10	}
	11	}
	12
	13	is_deeply(
	14	Package::Variant
	15	->build_variant_of('TestVariable', 3..7)
	16	->variant_values,
	17	[3..7],
	18	'build_variant_of with scalar values',
	19	);
	20
	21	done_testing;