view release on metacpan or  search on metacpan

t/Compress-LZString.t  view on Meta::CPAN

BEGIN { plan tests => 6 };

# ascii
my $ascii = `$^X -V`;
$ascii =~ s/[^\x00-\x7f]//gs;

skip($]<5.010, $ascii, decompress(compress($ascii)));
ok  (          $ascii, decompress_b64(compress_b64($ascii)));
ok  (          $ascii, decompress_b64_safe(compress_b64_safe($ascii)));

# unicode
local $/ = undef;
my $unicode = <DATA>;

skip($]<5.010, $unicode, decompress(compress($unicode)));
skip($]<5.008, $unicode, decompress_b64(compress_b64($unicode)));
skip($]<5.008, $unicode, decompress_b64_safe(compress_b64_safe($unicode)));

__DATA__
Měsíčku na nebi hlubokém,
světlo tvé daleko vidí,
po světě bloudíš širokém,
díváš se v příbytky lidí.
Měsíčku, postůj chvíli,
řekni mi, kde je můj milý?
Řekni mu, stříbrný měsíčku,
mé že jej objímá rámě,