1. Toby Inkster
  2. p5-scalar-does

Commits

Toby Inkster  committed f95569e

add pod to test cases

  • Participants
  • Parent commits 445e09c
  • Branches default

Comments (0)

Files changed (10)

File t/01basic.t

View file
  • Ignore whitespace
+=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') };
 

File t/02does.t

View file
  • Ignore whitespace
+=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;
 

File t/03moosey.t

View file
  • Ignore whitespace
+=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 {

File t/04cleanliness.t

View file
  • Ignore whitespace
+=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",
-);
+);

File t/05custom.t

View file
  • Ignore whitespace
+=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' }
-};
+};

File t/06constants.t

View file
  • Ignore whitespace
+=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;

File t/07makerole.t

View file
  • Ignore whitespace
+=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;
 

File t/08mooselike.t

View file
  • Ignore whitespace
+=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);

File t/09warnings.t

View file
  • Ignore whitespace
+=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;
 

File t/11givenwhen.t

View file
  • Ignore whitespace
+=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+" };