Added wrapper functionality

[gitmo/MooseX-Types.git] / t / 12_wrapper-definition.t

diff --git a/t/12_wrapper-definition.t b/t/12_wrapper-definition.t
new file mode 100644 (file)
index 0000000..2735246
--- /dev/null
+++ b/t/12_wrapper-definition.t
@@ -0,0 +1,45 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+
+use Test::More;
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use TestWrapper TestLibrary => [qw( NonEmptyStr IntArrayRef )],
+                Moose       => [qw( Str Int )];
+
+my @tests = (
+    [ 'NonEmptyStr', 12, "12", [], "foobar", "" ],
+    [ 'IntArrayRef', 12, [12], {}, [17, 23], {} ],
+);
+
+plan tests => (@tests * 8);
+
+# new array ref so we can safely shift from it
+for my $data (map { [@$_] } @tests) {
+    my $type = shift @$data;
+
+    # Type name export
+    {
+        ok my $code = __PACKAGE__->can($type), "$type() was exported";
+        is $code->(), "TestLibrary::$type", "$type() returned correct type name";
+    }
+
+    # coercion handler export
+    {   
+        my ($coerce, $coercion_result, $cannot_coerce) = map { shift @$data } 1 .. 3;
+        ok my $code = __PACKAGE__->can("to_$type"), "to_$type() coercion was exported";
+        is_deeply scalar $code->($coerce), $coercion_result, "to_$type() coercion works";
+        ok ! $code->($cannot_coerce), "to_$type() returns false on invalid value";
+    }
+
+    # type test handler
+    {
+        my ($valid, $invalid) = map { shift @$data } 1 .. 2;
+        ok my $code = __PACKAGE__->can("is_$type"), "is_$type() check was exported";
+        ok $code->($valid), "is_$type() check true on valid value";
+        ok ! $code->($invalid), "is_$type() check false on invalid value";
+    }
+}
+
+