summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorToby Inkster <mail@tobyinkster.co.uk>2012-12-09 21:45:04 +0000
committerToby Inkster <mail@tobyinkster.co.uk>2012-12-09 21:45:04 +0000
commitd384a563be54723d1beac163cbda40fd8f75fe7f (patch)
tree823d7bf906b3f01f41771cd4be2bb07f96431f28 /t
parent2a7339bc34b2dfff9b8b6b9d899b1ec7bfb0b111 (diff)
document test suite
Diffstat (limited to 't')
-rw-r--r--t/01basic.t16
-rw-r--r--t/02inflation.t17
-rw-r--r--t/03invalid_tc.t17
-rw-r--r--t/04arrayofattrs.t21
4 files changed, 71 insertions, 0 deletions
diff --git a/t/01basic.t b/t/01basic.t
index 24ae742..dac8a22 100644
--- a/t/01basic.t
+++ b/t/01basic.t
@@ -51,3 +51,19 @@ $o->clear_foo;
ok( not $o->has_foo );
done_testing;
+
+=head1 PURPOSE
+
+Check that basic usage of MooX::late works.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2012 by Toby Inkster.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
diff --git a/t/02inflation.t b/t/02inflation.t
index 2d88d6c..9dd5488 100644
--- a/t/02inflation.t
+++ b/t/02inflation.t
@@ -25,3 +25,20 @@ eval {
};
done_testing;
+
+=head1 PURPOSE
+
+Check that our type constraints are correctly inflated to Moose type
+constraints.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2012 by Toby Inkster.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
diff --git a/t/03invalid_tc.t b/t/03invalid_tc.t
index d6dff14..2b0dfde 100644
--- a/t/03invalid_tc.t
+++ b/t/03invalid_tc.t
@@ -26,3 +26,20 @@ warnings_are {
} [];
done_testing;
+
+=head1 PURPOSE
+
+Check that we get warnings about unrecognisable type constraints, but only
+when a value is actually tested against the constraint.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2012 by Toby Inkster.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
diff --git a/t/04arrayofattrs.t b/t/04arrayofattrs.t
index 2048582..7e3d453 100644
--- a/t/04arrayofattrs.t
+++ b/t/04arrayofattrs.t
@@ -28,3 +28,24 @@ is($o1->bar1, 'bar1');
is($o1->bar2, 'bar2');
done_testing;
+
+=head1 PURPOSE
+
+Test that this works:
+
+ has \@attributes => (...);
+
+Specifically we test is for C<lazy_build> as that's a kinda interesting
+one.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2012 by Toby Inkster.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+