use Test::More tests => 4*7;

use Encode qw( decode encode );

my $enc = 'US-ASCII';
my $spc = encode($enc, ' ');

for (
   [ "abc",                             "abc",     "abc" ],
   [ "abc\x{80}\x{81}",                 "abc  ",   "abc" ],
   [ "abc\x{2660}\x{2661}",             "abc  ",   "abc" ],
   [ "abc\x{80}\x{81}\x{2660}\x{2661}", "abc    ", "abc" ],
) {
   {
      (my $x = $_->[0]) =~ s/[\x80-\xff]/ /g;
      is($x, $_->[1], 'linuxer s sub');
   }
   {
      (my $x = $_->[0]) =~ s/[^\x00-\x7F]/ /g;
      is($x, $_->[1], 'ikegami s sub');
   }
   {
      my $x = decode($enc, encode($enc, $_->[0], sub { $spc }));
      is($x, $_->[1], 'encode sub');
   }
   {
      (my $x = $_->[0]) =~ tr/\x80-\xff//d;
      is($x, $_->[2], 'linuxer tr del');
   }
   {
      (my $x = $_->[0]) =~ tr/\x00-\x7F//cd;
      is($x, $_->[2], 'ikegami tr del');
   }
   {
      (my $x = $_->[0]) =~ s/[^\x00-\x7F]//g;
      is($x, $_->[2], 'ikegami s del');
   }
   {
      my $x = decode($enc, encode($enc, $_->[0], sub { '' }));
      is($x, $_->[2], 'encode del');
   }
}