Data-JavaScript
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/6-accents.t view on Meta::CPAN
#!/usr/bin/env perl
use Modern::Perl;
use utf8;
use Test2::V0;
use Test2::Tools::Subtest qw/subtest_buffered/;
use Data::JavaScript qw(:all);
#<<<
my $input = q/«Hêllö» Thére!/;
my $expected = qq/var output = "\\u00ABH\\u00EAll\\u00F6\\u00BB Th\\u00E9re!";\n/;
#>>>
is
jsdump( 'output', $input ),
$expected,
'Accented jsdump()';
done_testing;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.482 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )