t/11dynamic-build.t

   1 use strictures 1;
   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;