123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572 |
- #!perl -T
- use 5.036;
- use Test::More;
- use Compression::Util qw(:all);
- use List::Util qw(shuffle);
- plan tests => 822;
- ##################################
- 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); # make sure the array has not been modified in-place
- }
- 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(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(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_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); # make sure the array has not been modified in-place
- }
- ##################################
- {
- 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);
- }
- {
- # Bzip2 CRC32
- 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("\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);
- }
- ###################################################
|