#!perl -w
use strict;
require IO::Scalar;
use Text::CSV_XS;
use encoding 'utf-8';
my $csv = Text::CSV_XS->new( {binary=>1} );
my $fh  = new IO::Scalar;
use Test::More tests => 4;

my $old  = "\x{263A}";
$fh->open(\$old);
my $cols = $csv->getline($fh);
my $new  = $cols->[0];
ok($old eq $new,'$old eq $new');
ok($old =~ /$new/,'$old =~ /$new/');
ok($old =~ /\Q$new/,'$old =~ /\Q$new/');
ok($new =~ /$old/,'$new =~ /$old/');
ok($new =~ /\Q$old/,'$new =~ /\Q$old/');