Test-More-UTF8-0.05/000755 000766 000024 00000000000 13123551742 014124 5ustar00monsstaff000000 000000 Test-More-UTF8-0.05/.gitignore000644 000766 000024 00000000152 13123550714 016110 0ustar00monsstaff000000 000000 blib* inc* Makefile Makefile.old Build _build* pm_to_blib* *.tar.gz .lwpcookies Test-More-UTF8-* cover_db Test-More-UTF8-0.05/Changes000644 000766 000024 00000000452 13123551437 015421 0ustar00monsstaff000000 000000 Revision history for Test-More-UTF8 0.05 2017-06-24 Fix "." in @INC. Blame on you, p5p 0.04 2012-09-06 Fix META 0.03 2012-09-06 Get rid of dependency on ex::lib 0.02 2009-01-25 Fix requirements on perl 5.8+ 0.01 2009-01-19 First version Test-More-UTF8-0.05/lib/000755 000766 000024 00000000000 13123551742 014672 5ustar00monsstaff000000 000000 Test-More-UTF8-0.05/Makefile.PL000644 000766 000024 00000000744 13123551062 016076 0ustar00monsstaff000000 000000 use 5.007003; # the earlier perl doesn't have utf8 capabilities use ExtUtils::MakeMaker; BEGIN{ $ENV{AUTHOR} and require CPAN::Meta and CPAN::Meta->import(); }; WriteMakefile( NAME => 'Test::More::UTF8', VERSION_FROM => 'lib/Test/More/UTF8.pm', PREREQ_PM => { 'Test::More' => 0, }, ABSTRACT_FROM => 'lib/Test/More/UTF8.pm', # retrieve abstract from module AUTHOR => 'Mons Anderson ', LICENSE => 'perl', ); Test-More-UTF8-0.05/MANIFEST000644 000766 000024 00000000307 13123551740 015253 0ustar00monsstaff000000 000000 .gitignore Changes lib/Test/More/UTF8.pm Makefile.PL MANIFEST This list of files MANIFEST.SKIP META.json META.yml README t/00-load.t t/01-usage.t t/02-usage.t t/03-usage.t t/pod-coverage.t t/pod.t Test-More-UTF8-0.05/MANIFEST.SKIP000644 000766 000024 00000000743 13123550714 016024 0ustar00monsstaff000000 000000 # Avoid version control files. \B\.git\b # Avoid Makemaker generated and utility files. \bMANIFEST\.bak \bMakefile$ \bblib/ \bMakeMaker-\d \bpm_to_blib\.ts$ \bpm_to_blib$ \bblibdirs\.ts$ # 6.18 through 6.25 generated this # Avoid Module::Build generated and utility files. \bBuild$ \b_build/ # Avoid temp and backup files. ~$ \.old$ \#$ \b\.# \.bak$ # Avoid Devel::Cover files. \bcover_db\b # Avoid local testing/dist files ^dist/ ^makeall\.sh$ ^tmp/ ^Test-More-UTF8.* Test-More-UTF8-0.05/META.json000644 000766 000024 00000001666 13123551742 015556 0ustar00monsstaff000000 000000 { "abstract" : "Enhancing Test::More for UTF8-based projects", "author" : [ "Mons Anderson " ], "dynamic_config" : 1, "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : "2" }, "name" : "Test-More-UTF8", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { "Test::More" : "0" } } }, "release_status" : "stable", "version" : "0.05", "x_serialization_backend" : "JSON::PP version 2.27400" } Test-More-UTF8-0.05/META.yml000644 000766 000024 00000001073 13123551742 015376 0ustar00monsstaff000000 000000 --- abstract: 'Enhancing Test::More for UTF8-based projects' author: - 'Mons Anderson ' build_requires: ExtUtils::MakeMaker: '0' configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: Test-More-UTF8 no_index: directory: - t - inc requires: Test::More: '0' version: '0.05' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' Test-More-UTF8-0.05/README000644 000766 000024 00000002222 13123551740 015000 0ustar00monsstaff000000 000000 NAME Test::More::UTF8 - Enhancing Test::More for UTF8-based projects SYNOPSIS use Test::More; use Test::More::UTF8; # now we can easily use flagged strings without warnings like "Wide character in print ..." is("\x{410}","\x{420}"); # got a failure message without warnings LIMITATIONS This module have reason only for perl 5.8 and higher FEATURES This module also switch on by default utf8 pragma. To disable this, add "-utf8" option use Test::More::UTF8 qw(-utf8); By default binmode ':utf8' will be done on all output handles: failure_output, todo_output, output. It is possible to choose only some of them use Test::More::UTF8 qw(failure); # enable :utf8 only on failure_output use Test::More::UTF8 qw(todo); # enable :utf8 only on todo_output use Test::More::UTF8 qw(out); # enable :utf8 only on output AUTHOR Mons Anderson, BUGS None known COPYRIGHT & LICENSE Copyright 2009 Mons Anderson, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Test-More-UTF8-0.05/t/000755 000766 000024 00000000000 13123551742 014367 5ustar00monsstaff000000 000000 Test-More-UTF8-0.05/t/00-load.t000644 000766 000024 00000000275 13123550714 015712 0ustar00monsstaff000000 000000 #!/usr/bin/perl use strict; use warnings; use Test::More tests => 1; BEGIN { use_ok( 'Test::More::UTF8' ); } diag( "Testing Test::More::UTF8 $Test::More::UTF8::VERSION, Perl $], $^X" ); Test-More-UTF8-0.05/t/01-usage.t000644 000766 000024 00000001154 13123550714 016075 0ustar00monsstaff000000 000000 #!/usr/bin/perl use strict; use warnings; use Test::More tests => 4; use Test::More::UTF8; use Data::Dumper; use IO::Handle; my $sym = "\x{430}"; ok(utf8::is_utf8("а"), 'use utf8 pragma'); { my @warns; local $SIG{__WARN__} = sub { push @warns,shift; }; Test::More->builder->failure_output->print("# $sym\n"); ok(!@warns, 'failure_output') or diag "Have warning: ".shift @warns; Test::More->builder->todo_output->print("# $sym\n"); ok(!@warns, 'todo_output') or diag "Have warning: ".shift @warns; Test::More->builder->output->print("# $sym\n"); ok(!@warns, 'output') or diag "Have warning: ".shift @warns; } Test-More-UTF8-0.05/t/02-usage.t000644 000766 000024 00000001164 13123550714 016077 0ustar00monsstaff000000 000000 #!/usr/bin/perl use strict; use warnings; use Test::More tests => 4; use Test::More::UTF8 '-utf8'; use Data::Dumper; use IO::Handle; my $sym = "\x{430}"; ok(!utf8::is_utf8("а"), 'no utf8 pragma'); { my @warns; local $SIG{__WARN__} = sub { push @warns,shift; }; Test::More->builder->failure_output->print("# $sym\n"); ok(!@warns, 'failure_output') or diag "Have warning: ".shift @warns; Test::More->builder->todo_output->print("# $sym\n"); ok(!@warns, 'todo_output') or diag "Have warning: ".shift @warns; Test::More->builder->output->print("# $sym\n"); ok(!@warns, 'output') or diag "Have warning: ".shift @warns; } Test-More-UTF8-0.05/t/03-usage.t000644 000766 000024 00000001076 13123550714 016102 0ustar00monsstaff000000 000000 #!/usr/bin/perl use strict; use warnings; use Test::More tests => 4; use Test::More::UTF8 qw(failure -utf8); use IO::Handle; my $sym = "\x{430}"; ok(!utf8::is_utf8("а"), 'no utf8 pragma'); { my @warns; local $SIG{__WARN__} = sub { push @warns,shift; }; Test::More->builder->failure_output->print("# $sym\n"); ok(!@warns, 'failure_output') or diag "Have warning: ".shift @warns; Test::More->builder->todo_output->print("# $sym\n"); ok(@warns, 'todo_output') and @warns = (); Test::More->builder->output->print("# $sym\n"); ok(@warns, 'output') and @warns = (); } Test-More-UTF8-0.05/t/pod-coverage.t000644 000766 000024 00000001070 13123550714 017123 0ustar00monsstaff000000 000000 #!/usr/bin/perl use strict; use warnings; use Test::More; # Ensure a recent version of Test::Pod::Coverage my $min_tpc = 1.08; eval "use Test::Pod::Coverage $min_tpc"; plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage" if $@; # Test::Pod::Coverage doesn't require a minimum Pod::Coverage version, # but older versions don't recognize some common documentation styles my $min_pc = 0.18; eval "use Pod::Coverage $min_pc"; plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@; all_pod_coverage_ok(); Test-More-UTF8-0.05/t/pod.t000644 000766 000024 00000000450 13123550714 015333 0ustar00monsstaff000000 000000 #!/usr/bin/perl use strict; use warnings; use Test::More; use Test::More::UTF8; # Ensure a recent version of Test::Pod my $min_tp = 1.22; eval "use Test::Pod $min_tp"; plan skip_all => "Test::Pod $min_tp required for testing POD" if $@; plan tests => 1; pod_file_ok($INC{'Test/More/UTF8.pm'}); Test-More-UTF8-0.05/lib/Test/000755 000766 000024 00000000000 13123551742 015611 5ustar00monsstaff000000 000000 Test-More-UTF8-0.05/lib/Test/More/000755 000766 000024 00000000000 13123551742 016513 5ustar00monsstaff000000 000000 Test-More-UTF8-0.05/lib/Test/More/UTF8.pm000644 000766 000024 00000003562 13123551203 017575 0ustar00monsstaff000000 000000 package Test::More::UTF8; use warnings; use strict; use Test::More (); use Carp; =head1 NAME Test::More::UTF8 - Enhancing Test::More for UTF8-based projects =cut our $VERSION = '0.05'; =head1 SYNOPSIS use Test::More; use Test::More::UTF8; # now we can easily use flagged strings without warnings like "Wide character in print ..." is("\x{410}","\x{420}"); # got a failure message without warnings =head1 LIMITATIONS This module have reason only for perl 5.8 and higher =head1 FEATURES This module also switch on by default utf8 pragma. To disable this, add "-utf8" option use Test::More::UTF8 qw(-utf8); By default binmode ':utf8' will be done on all output handles: failure_output, todo_output, output. It is possible to choose only some of them use Test::More::UTF8 qw(failure); # enable :utf8 only on failure_output use Test::More::UTF8 qw(todo); # enable :utf8 only on todo_output use Test::More::UTF8 qw(out); # enable :utf8 only on output =cut sub import { my $pkg = shift; my %args = map {$_ => 1} @_; my ($do_utf8,@h) = (1); push @h, 'failure_output' if delete $args{failure} or delete $args{failure_output}; push @h, 'todo_output' if delete $args{todo} or delete $args{todo_output}; push @h, 'output' if delete $args{out} or delete $args{output}; $do_utf8 = 0 if delete $args{-utf8} or delete $args{-utf}; %args and croak "Unsupported options to $pkg: ".join ', ', keys %args; @h or @h = qw(failure_output todo_output output); binmode Test::More->builder->$_, ':utf8' for @h; if ($do_utf8) { require utf8; @_ = ('utf8'); goto &utf8::import; } return; } =head1 AUTHOR Mons Anderson, =head1 BUGS None known =head1 COPYRIGHT & LICENSE Copyright 2009 Mons Anderson, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; # End of Test::More::UTF8