Commits

Toby Inkster committed f95569e

add pod to test cases

Comments (0)

Files changed (10)

+=head1 PURPOSE
+
+Check Scalar::Does loads.
+
+=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.
+
+=cut
+
 use Test::More tests => 1;
 BEGIN { use_ok('Scalar::Does') };
 
+=head1 PURPOSE
+
+Test various scalars and roles to check we get expected results.
+
+=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.
+
+=cut
+
 use Test::More;
 use Scalar::Does;
 
+=head1 PURPOSE
+
+Test that Scalar::Does works with L<Moose> roles.
+
+=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.
+
+=cut
+
 use Test::More;
 
 BEGIN {

t/04cleanliness.t

+=head1 PURPOSE
+
+Check that functions installed by Scalar::Does are removed by
+L<namespace::clean>.
+
+=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.
+
+=cut
+
 use Test::More tests => 2;
 
 {
 ok(
 	Local::Foo->check_does( [] => 'ARRAY' ),
 	"does still works",
-);
+);
+=head1 PURPOSE
+
+Make sure Scalar::Does can export custom role checkers, and that they work OK.
+
+=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.
+
+=cut
+
 use Test::More tests => 5;
 use Scalar::Does
 	custom => { -role => 'ARRAY', -as => 'does_array' },
 
 ok not eval q{
 	use Scalar::Does custom => { -as => 'foo' }
-};
+};
+=head1 PURPOSE
+
+Check that Scalar::Does exports constants for built-in roles, and that they
+work.
+
+=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.
+
+=cut
+
 use strict;
 use Test::More;
 use Scalar::Does -constants;
+=head1 PURPOSE
+
+Check that Scalar::Does exports C<make_role> and C<where>, and that these can
+be used to make custom roles which work.
+
+=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.
+
+=cut
+
 use Test::More tests => 11;
 use Scalar::Does does => -make;
 
+=head1 PURPOSE
+
+Test Scalar::Does::MooseTypes.
+
+=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.
+
+=cut
+
 use strict;
 use Test::More;
 use Scalar::Does qw(does);
+=head1 PURPOSE
+
+Check that Scalar::Does doesn't issue any unexpected warnings, even under
+C<< $^W >>.
+
+=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.
+
+=cut
+
 use Test::More;
 use Test::NoWarnings;
 
+=head1 PURPOSE
+
+Tests that the one-argument form of C<does> works with lexical C<< $_ >>,
+using a Perl 5.10 C<given> block.
+
+In Perl 5.17.x and above, C<given> no longer uses lexical C<< $_ >> but this
+test should continue to work.
+
+=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.
+
+=cut
+
 use Test::More;
 BEGIN { $] >= 5.010001 or plan skip_all => "Perl 5.10.1+" };
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.