[SCM] libpackage-variant-perl Debian packaging branch, master, updated. debian/1.001003-1-16-g363631d
Robert Sedlacek
rs at 474.at
Thu May 9 17:13:52 UTC 2013
The following commit has been merged in the master branch:
commit 2bf4fbb429bb9e9b19fc5db79962597712b08bfb
Author: Robert Sedlacek <rs at 474.at>
Date: Sat Nov 26 01:30:36 2011 +0100
added more tests
diff --git a/t/10argument-types.t b/t/10argument-types.t
new file mode 100644
index 0000000..77b7016
--- /dev/null
+++ b/t/10argument-types.t
@@ -0,0 +1,23 @@
+use strictures 1;
+use Test::More;
+
+BEGIN {
+ package TestVariable;
+ use Package::Variant;
+ sub make_variant {
+ my ($class, $target, @args) = @_;
+ install variant_values => sub { [@args] };
+ }
+ $INC{'TestVariable.pm'} = __FILE__;
+}
+
+use TestVariable;
+
+is_deeply TestVariable(23)->variant_values, [23],
+ 'simple value argument';
+is_deeply TestVariable(3..7)->variant_values, [3..7],
+ 'multiple value arguments';
+is_deeply TestVariable({ foo => 23 })->variant_values, [{ foo => 23 }],
+ 'hash reference argument';
+
+done_testing;
diff --git a/t/11dynamic-build.t b/t/11dynamic-build.t
new file mode 100644
index 0000000..75f49df
--- /dev/null
+++ b/t/11dynamic-build.t
@@ -0,0 +1,21 @@
+use strictures 1;
+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;
--
libpackage-variant-perl Debian packaging
More information about the Pkg-perl-cvs-commits
mailing list