#!perl -T
use 5.036;
plan tests => 866;
sub test_array ($arr) {
my @copy = @$arr;
is_deeply(mtf_decode(mtf_encode($arr)), $arr);
is_deeply(abc_decode(abc_encode($arr)), $arr);
is_deeply(ac_decode(ac_encode($arr)), $arr);
is_deeply(adaptive_ac_decode(adaptive_ac_encode($arr)), $arr);
is_deeply(elias_gamma_decode(elias_gamma_encode($arr)), $arr);
is_deeply(elias_omega_decode(elias_omega_encode($arr)), $arr);
is_deeply(fibonacci_decode(fibonacci_encode($arr)), $arr);
is_deeply(delta_decode(delta_encode($arr)), $arr);
is_deeply(rle4_decode(rle4_encode($arr)), $arr);
is_deeply(zrle_decode(zrle_encode($arr)), $arr);
is_deeply([map { ($_->[0]) x $_->[1] } @{run_length($arr)}], $arr);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic($arr)), $arr);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic($arr, \&delta_encode), \&delta_decode), $arr);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic($arr, \&obh_encode), \&obh_decode), $arr);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic($arr, \&create_ac_entry), \&decode_ac_entry), $arr);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic($arr, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), $arr);
is_deeply(lz77_decode_symbolic(lz77_encode_symbolic($arr)), $arr);
is_deeply(lz77_decompress_symbolic(lz77_compress_symbolic($arr, \&delta_encode), \&delta_decode), $arr);
is_deeply(lz77_decompress_symbolic(lz77_compress_symbolic($arr, \&obh_encode), \&obh_decode), $arr);
is_deeply(lz77_decompress_symbolic(lz77_compress_symbolic($arr, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), $arr);
is_deeply(lzss_decode_symbolic(lzss_encode_symbolic($arr)), $arr);
is_deeply(lzss_decode_symbolic(lzss_encode_fast($arr)), $arr);
is_deeply(lzss_decompress_symbolic(lzss_compress_symbolic($arr, \&delta_encode), \&delta_decode), $arr);
is_deeply(lzss_decompress_symbolic(lzss_compress_symbolic($arr, \&obh_encode), \&obh_decode), $arr);
is_deeply(lzss_decompress_symbolic(lzss_compress_symbolic($arr, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), $arr);
my ($mtf, $alphabet) = mtf_encode($arr);
is_deeply(mtf_decode(lz77_decompress_symbolic(lz77_compress_symbolic($mtf)), $alphabet), $arr);
is_deeply(mtf_decode(lzss_decompress_symbolic(lzss_compress_symbolic($mtf)), $alphabet), $arr);
is_deeply(obh_decode(obh_encode($arr)), $arr);
is_deeply(obh_decode(obh_encode($arr, \&obh_encode), \&obh_decode), $arr);
is_deeply(obh_decode(obh_encode($arr, \&create_ac_entry), \&decode_ac_entry), $arr);
is_deeply(obh_decode(obh_encode($arr, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), $arr);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic($arr)), $arr);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic($arr, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), $arr);
is_deeply(bwt_decompress_symbolic(bwt_compress_symbolic($arr)), $arr);
is_deeply(bwt_decompress_symbolic(bwt_compress_symbolic($arr, \&create_ac_entry), \&decode_ac_entry), $arr);
is_deeply(bwt_decompress_symbolic(bwt_compress_symbolic($arr, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), $arr);
is_deeply($arr, \@copy);
}
test_array([]);
test_array([1]);
test_array([0]);
test_array([shuffle((map { int(rand(100)) } 1 .. 20), (map { int(rand(1e6)) } 1 .. 10), 0, 5, 9, 999_999, 1_000_000, 1_000_001, 42, 1)]);
foreach my $str (
"abbaabbaabaabaaaa", "abbaabbaabaabaaaaz", "abbaabbaabaabaaaazz", "abbaabbaabaabaaaazzz",
"abbaabbaabaabaaaazzzz", "abbaabbaabaabaaaazzzzz", "abbaabbaabaabaaaazzzzzz", 'a' x 291,
join('', 'a' x 280, 'b' x 301),
) {
test_array(string2symbols($str));
is(bzip2_decompress(bzip2_compress($str)), $str);
is(gzip_decompress(gzip_compress($str)), $str);
is(gzip_decompress(gzip_compress($str, \&lzss_encode_fast)), $str);
is(zlib_decompress(zlib_compress($str)), $str);
is(zlib_decompress(zlib_compress($str, \&lzss_encode_fast)), $str);
is(lzb_decompress(lzb_compress($str)), $str);
is(lzb_decompress(lzb_compress($str, \&lzss_encode_fast)), $str);
is(lz4_decompress(lz4_compress($str)), $str);
is(lz4_decompress(lz4_compress($str, \&lzss_encode_fast)), $str);
is(lz77_decompress(lz77_compress($str)), $str);
is(lzss_decompress(lzss_compress($str)), $str);
is(lzss_decompress(lzss_compress($str, \&create_huffman_entry, \&lzss_encode_fast)), $str);
is(lzw_decompress(lzw_compress($str)), $str);
is(bwt_decompress(bwt_compress($str)), $str);
is(symbols2string(mrl_decompress_symbolic(mrl_compress_symbolic($str))), $str);
is(lz77_decode(lz77_encode($str)), $str);
is(lz77_decode(lz77_encode($str, \&lzss_encode_fast)), $str);
is(lzss_decode(lzss_encode($str)), $str);
is(lzss_decode(lzss_encode_fast($str)), $str);
}
is(bzip2_decompress(bzip2_compress('')), '');
is(gzip_decompress(gzip_compress('')), '');
is(gzip_decompress(gzip_compress('', \&lzss_encode_fast)), '');
is(zlib_decompress(zlib_compress('')), '');
is(zlib_decompress(zlib_compress('', \&lzss_encode_fast)), '');
is(lzb_decompress(lzb_compress('')), '');
is(lzb_decompress(lzb_compress('', \&lzss_encode_fast)), '');
is(lzb_decompress(lzb_compress('a')), 'a');
is(lzb_decompress(lzb_compress('a', \&lzss_encode_fast)), 'a');
is(lz4_decompress(lz4_compress('')), '');
is(lz4_decompress(lz4_compress('', \&lzss_encode_fast)), '');
is(lz4_decompress(lz4_compress('a')), 'a');
is(lz4_decompress(lz4_compress('a', \&lzss_encode_fast)), 'a');
is(bwt_decompress(bwt_compress('a')), 'a');
is(lzss_decompress(lzss_compress('a')), 'a');
is(lzss_decompress(lzss_compress('a', \&create_huffman_entry, \&lzss_encode_fast)), 'a');
is(lzw_decompress(lzw_compress('a')), 'a');
is(bwt_decompress(bwt_compress('')), '');
is(lzss_decompress(lzss_compress('')), '');
is(lzss_decompress(lzss_compress('', \&create_huffman_entry, \&lzss_encode_fast)), '');
is(lzw_decompress(lzw_compress('')), '');
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic([])), []);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic([0])), [0]);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic('a')), [ord('a')]);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic([ord('a')])), [ord('a')]);
is_deeply(bwt_decompress_symbolic(bwt_compress_symbolic('a')), [ord('a')]);
is_deeply(bwt_decompress_symbolic(bwt_compress_symbolic([1])), [1]);
is_deeply(bwt_decompress_symbolic(bwt_compress_symbolic([0])), [0]);
is_deeply(bwt_decompress_symbolic(bwt_compress_symbolic([])), []);
is_deeply(lz77_decompress_symbolic(lz77_compress_symbolic('a')), [ord('a')]);
is_deeply(lz77_decompress_symbolic(lz77_compress_symbolic([1])), [1]);
is_deeply(lz77_decompress_symbolic(lz77_compress_symbolic([0])), [0]);
is_deeply(lz77_decompress_symbolic(lz77_compress_symbolic([])), []);
is_deeply(lzss_decompress_symbolic(lzss_compress_symbolic('a')), [ord('a')]);
is_deeply(lzss_decompress_symbolic(lzss_compress_symbolic([1])), [1]);
is_deeply(lzss_decompress_symbolic(lzss_compress_symbolic([0])), [0]);
is_deeply(lzss_decompress_symbolic(lzss_compress_symbolic([])), []);
{
my $str = join('', 'a' x 13, 'b' x 14, 'c' x 10, 'd' x 3, 'e' x 1, 'f' x 1, 'g' x 4);
my @symbols = unpack('C*', $str);
my @copy = @symbols;
my $rl = run_length(\@symbols);
my $rl2 = run_length(\@symbols, 10);
is(scalar(@$rl), 7);
is(scalar(@$rl2), 9);
is_deeply([map { ($_->[0]) x $_->[1] } @$rl], \@symbols);
is_deeply([map { ($_->[0]) x $_->[1] } @$rl2], \@symbols);
is_deeply(rle4_decode(rle4_encode(\@symbols)), \@symbols);
is_deeply(decode_huffman_entry(create_huffman_entry(\@symbols)), \@symbols);
is_deeply(decode_ac_entry(create_ac_entry(\@symbols)), \@symbols);
is_deeply(decode_adaptive_ac_entry(create_adaptive_ac_entry(\@symbols)), \@symbols);
is(lz77_decode(lz77_encode($str)), $str);
is(lz77_decode(lz77_encode($str, \&lzss_encode_fast)), $str);
is(lzss_decode(lzss_encode($str)), $str);
is(lzss_decode(lzss_encode_fast($str)), $str);
is_deeply(lz77_decode_symbolic(lz77_encode_symbolic(\@symbols)), \@symbols);
is(bzip2_decompress(bzip2_compress($str)), $str);
is(gzip_decompress(gzip_compress($str)), $str);
is(gzip_decompress(gzip_compress($str, \&lzss_encode_fast)), $str);
is(zlib_decompress(zlib_compress($str)), $str);
is(zlib_decompress(zlib_compress($str, \&lzss_encode_fast)), $str);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic(\@symbols)), \@symbols);
is_deeply(mrl_decompress_symbolic(mrl_compress_symbolic(\@symbols, \&create_ac_entry), \&decode_ac_entry), \@symbols);
is(lzw_decompress(lzw_compress($str)), $str);
is(lzw_decompress(lzw_compress($str, \&delta_encode), \&delta_decode), $str);
is(lzw_decompress(lzw_compress($str, \&elias_omega_encode), \&elias_omega_decode), $str);
is(lzw_decompress(lzw_compress($str, \&fibonacci_encode), \&fibonacci_decode), $str);
is(lzw_decompress(lzw_compress($str, \&elias_gamma_encode), \&elias_gamma_decode), $str);
is(lzw_decompress(lzw_compress($str, \&create_ac_entry), \&decode_ac_entry), $str);
is(lzw_decompress(lzw_compress($str, \&create_huffman_entry), \&decode_huffman_entry), $str);
is(lzw_decompress(lzw_compress($str, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), $str);
is(lzb_decompress(lzb_compress($str)), $str);
is(lzb_decompress(lzb_compress($str, \&lzss_encode_fast)), $str);
is(lz4_decompress(lz4_compress($str)), $str);
is(lz4_decompress(lz4_compress($str, \&lzss_encode_fast)), $str);
is(lz77_decompress(lz77_compress($str)), $str);
is(lz77_decompress(lz77_compress($str, \&create_ac_entry), \&decode_ac_entry), $str);
is(lz77_decompress(lz77_compress($str, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), $str);
is(lzss_decompress(lzss_compress($str)), $str);
is(lzss_decompress(lzss_compress($str, \&create_ac_entry), \&decode_ac_entry), $str);
is(lzss_decompress(lzss_compress($str, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), $str);
is(bwt_decompress(bwt_compress($str)), $str);
is(bwt_decompress(bwt_compress($str, \&create_ac_entry), \&decode_ac_entry), $str);
is(bwt_decompress(bwt_compress($str, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), $str);
is_deeply(bwt_decompress_symbolic(bwt_compress_symbolic(\@symbols)), \@symbols);
is_deeply(bwt_decompress_symbolic(bwt_compress_symbolic(\@symbols, \&create_ac_entry), \&decode_ac_entry), \@symbols);
is_deeply(bwt_decompress_symbolic(bwt_compress_symbolic(\@symbols, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), \@symbols);
is_deeply(lz77_decompress_symbolic(lz77_compress_symbolic(\@symbols)), \@symbols);
is_deeply(lz77_decompress_symbolic(lz77_compress_symbolic(\@symbols, \&create_huffman_entry, \&lzss_encode_fast)), \@symbols);
is_deeply(lz77_decompress_symbolic(lz77_compress_symbolic(\@symbols, \&create_ac_entry), \&decode_ac_entry), \@symbols);
is_deeply(lz77_decompress_symbolic(lz77_compress_symbolic(\@symbols, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), \@symbols);
is_deeply(lzss_decompress_symbolic(lzss_compress_symbolic(\@symbols)), \@symbols);
is_deeply(lzss_decompress_symbolic(lzss_compress_symbolic(\@symbols, \&create_huffman_entry, \&lzss_encode_fast)), \@symbols);
is_deeply(lzss_decompress_symbolic(lzss_compress_symbolic(\@symbols, \&create_ac_entry), \&decode_ac_entry), \@symbols);
is_deeply(lzss_decompress_symbolic(lzss_compress_symbolic(\@symbols, \&create_adaptive_ac_entry), \&decode_adaptive_ac_entry), \@symbols);
is_deeply(\@symbols, \@copy);
}
{
my $bitstring = "101000010000000010000000100000000001001100010000000000000010010100000000000000001";
my $encoded = binary_vrl_encode($bitstring);
my $decoded = binary_vrl_decode($encoded);
is($decoded, $bitstring);
is($encoded, "1000110101110110111010011110001010101100011110101010000111101110");
}
{
my $str = "INEFICIENCIES";
{
my $encoded = mtf_encode(string2symbols($str), [ord('A') .. ord('Z')]);
my $decoded = mtf_decode($encoded, [ord('A') .. ord('Z')]);
is(join(' ', @$encoded), '8 13 6 7 3 6 1 3 4 3 3 3 18');
is($str, symbols2string($decoded));
}
{
my ($encoded, $alphabet) = mtf_encode(string2symbols($str));
my $decoded = mtf_decode($encoded, $alphabet);
is(join(' ', @$encoded), '3 4 3 4 3 4 1 3 4 3 3 3 5');
is($str, symbols2string($decoded));
}
}
{
my $int1 = int(rand(1 << 5));
my $int2 = int(rand(1 << 6));
my $int3 = int(rand(1e6));
my $binary = pack('b*', int2bits_lsb($int1, 5) . int2bits_lsb($int2, 6) . int2bits_lsb($int3, 32));
open my $fh, '<:raw', \$binary;
my $buffer = '';
my $dec1 = bits2int_lsb($fh, 5, \$buffer);
my $dec2 = bits2int_lsb($fh, 6, \$buffer);
my $dec3 = bits2int_lsb($fh, 32, \$buffer);
is($int1, $dec1);
is($int2, $dec2);
is($int3, $dec3);
}
{
my $int = int(rand(1e6));
my $binary = pack('b*', int2bits_lsb($int, 32));
open my $fh, '<:raw', \$binary;
my $dec = oct('0b' . scalar reverse read_bits_lsb($fh, 32));
is($int, $dec);
}
{
my $int = int(rand(1e6));
my $binary = pack('B*', int2bits($int, 32));
open my $fh, '<:raw', \$binary;
my $dec = oct('0b' . read_bits($fh, 32));
is($int, $dec);
}
{
my $int = int(rand(1e6));
my $binary = pack('B*', int2bits($int, 32));
open my $fh, '<:raw', \$binary;
my $dec = bits2int($fh, 32, \my $buffer);
is($int, $dec);
}
{
my $int = int(rand(1e6));
my $binary = pack('b*', int2bits_lsb($int, 32));
open my $fh, '<:raw', \$binary;
my $dec = bits2int_lsb($fh, 32, \my $buffer);
is($int, $dec);
}
{
my $int = int(rand(1e6));
my $binary = pack('N', $int);
open my $fh, '<:raw', \$binary;
my $dec = bytes2int($fh, 4);
is($int, $dec);
}
{
my $int = int(rand(1e6));
my $binary = pack('b*', int2bits_lsb($int, 32));
open my $fh, '<:raw', \$binary;
my $dec = bytes2int_lsb($fh, 4);
is($int, $dec);
}
{
my $int = int(rand(1e6));
my $binary = pack('b*', int2bits_lsb($int, 32));
my $dec = bytes2int_lsb($binary, 4);
is($int, $dec);
}
{
my $int = int(rand(1e6));
my $binary = pack('B*', int2bits($int, 32));
my $dec = bytes2int($binary, 4);
is($int, $dec);
}
{
is(bytes2int_lsb(int2bytes_lsb(97, 1), 1), 97);
is(bytes2int(int2bytes(97, 1), 1), 97);
is(bytes2int(int2bytes_lsb(97, 1), 1), 97);
is(bytes2int_lsb(int2bytes(97, 1), 1), 97);
is(bytes2int_lsb(int2bytes_lsb(97, 1), 1), 97);
is(bytes2int(int2bytes(97, 1), 1), 97);
is(bytes2int(int2bytes_lsb(97, 1), 1), 97);
is(bytes2int_lsb(int2bytes(97, 1), 1), 97);
my $value = int(rand(1e6));
is(bytes2int(int2bytes($value, 3), 3), $value);
is(bytes2int_lsb(int2bytes_lsb($value, 3), 3), $value);
my $int = 19225;
is(bytes2int(int2bytes($int, 2), 2), $int);
is(bytes2int_lsb(int2bytes_lsb($int, 2), 2), $int);
is(bytes2int(int2bytes_lsb($int, 2), 2), 6475);
is(bytes2int_lsb(int2bytes($int, 2), 2), 6475);
}
{
my $int1 = int(rand(1 << 5));
my $int2 = int(rand(1 << 6));
my $int3 = int(rand(1e6));
my $binary = pack('B*', int2bits($int1, 5) . int2bits($int2, 6) . int2bits($int3, 32));
open my $fh, '<:raw', \$binary;
my $buffer = '';
my $dec1 = bits2int($fh, 5, \$buffer);
my $dec2 = bits2int($fh, 6, \$buffer);
my $dec3 = bits2int($fh, 32, \$buffer);
is($int1, $dec1);
is($int2, $dec2);
is($int3, $dec3);
}
{
my $str = "foo\0bar\0abracadabra\0";
open my $fh, '<:raw', \$str;
my $word1 = read_null_terminated($fh);
my $word2 = read_null_terminated($fh);
my $word3 = read_null_terminated($fh);
is($word1, "foo");
is($word2, "bar");
is($word3, "abracadabra");
}
{
is(crc32("The quick brown fox jumps over the lazy dog"), 0x414fa339);
my $p1 = crc32("The quick brown fox jumps");
my $p2 = crc32(" over the lazy dog", $p1);
is($p2, 0x414fa339);
}
{
is(adler32("The quick brown fox jumps over the lazy dog"), 0x5bdc0fda);
my $p1 = adler32("The quick brown fox jumps");
my $p2 = adler32(" over the lazy dog", $p1);
is($p2, 0x5bdc0fda);
}
{
my $str = "Hello, world!";
is(oct('0b' . int2bits_lsb(crc32(pack('b*', unpack('B*', $str))), 32)), 0x8e9a7706);
}
is(bzip2_decompress("BZh9\27rE8P\x90\0\0\0\0"), "");
is(bzip2_decompress("BZh31AY&SY\31\x93\x9Bk\0\0\0\1\0 \0 \0!\30F\x82\xEEH\xA7\n\22\x032sm`"), "a");
is(bzip2_decompress("BZh91AY&SY\xB1\xF7\@K\0\0\0\@\0\@\0 \0!\30F\x82\xEEH\xA7\n\22\26>\xE8\t`"), "\0");
is(bzip2_decompress("BZh91AY&SY\xEA\xE0\x8D\xEB\0\0\0\xC1\0\0\x100\0 \0!\x98\31\x84aw\$S\x85\t\16\xAE\b\xDE\xB0"), "ab\n");
is(bzip2_decompress("BZh91AY&SY\xFF\xB0\xB7\xA8\0\0\0\xC1\0\@\0\20\0\xA0\0!\x98\31\x84;\13\xB9\"\x9C(H\x7F\xD8[\xD4\0"), "boooo");
is(bzip2_decompress("BZh91AY&SY\x99\xAC\"V\0\0\2W\x80\0\20`\4\0\@\0\x80\6\4\x90\0 \0\"\6\x81\x90\x80i\xA6\x89\30j\xCE\xA4\31o\x8B\xB9\"\x9C(HL\xD6\21+\0"),
"Hello, World!\n");
is(bzip2_decompress("BZh91AY&SY\x99\xAC\"V\0\0\2W\x80\0\20`\4\0\@\0\x80\6\4\x90\0 \0\"\6\x81\x90\x80i\xA6\x89\30j\xCE\xA4\31o\x8B\xB9\"\x9C(HL\xD6\21+\0"),
"Hello, World!\n");
is(
bzip2_decompress(
"BZh91AY&SY\x9A\x89\xB4\"\0\0\0\1\0\0` \0!\0\x82\xB1w\$S\x85\t\t\xA8\x9BB "
. "BZh91AY&SY)\xD4\xF6\xAB\0\0\0\20\0\@\0 \0!\30F\x82\xEEH\xA7\n\22\5:\x9E\xD5`"
. "BZh91AY&SY\xFD\xD4\xD8\x82\0\0\2\1\x80\2\@\24\0 \0!\x9Ah3M\f\xB3\x8B\xB9\"\x9C(H~\xEAlA\0"
),
"hi there"
);
is(
bzip2_decompress(
"BZh91AY&SY\xEA\xE0\x8D\xEB\0\0\0\xC1\0\0\x100\0 \0!\x98\31\x84aw\$S\x85\t\16\xAE\b\xDE\xB0"
. "BZh91AY&SY\x99\xAC\"V\0\0\2W\x80\0\20`\4\0\@\0\x80\6\4\x90\0 \0\"\6"
. "\x81\x90\x80i\xA6\x89\30j\xCE\xA4\31o\x8B\xB9\"\x9C(HL\xD6\21+\0"
),
"ab\nHello, World!\n"
);
is(
bzip2_decompress(
"BZh91AY&SY\xE9\xA6L\xBE\0\0\20\xC9\x80\n\20\2\xE0?\xFB\x8B0"
. " \0\x89\fE2i\xA3&\x9A\3A)\xEA\"'\xA8h\3\xD4\xD3gxRZ\4\x8C\xDA'g,\x88\xD5\xA6"
. "\x9C\xEA\xC4\30wWy\xE4\xD7\xC0\x95\xF9L\x89\5\x936'\xED\x95a\22o\%B\x90\x93"
. "T\xAF\xFD\xE6\xEA)\x8D\x90\x82\xB5\x9E\x89Z\xD7X\xB19\x9D0\xC9\21s\x9E\x95"
. "\1\xB2F\xE9\x98\xFD\x8A+O\xAD\xBDi\x96s\e\0\4\xA3G\xC0\xB2\4\xA6_\x8B\xB9\"\x9C(Ht\xD3&_\0"
),
"abhdhdjfhfhfjfjfhhdhdhdhdhdhdhdhdhdhdhdhdhdhdhdhdhdhdhdhdhdhdaaaaaaammmmmmmmmabababaabababaa"
. "b998899987ababaababababczzzczvzczvzvzvzvzvzvzvzvzvzvzvzvzvzvzvzkdkdkdjdkdjdjdjdkdkdkdkdkdkdkdj"
. "dkdkdjdjdkdjdjdjdjdjdkdmumuishdjdhdhdksjgsyshfbjcidbdbyhebdkjgsbshyehdbididhsbdjodhhdnkduf5\n"
);
is(gzip_decompress("\37\x8B\b\0\xB1\e\xC7f\2\3\3\0\0\0\0\0\0\0\0\0"), "");
is(gzip_decompress("\37\x8B\b\0\xE9\e\xC7f\0\3K\4\0C\xBE\xB7\xE8\1\0\0\0"), "a");
is(gzip_decompress("\37\x8B\b\0\23\34\xC7f\0\3c\0\0\x8D\xEF\2\xD2\1\0\0\0"), "\0");
is(gzip_decompress("\37\x8B\b\0\0\0\0\0\2\3\xCB\xC8\4\0\xAC*\x93\xD8\2\0\0\0"), "hi");
is(gzip_decompress("\37\x8B\b\0\xCE\32\xC7f\0\3\xCB\xC8\4\0\xAC*\x93\xD8\2\0\0\0"), "hi");
is(gzip_decompress(gzip_compress("hello") . gzip_compress("world")), "helloworld");
is(zlib_decompress(zlib_compress("hello") . zlib_compress("world")), "helloworld");
is(zlib_decompress("x\1\1\31\0\xE6\xFFTOBEORNOTTOBEORTOBEORNOT\na\xE5\aN"), "TOBEORNOTTOBEORTOBEORNOT\n");
is(zlib_decompress("x\1\13\xF1wr\xF5\17\xF2\xF3\17\t\x013 \$\x90\xCB\5\0a\xE5\aN"), "TOBEORNOTTOBEORTOBEORNOT\n");
is(zlib_decompress("x\xDA\13\xF1wr\xF5\17\xF2\xF3\17\t\x013B`\\.\0a\xE5\aN"), "TOBEORNOTTOBEORTOBEORNOT\n");
is(zlib_decompress("x\x9C\13\xF1wr\xF5\17\xF2\xF3\17\t\x013B`\\.\0a\xE5\aN"), "TOBEORNOTTOBEORTOBEORNOT\n");
is(zlib_decompress(zlib_compress("TOBEORNOTTOBEORTOBEORNOT\n")), "TOBEORNOTTOBEORTOBEORNOT\n");
is(gzip_decompress("\37\x8B\b\0\0\0\0\0\0\3\1\31\0\xE6\xFFTOBEORNOTTOBEORTOBEORNOT\nW\xF9\@\xF8\31\0\0\0"), "TOBEORNOTTOBEORTOBEORNOT\n");
is(gzip_decompress("\37\x8B\b\0\0\0\0\0\0\3\13\xF1wr\xF5\17\xF2\xF3\17\x810\xE0\\.\0W\xF9\@\xF8\31\0\0\0"), "TOBEORNOTTOBEORTOBEORNOT\n");
is(gzip_decompress("\37\x8B\b\0?\xD5\xC6f\0\3\13\xF1wr\xF5\17\xF2\xF3\17\t\x013B`\\.\0W\xF9\@\xF8\31\0\0\0"), "TOBEORNOTTOBEORTOBEORNOT\n");
is(gzip_decompress("\37\x8B\b\b\5\xD1\xC6f\0\3/tmp/test.txt\0\13\xF1wr\xF5\17\xF2\xF3\17\t\x013B`\\.\0W\xF9\@\xF8\31\0\0\0"), "TOBEORNOTTOBEORTOBEORNOT\n");
is(gzip_decompress("\37\x8B\b\bY\xD6\xC6f\0\3test.txt\0\13\xF1wr\xF5\17\xF2\xF3\17\t\x013B`\\.\0W\xF9\@\xF8\31\0\0\0"), "TOBEORNOTTOBEORTOBEORNOT\n");
is(gzip_decompress("\37\x8B\b\0Y\xD6\xC6f\0\3\13\xF1wr\xF5\17\xF2\xF3\17\t\x013B`\\.\0W\xF9\@\xF8\31\0\0\0"), "TOBEORNOTTOBEORTOBEORNOT\n");
is(gzip_decompress("\37\x8B\b\0Y\xD6\xC6f\2\3\13\xF1wr\xF5\17\xF2\xF3\17\t\x013B`\\.\0W\xF9\@\xF8\31\0\0\0"), "TOBEORNOTTOBEORTOBEORNOT\n");
is(gzip_decompress("\37\x8B\b\0\0\0\0\0\0\3\13\xF1wr\xF5\17\xF2\xF3\17\t\xF1wr\xF5\17\n\xF1wr\xF5\17\xF2\xF3\17\xE1\2\0W\xF9\@\xF8\31\0\0\0"),
"TOBEORNOTTOBEORTOBEORNOT\n");
is(
gzip_decompress(
"\37\x8B\b\0\0\0\0\0\0\3=\xC7\1\f\0\0\b\x82\xB0m\xDB\xB6\xADm\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xD6\xD6\xB6m[l\xCDm\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6mmss\xDB\xB6_\xF4p\x8B\x8C\xB4\36W\xF9\@\xF8\31\0\0\0"
),
"TOBEORNOTTOBEORTOBEORNOT\n"
);
is(gzip_decompress("\37\x8B\b\0\0\0\0\0\0\3=\xC7\xB1\t\0\0\b\3\xC1\xDE\xB1\4[\37\$\xFB\xCFb\21Hw'z\xB8EFZ\17W\xF9\@\xF8\31\0\0\0"),
"TOBEORNOTTOBEORTOBEORNOT\n");
is(
gzip_decompress(
"\37\x8B\b\0\0\0\0\0\0\3\5\x80\1\f\0 \b\xC2\xB6m\xDB\xB6\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\e\e\xDB\xB6m~c\xDF\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xB6m\xDB\xD6\$e\x87\x922I\xD9\xE1\xFBW\xF9\@\xF8\31\0\0\0"
),
"TOBEORNOTTOBEORTOBEORNOT\n"
);
is(gzip_decompress("\37\x8B\b\20\x9D\x9A\xC9f\2\3hello world\n\0KLJN\x84 \4\xE0\2\0\xE3#7]\25\0\0\0"), "abcabcabcaaaaaaaaaaa\n");
is(gzip_decompress("\37\x8B\b\30\xA8\x9A\xC9f\0\3hello\0hi\n\0\xCBH\xCD\xC9\xC9W(\xCF/\xCAI\xE1\2\0-;\b\xAF\f\0\0\0"), "hello world\n");
is(
gzip_decompress(
"\37\x8B\b\0\0\0\0\0\0\3\xCB\xC8\4\0\xAC*\x93\xD8\2\0\0\0"
. "\37\x8B\b\0\0\0\0\0\0\3S\0\0E\xCFl\xE9\1\0\0\0"
. "\37\x8B\b\0d\e\xC7f\2\3+\xC9H-J\5\0\x96\xE9/Z\5\0\0\0"
),
"hi there"
);
is(lz4_decompress("\4\"M\30d\@\xA7\0\0\0\0\5]\xCC\2"), "");
is(lz4_decompress("\4\"M\30`ps\0\0\0\0"), "");
is(lz4_decompress("\4\"M\30d\@\xA7\1\0\0\x80a\0\0\0\0Vt\rU"), "a");
is(lz4_decompress("\4\"M\30`ps\2\0\0\0\20a\0\0\0\0"), "a");
is(lz4_decompress("\4\"M\30`ps\b\0\0\x002abc\3\0\20\n\0\0\0\0"), "abcabcabc\n");
is(lz4_decompress("\4\"M\30d\@\xA7\n\0\0\x80abcabcabc\n\0\0\0\0\xE9j\xA1C"), "abcabcabc\n");
is(lz4_decompress("\4\"M\30`ps\13\0\0\0\xA0abcabcabc\n\0\0\0\0"), "abcabcabc\n");
is(lz4_decompress("\4\"M\30`ps\f\0\0\x003abc\3\0\31a\1\0\20\n\0\0\0\0"), "abcabcabcaaaaaaaaaaaaaaa\n");
is(lz4_decompress("\4\"M\30d\@\xA7\17\0\0\x003abc\3\0\6\1\0Paaaa\n\0\0\0\0G}M\xC6"), "abcabcabcaaaaaaaaaaaaaaa\n");
is(lz4_decompress("\4\"M\30`\@\x82\17\0\0\x003abc\3\0\6\1\0Paaaa\n\0\0\0\0"), "abcabcabcaaaaaaaaaaaaaaa\n");
is(lz4_decompress("\4\"M\30p\@\xAD\17\0\0\x003abc\3\0\6\1\0Paaaa\n\xF6\xFE\xFE0\0\0\0\0"), "abcabcabcaaaaaaaaaaaaaaa\n");
is(lz4_decompress("\4\"M\30t\@\xBD\17\0\0\x003abc\3\0\5\1\0Paaaaa\a\x8A+\xDD\0\0\0\0\\\13\x81\xFE"), "abcabcabcaaaaaaaaaaaaaaa");
is(lz4_decompress("\4\"M\30t\@\xBD\26\0\0\0\x92TOBEORNOT\t\0\x90TOBEORNOTb\xC52\32\0\0\0\0\x9Dn#B"), "TOBEORNOTTOBEORTOBEORNOT");
is(lz4_decompress("\4\"M\30d\@\xA7\26\0\0\0\x92TOBEORNOT\t\0\x90TOBEORNOT\0\0\0\0\x9Dn#B"), "TOBEORNOTTOBEORTOBEORNOT");
is(lz4_decompress("\4\"M\30`ps\21\0\0\0\x92TOBEORNOT\t\0\4\17\0\20T\0\0\0\0"), "TOBEORNOTTOBEORTOBEORNOT");
is(lz4_decompress("\4\"M\30`\@\x82\26\0\0\0\x92TOBEORNOT\t\0\x90TOBEORNOT\0\0\0\0"), "TOBEORNOTTOBEORTOBEORNOT");
is(lz4_decompress("\4\"M\30p\@\xAD\26\0\0\0\x92TOBEORNOT\t\0\x90TOBEORNOTb\xC52\32\0\0\0\0"), "TOBEORNOTTOBEORTOBEORNOT");
is(
lz4_decompress("\4\"M\30d\@\xA7\16\0\0\x80Hello, World!\n\0\0\0\0\xE8C\xD0\x9E" . "\4\"M\30d\@\xA7\27\0\0\0\xE5Hello, World! \16\0Prld!\n\0\0\0\0\x9FL\"T"),
"Hello, World!\nHello, World! Hello, World!\n"
);
is(
lz4_decompress(
"\4\"M\30`ps\b\0\0\x002abc\3\0\20\n\0\0\0\0"
. "\4\"M\30d\@\xA7\17\0\0\x003abc\3\0\6\1\0Paaaa\n\0\0\0\0G}M\xC6"
. "\4\"M\30d\@\xA7\26\0\0\0\x92TOBEORNOT\t\0\x90TOBEORNOT\0\0\0\0\x9Dn#B"
. "\4\"M\30t\@\xBD\17\0\0\x003abc\3\0\5\1\0Paaaaa\a\x8A+\xDD\0\0\0\0\\\13\x81\xFE"
),
"abcabcabc\n" . "abcabcabcaaaaaaaaaaaaaaa\n" . "TOBEORNOTTOBEORTOBEORNOT" . "abcabcabcaaaaaaaaaaaaaaa"
);
{
my $data = do {
open my $fh, '<:raw', __FILE__;
local $/;
<$fh>;
};
is(gzip_decompress(gzip_compress($data)), $data);
is(gzip_decompress(gzip_compress($data, \&lzss_encode_fast)), $data);
is(bzip2_decompress(bzip2_compress($data)), $data);
is(lzss_decompress(lzss_compress($data)), $data);
is(lzss_decompress(lzss_compress($data, \&create_huffman_entry, \&lzss_encode_fast)), $data);
is(lzb_decompress(lzb_compress($data)), $data);
is(lzb_decompress(lzb_compress($data, \&lzss_encode_fast)), $data);
is(lz4_decompress(lz4_compress($data)), $data);
is(lz4_decompress(lz4_compress($data, \&lzss_encode_fast)), $data);
is(bwt_decompress(bwt_compress($data)), $data);
is(mrl_decompress(mrl_compress($data)), $data);
is(lz77_decompress(lz77_compress($data)), $data);
is(lz77_decompress(lz77_compress($data, \&create_huffman_entry, \&lzss_encode_fast)), $data);
is(lzw_decompress(lzw_compress($data)), $data);
}
{
my $chunk = "foobar hello world";
my $bt0_header = deflate_create_block_type_0_header($chunk);
my $block_type_0 = pack('b*', '00') . pack('b*', $bt0_header) . $chunk;
open my $fh, '<:raw', \$block_type_0;
my ($buffer, $search_window) = ('', '');
my $decoded_chunk = deflate_extract_next_block($fh, \$buffer, \$search_window);
is($chunk, $decoded_chunk);
is($search_window, $chunk);
}
{
my $chunk = "hello world 12";
my $bt0_header = deflate_create_block_type_0_header($chunk);
my $block_type_0 = pack('b*', $bt0_header) . $chunk;
my ($buffer, $search_window) = ('', '');
open my $fh, '<:raw', \$block_type_0;
my $decoded_chunk = deflate_extract_block_type_0($fh, \$buffer, \$search_window);
is($chunk, $decoded_chunk);
}
{
my $chunk = "foobar hello world";
my ($literals, $distances, $lengths) = lzss_encode($chunk, min_len => 4, max_len => 258, max_dist => 2**15 - 1);
my $bitstring = deflate_create_block_type_1($literals, $distances, $lengths);
my $block_type_1 = pack('b*', $bitstring);
open my $fh, '<:raw', \$block_type_1;
my ($buffer, $search_window) = ('', '');
my $decoded_chunk = deflate_extract_next_block($fh, \$buffer, \$search_window);
is($chunk, $decoded_chunk);
is($search_window, $chunk);
}
{
my $chunk = "foobar hello world";
my ($literals, $distances, $lengths) = lzss_encode($chunk, min_len => 4, max_len => 258, max_dist => 2**15 - 1);
my $bitstring = deflate_create_block_type_1($literals, $distances, $lengths);
my $block_type_1 = pack('b*', $bitstring);
open my $fh, '<:raw', \$block_type_1;
my ($buffer, $search_window) = ('', '');
my $block_type = bits2int_lsb($fh, 2, \$buffer);
is($block_type, 1);
my $decoded_chunk = deflate_extract_block_type_1($fh, \$buffer, \$search_window);
is($chunk, $decoded_chunk);
is($search_window, $chunk);
}
{
my $chunk = "foobar hello world";
my ($literals, $distances, $lengths) = lzss_encode($chunk, min_len => 4, max_len => 258, max_dist => 2**15 - 1);
my $bitstring = deflate_create_block_type_2($literals, $distances, $lengths);
my $block_type_2 = pack('b*', $bitstring);
open my $fh, '<:raw', \$block_type_2;
my ($buffer, $search_window) = ('', '');
my $decoded_chunk = deflate_extract_next_block($fh, \$buffer, \$search_window);
is($chunk, $decoded_chunk);
is($search_window, $chunk);
}
{
my $chunk = "foobar hello world";
my ($literals, $distances, $lengths) = lzss_encode($chunk, min_len => 4, max_len => 258, max_dist => 2**15 - 1);
my $bitstring = deflate_create_block_type_2($literals, $distances, $lengths);
my $block_type_2 = pack('b*', $bitstring);
open my $fh, '<:raw', \$block_type_2;
my ($buffer, $search_window) = ('', '');
my $block_type = bits2int_lsb($fh, 2, \$buffer);
is($block_type, 2);
my $decoded_chunk = deflate_extract_block_type_2($fh, \$buffer, \$search_window);
is($decoded_chunk, $chunk);
is($search_window, $chunk);
}