This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/loc_tools.pl: Extract out finding locales from locale.t
authorKarl Williamson <public@khwilliamson.com>
Mon, 20 Jan 2014 18:38:44 +0000 (11:38 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 22 Jan 2014 18:45:59 +0000 (11:45 -0700)
commit73fc293b284e8476f4358f5194765c845ece9427
tree2212cc15864f448d7ca92aa9ae8194368fec0deb
parentb6d186bba098ec33d9f80ce56b932da1ad7a069c
t/loc_tools.pl: Extract out finding locales from locale.t

Several different test files need to find the locales on the system, and
each currently has rolled its own methods to do that.  This commit
creates a new file t/loc_tools.pl which is designed to be a common
place for these tools.

lib/locale.t did the most thorough job of finding locales, so
t/loc_tools.pl is built upon what it had, which is now deleted from
locale.t.

The code in t/loc_tools.pl was copied from lib/locale.t with white space
changes and changes to make this be a subroutine, and helper functions
renamed to begin with an underscore, and changing the hard-coded list to
be in a DATA section so it doesn't have to be actually used unless
necessary.
MANIFEST
lib/locale.t
t/lib/locale/latin1
t/lib/locale/utf8
t/loc_tools.pl [new file with mode: 0644]