Commits

Toby Inkster  committed d107c06

documentation for test suite

  • Participants
  • Parent commits 97946ba
  • Tags 0.001

Comments (0)

Files changed (5)

+=head1 PURPOSE
+
+Tests L<Scalar::Accessors::LikeHash::JSON> class; and by extension tests
+L<Scalar::Accessors::LikeHash> role.
+
+=head1 CAVEATS
+
+Test is skipped if L<JSON> module is unavailable.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2013 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 warnings;
 use Test::More;
-use Test::Requires 'JSON';
+use Test::Requires {
+	JSON   => 2.00,
+};
 
 use t::Accessors;
 

File t/02sereal.t

+=head1 PURPOSE
+
+Tests L<Scalar::Accessors::LikeHash::Sereal> class; and by extension tests
+L<Scalar::Accessors::LikeHash> role.
+
+=head1 CAVEATS
+
+Test is skipped if L<Sereal> module is unavailable.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2013 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 warnings;
 use Test::More;
-use Test::Requires 'Sereal';
+use Test::Requires {
+	Sereal => 0.260,
+};
 
 use t::Accessors;
 

File t/03moosex.t

+=head1 PURPOSE
+
+Test L<Acme::MooseX::JSON> module.
+
+=head1 CAVEATS
+
+Test is skipped if L<JSON> and L<Moose> modules are unavailable.
+
+Test cases are not very thorough.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2013 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 warnings;
 use Test::More;
-use Test::Requires qw/ JSON Moose /; # JSON first; faster failover
+use Test::Requires {
+	JSON   => 2.00,
+	Moose  => 2.00,
+};
 
 {
 	package Local::Class;
+=head1 PURPOSE
+
+Test the L<Tie::Hash::SerializedString> interface.
+
+=head1 CAVEATS
+
+Test is skipped if L<JSON> module unavailable.
+
+Test cases are not very thorough.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2013 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 warnings;
 use Test::More;
-use Test::Requires qw/ JSON /;
+use Test::Requires {
+	JSON   => 2.00,
+};
 
 use Tie::Hash::SerializedString;
 

File t/Accessors.pm

+=head1 PURPOSE
+
+Shared test code for C<< t/01json.t >> and C<< t/02sereal.t >>.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2013 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 warnings;