Commit | Line | Data |
---|---|---|
2bf4fbb4 | 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; |