1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
use strict;
use warnings;
use Test::More;
use Compress::Snappy;
for (qw(compress decompress uncompress)) {
ok eval "defined &$_", "$_() is exported";
}
{
no warnings 'uninitialized';
my $compressed = compress(undef);
my $decompressed = decompress($compressed);
is($decompressed, '', 'undef');
}
for my $len (0 .. 1_024) {
my $in = '0' x $len;
my $compressed = compress($in);
my $decompressed = decompress($compressed);
is($decompressed, $in, "length: $len");
}
{
my $scalar = '0' x 1_024;
ok compress($scalar) eq compress(\$scalar), 'scalar ref';
}
{
package TrimmedString;
sub new { bless(\"$_[1]", $_[0]) }
use overload q("") => \&str;
sub str { s/^\s+//, s/\s+$// for $_ = "${$_[0]}"; $_ }
package main;
my $scalar = TrimmedString->new(' string ');
ok compress($scalar) eq compress('string'), 'blessed scalar ref';
}
{
my $compressed = compress('string');
ok compress(substr 'string', 0) eq $compressed,
'compressing magical substr lvalue';
ok uncompress(substr $compressed, 0) eq uncompress($compressed),
'uncompressing magical substr lvalue';
}
done_testing;
|
