view release on metacpan or  search on metacpan

t/01perfectcr.t  view on Meta::CPAN

my @str = split //, ' about it.';
for (0..$#parsed) {
  is($parsed[$_]{str}, $str[$_], "List parse char $_ has correct str.");
  if ($parsed[$_]{str} ne ' ') {
    is($parsed[$_]{color}, 180, "List parse char $_ has correct color.");
  }
}

$pcr->save_charmap_file('t/charmap2');

my $a = do {local (@ARGV, $/) = 't/charmap'; <>};
my $b = do {local (@ARGV, $/) = 't/charmap2'; <>};

is($a, $b, "Load-save charmap cycle non-lossy");

t/03dist.t  view on Meta::CPAN

#!/usr/bin/perl
use warnings;
use strict;
use Test::More 'no_plan';
# use ExtUtils::Manifest 'manifind', 'maniread'; # It's broken.
use Data::Dumper 'Dumper';


my @files = map {chomp; s/\t.*//; $_} do {local @ARGV='MANIFEST'; <>};

for my $file (@files) {
  ok(-e $file, "$file exists");
  
  # allowed to have tabs.
  next if $file eq 'MANIFEST';
  next if $file =~ /\.png$/;

  local @ARGV = $file;
  local $/=undef;
  ok(<> !~ /\t/, "No tabs in $file");
}