Microsoft (R) Program Maintenance Utility   Version 7.00.8882
Copyright (C) Microsoft Corp 1988-2000. All rights reserved.

	C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -MExtUtils::Command -e cp tools/plha blib\script\plha
	pl2bat.bat blib\script\plha
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Archive\Lha\Lha.bs
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Archive\Lha\Lha.dll
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Archive\Lha\Lha.exp
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Archive\Lha\Lha.lib
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Archive\Lha\Lha.pdb
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Constants.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\CRC.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Debug.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Decode.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Header.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Stream.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Stream\Base.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Stream\File.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Stream\Hex.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Stream\String.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Header\Base.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Header\Level0.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Header\Level1.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Header\Level2.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Header\Utils.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Decode\Base.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Decode\LH0.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Decode\LH5.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Decode\LH6.pm
Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Archive\Lha\Decode\LH7.pm
Installing C:\cpanrun-5.8\build\5-8-0\bin\plha
Installing C:\cpanrun-5.8\build\5-8-0\bin\plha.bat
Writing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Archive\Lha\.packlist
Appending installation info to C:\cpanrun-5.8\build\5-8-0\lib/perllocal.pod
4
ok 6 - (
#   bless({
#     additional_crc => 39_818,
#     crc16          => 27_124,
#     data_top       => 245,
#     directory      => "t\377",
#     encoded_size   => 157,
#     filename       => "99_pod.t",
#     header_size    => 82,
#     header_top     => 163,
#     method         => "lh5",
#     next_header    => 402,
#     original_size  => 223,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197287801",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n",
# )
ok 7 - CRC: 3521 / 3521
ok 8 - (
#   bless({
#     additional_crc => 19_592,
#     crc16          => 3521,
#     data_top       => 492,
#     directory      => "t\377",
#     encoded_size   => 166,
#     filename       => "99_podcoverage.t",
#     header_size    => 90,
#     header_top     => 402,
#     method         => "lh5",
#     next_header    => 658,
#     original_size  => 248,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197287801",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n",
# )
ok 9 - CRC: 51024 / 51024
ok 10 - (
#   bless({
#     additional_crc => 15_735,
#     crc16          => 51_024,
#     data_top       => 83,
#     directory      => "t\377",
#     encoded_size   => 80,
#     filename       => "00_load.t",
#     header_size    => 83,
#     header_top     => 0,
#     method         => "lh5",
#     next_header    => 163,
#     original_size  => 82,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197287801",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::UseAllModules;\r\n\r\nBEGIN { all_uses_ok(); }\r\n",
# )
ok 11 - CRC: 27124 / 27124
ok 12 - (
#   bless({
#     additional_crc => 39_818,
#     crc16          => 27_124,
#     data_top       => 245,
#     directory      => "t\377",
#     encoded_size   => 157,
#     filename       => "99_pod.t",
#     header_size    => 82,
#     header_top     => 163,
#     method         => "lh5",
#     next_header    => 402,
#     original_size  => 223,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197287801",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n",
# )
ok 13 - CRC: 3521 / 3521
ok 14 - (
#   bless({
#     additional_crc => 19_592,
#     crc16          => 3521,
#     data_top       => 492,
#     directory      => "t\377",
#     encoded_size   => 166,
#     filename       => "99_podcoverage.t",
#     header_size    => 90,
#     header_top     => 402,
#     method         => "lh5",
#     next_header    => 658,
#     original_size  => 248,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197287801",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n",
# )
ok 15 - CRC: 51024 / 51024
ok 16 - (
#   bless({
#     additional_crc => 47_752,
#     crc16          => 51_024,
#     data_top       => 83,
#     directory      => "t\377",
#     encoded_size   => 80,
#     filename       => "00_load.t",
#     header_size    => 83,
#     header_top     => 0,
#     method         => "lh7",
#     next_header    => 163,
#     original_size  => 82,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::UseAllModules;\r\n\r\nBEGIN { all_uses_ok(); }\r\n",
# )
ok 17 - CRC: 11654 / 11654
ok 18 - (
#   bless({
#     additional_crc => 61_162,
#     crc16          => 11_654,
#     data_top       => 251,
#     directory      => "t\377",
#     encoded_size   => 317,
#     filename       => "10_bitstream.t",
#     header_size    => 88,
#     header_top     => 163,
#     method         => "lh7",
#     next_header    => 568,
#     original_size  => 1589,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More qw( no_plan );\r\nuse Archive::Lha::Bitstream;\r\n\r\nif (1) {\r\n  my \@pack = map { pack \"H2\", \$_ }\r\n             qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n  my \$bit = Archive::Lha::Bitstream->new(\r\n    callback => sub { shift \@pack },\r\n    length   => scalar \@pack,\r\n  );\r\n\r\n  ok \$bit->getbits(8) == 0x00;\r\n  ok \$bit->getbits(8) == 0x05;\r\n  ok \$bit->getbits(8) == 0x2B;\r\n  ok \$bit->getbits(8) == 0x69;\r\n  ok \$bit->getbits(8) == 0x31;\r\n  ok \$bit->getbits(8) == 0xFE;\r\n  ok \$bit->getbits(8) == 0xED;\r\n  ok \$bit->getbits(8) == 0x91;\r\n  ok \$bit->getbits(8) == 0x49;\r\n  ok \$bit->getbits(8) == 0x25;\r\n  ok \$bit->getbits(8) == 0x40;\r\n}\r\n\r\nif (1) {\r\n  my \@pack = map { pack \"H2\", \$_ }\r\n             qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n  my \$bit = Archive::Lha::Bitstream->new(\r\n    callback => sub { shift \@pack },\r\n    length   => scalar \@pack,\r\n  );\r\n\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x5;\r\n  ok \$bit->getbits(4) == 0x2;\r\n  ok \$bit->getbits(4) == 0xB;\r\n  ok \$bit->getbits(4) == 0x6;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x3;\r\n  ok \$bit->getbits(4) == 0x1;\r\n  ok \$bit->getbits(4) == 0xF;\r\n  ok \$bit->getbits(4) == 0xE;\r\n  ok \$bit->getbits(4) == 0xE;\r\n  ok \$bit->getbits(4) == 0xD;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x1;\r\n  ok \$bit->getbits(4) == 0x4;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x2;\r\n  ok \$bit->getbits(4) == 0x5;\r\n  ok \$bit->getbits(4) == 0x4;\r\n  ok \$bit->getbits(4) == 0x0;\r\n}\r\n",
# )
ok 19 - CRC: 27124 / 27124
ok 20 - (
#   bless({
#     additional_crc => 31_046,
#     crc16          => 27_124,
#     data_top       => 650,
#     directory      => "t\377",
#     encoded_size   => 158,
#     filename       => "99_pod.t",
#     header_size    => 82,
#     header_top     => 568,
#     method         => "lh7",
#     next_header    => 808,
#     original_size  => 223,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n",
# )
ok 21 - CRC: 3521 / 3521
ok 22 - (
#   bless({
#     additional_crc => 17_045,
#     crc16          => 3521,
#     data_top       => 898,
#     directory      => "t\377",
#     encoded_size   => 166,
#     filename       => "99_podcoverage.t",
#     header_size    => 90,
#     header_top     => 808,
#     method         => "lh7",
#     next_header    => 1064,
#     original_size  => 248,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n",
# )
ok 23 - CRC: 51024 / 51024
ok 24 - (
#   bless({
#     additional_crc => 47_752,
#     crc16          => 51_024,
#     data_top       => 83,
#     directory      => "t\377",
#     encoded_size   => 80,
#     filename       => "00_load.t",
#     header_size    => 83,
#     header_top     => 0,
#     method         => "lh7",
#     next_header    => 163,
#     original_size  => 82,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::UseAllModules;\r\n\r\nBEGIN { all_uses_ok(); }\r\n",
# )
ok 25 - CRC: 11654 / 11654
ok 26 - (
#   bless({
#     additional_crc => 61_162,
#     crc16          => 11_654,
#     data_top       => 251,
#     directory      => "t\377",
#     encoded_size   => 317,
#     filename       => "10_bitstream.t",
#     header_size    => 88,
#     header_top     => 163,
#     method         => "lh7",
#     next_header    => 568,
#     original_size  => 1589,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More qw( no_plan );\r\nuse Archive::Lha::Bitstream;\r\n\r\nif (1) {\r\n  my \@pack = map { pack \"H2\", \$_ }\r\n             qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n  my \$bit = Archive::Lha::Bitstream->new(\r\n    callback => sub { shift \@pack },\r\n    length   => scalar \@pack,\r\n  );\r\n\r\n  ok \$bit->getbits(8) == 0x00;\r\n  ok \$bit->getbits(8) == 0x05;\r\n  ok \$bit->getbits(8) == 0x2B;\r\n  ok \$bit->getbits(8) == 0x69;\r\n  ok \$bit->getbits(8) == 0x31;\r\n  ok \$bit->getbits(8) == 0xFE;\r\n  ok \$bit->getbits(8) == 0xED;\r\n  ok \$bit->getbits(8) == 0x91;\r\n  ok \$bit->getbits(8) == 0x49;\r\n  ok \$bit->getbits(8) == 0x25;\r\n  ok \$bit->getbits(8) == 0x40;\r\n}\r\n\r\nif (1) {\r\n  my \@pack = map { pack \"H2\", \$_ }\r\n             qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n  my \$bit = Archive::Lha::Bitstream->new(\r\n    callback => sub { shift \@pack },\r\n    length   => scalar \@pack,\r\n  );\r\n\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x5;\r\n  ok \$bit->getbits(4) == 0x2;\r\n  ok \$bit->getbits(4) == 0xB;\r\n  ok \$bit->getbits(4) == 0x6;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x3;\r\n  ok \$bit->getbits(4) == 0x1;\r\n  ok \$bit->getbits(4) == 0xF;\r\n  ok \$bit->getbits(4) == 0xE;\r\n  ok \$bit->getbits(4) == 0xE;\r\n  ok \$bit->getbits(4) == 0xD;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x1;\r\n  ok \$bit->getbits(4) == 0x4;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x2;\r\n  ok \$bit->getbits(4) == 0x5;\r\n  ok \$bit->getbits(4) == 0x4;\r\n  ok \$bit->getbits(4) == 0x0;\r\n}\r\n",
# )
ok 27 - CRC: 27124 / 27124
ok 28 - (
#   bless({
#     additional_crc => 31_046,
#     crc16          => 27_124,
#     data_top       => 650,
#     directory      => "t\377",
#     encoded_size   => 158,
#     filename       => "99_pod.t",
#     header_size    => 82,
#     header_top     => 568,
#     method         => "lh7",
#     next_header    => 808,
#     original_size  => 223,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n",
# )
ok 29 - CRC: 3521 / 3521
ok 30 - (
#   bless({
#     additional_crc => 17_045,
#     crc16          => 3521,
#     data_top       => 898,
#     directory      => "t\377",
#     encoded_size   => 166,
#     filename       => "99_podcoverage.t",
#     header_size    => 90,
#     header_top     => 808,
#     method         => "lh7",
#     next_header    => 1064,
#     original_size  => 248,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n",
# )
ok 31 - CRC: 51024 / 51024
ok 32 - (
#   bless({
#     additional_crc => 43_767,
#     crc16          => 51_024,
#     data_top       => 83,
#     directory      => "t\377",
#     encoded_size   => 82,
#     filename       => "00_load.t",
#     header_size    => 83,
#     header_top     => 0,
#     method         => "lh0",
#     next_header    => 165,
#     original_size  => 82,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::UseAllModules;\r\n\r\nBEGIN { all_uses_ok(); }\r\n",
# )
ok 33 - CRC: 11654 / 11654
ok 34 - (
#   bless({
#     additional_crc => 60_274,
#     crc16          => 11_654,
#     data_top       => 253,
#     directory      => "t\377",
#     encoded_size   => 1589,
#     filename       => "10_bitstream.t",
#     header_size    => 88,
#     header_top     => 165,
#     method         => "lh0",
#     next_header    => 1842,
#     original_size  => 1589,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More qw( no_plan );\r\nuse Archive::Lha::Bitstream;\r\n\r\nif (1) {\r\n  my \@pack = map { pack \"H2\", \$_ }\r\n             qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n  my \$bit = Archive::Lha::Bitstream->new(\r\n    callback => sub { shift \@pack },\r\n    length   => scalar \@pack,\r\n  );\r\n\r\n  ok \$bit->getbits(8) == 0x00;\r\n  ok \$bit->getbits(8) == 0x05;\r\n  ok \$bit->getbits(8) == 0x2B;\r\n  ok \$bit->getbits(8) == 0x69;\r\n  ok \$bit->getbits(8) == 0x31;\r\n  ok \$bit->getbits(8) == 0xFE;\r\n  ok \$bit->getbits(8) == 0xED;\r\n  ok \$bit->getbits(8) == 0x91;\r\n  ok \$bit->getbits(8) == 0x49;\r\n  ok \$bit->getbits(8) == 0x25;\r\n  ok \$bit->getbits(8) == 0x40;\r\n}\r\n\r\nif (1) {\r\n  my \@pack = map { pack \"H2\", \$_ }\r\n             qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n  my \$bit = Archive::Lha::Bitstream->new(\r\n    callback => sub { shift \@pack },\r\n    length   => scalar \@pack,\r\n  );\r\n\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x5;\r\n  ok \$bit->getbits(4) == 0x2;\r\n  ok \$bit->getbits(4) == 0xB;\r\n  ok \$bit->getbits(4) == 0x6;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x3;\r\n  ok \$bit->getbits(4) == 0x1;\r\n  ok \$bit->getbits(4) == 0xF;\r\n  ok \$bit->getbits(4) == 0xE;\r\n  ok \$bit->getbits(4) == 0xE;\r\n  ok \$bit->getbits(4) == 0xD;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x1;\r\n  ok \$bit->getbits(4) == 0x4;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x2;\r\n  ok \$bit->getbits(4) == 0x5;\r\n  ok \$bit->getbits(4) == 0x4;\r\n  ok \$bit->getbits(4) == 0x0;\r\n}\r\n",
# )
ok 35 - CRC: 27124 / 27124
ok 36 - (
#   bless({
#     additional_crc => 15_402,
#     crc16          => 27_124,
#     data_top       => 1924,
#     directory      => "t\377",
#     encoded_size   => 223,
#     filename       => "99_pod.t",
#     header_size    => 82,
#     header_top     => 1842,
#     method         => "lh0",
#     next_header    => 2147,
#     original_size  => 223,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n",
# )
ok 37 - CRC: 3521 / 3521
ok 38 - (
#   bless({
#     additional_crc => 13_236,
#     crc16          => 3521,
#     data_top       => 2237,
#     directory      => "t\377",
#     encoded_size   => 248,
#     filename       => "99_podcoverage.t",
#     header_size    => 90,
#     header_top     => 2147,
#     method         => "lh0",
#     next_header    => 2485,
#     original_size  => 248,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n",
# )
ok 39 - CRC: 51024 / 51024
ok 40 - (
#   bless({
#     additional_crc => 43_767,
#     crc16          => 51_024,
#     data_top       => 83,
#     directory      => "t\377",
#     encoded_size   => 82,
#     filename       => "00_load.t",
#     header_size    => 83,
#     header_top     => 0,
#     method         => "lh0",
#     next_header    => 165,
#     original_size  => 82,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::UseAllModules;\r\n\r\nBEGIN { all_uses_ok(); }\r\n",
# )
ok 41 - CRC: 11654 / 11654
ok 42 - (
#   bless({
#     additional_crc => 60_274,
#     crc16          => 11_654,
#     data_top       => 253,
#     directory      => "t\377",
#     encoded_size   => 1589,
#     filename       => "10_bitstream.t",
#     header_size    => 88,
#     header_top     => 165,
#     method         => "lh0",
#     next_header    => 1842,
#     original_size  => 1589,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More qw( no_plan );\r\nuse Archive::Lha::Bitstream;\r\n\r\nif (1) {\r\n  my \@pack = map { pack \"H2\", \$_ }\r\n             qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n  my \$bit = Archive::Lha::Bitstream->new(\r\n    callback => sub { shift \@pack },\r\n    length   => scalar \@pack,\r\n  );\r\n\r\n  ok \$bit->getbits(8) == 0x00;\r\n  ok \$bit->getbits(8) == 0x05;\r\n  ok \$bit->getbits(8) == 0x2B;\r\n  ok \$bit->getbits(8) == 0x69;\r\n  ok \$bit->getbits(8) == 0x31;\r\n  ok \$bit->getbits(8) == 0xFE;\r\n  ok \$bit->getbits(8) == 0xED;\r\n  ok \$bit->getbits(8) == 0x91;\r\n  ok \$bit->getbits(8) == 0x49;\r\n  ok \$bit->getbits(8) == 0x25;\r\n  ok \$bit->getbits(8) == 0x40;\r\n}\r\n\r\nif (1) {\r\n  my \@pack = map { pack \"H2\", \$_ }\r\n             qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n  my \$bit = Archive::Lha::Bitstream->new(\r\n    callback => sub { shift \@pack },\r\n    length   => scalar \@pack,\r\n  );\r\n\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x0;\r\n  ok \$bit->getbits(4) == 0x5;\r\n  ok \$bit->getbits(4) == 0x2;\r\n  ok \$bit->getbits(4) == 0xB;\r\n  ok \$bit->getbits(4) == 0x6;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x3;\r\n  ok \$bit->getbits(4) == 0x1;\r\n  ok \$bit->getbits(4) == 0xF;\r\n  ok \$bit->getbits(4) == 0xE;\r\n  ok \$bit->getbits(4) == 0xE;\r\n  ok \$bit->getbits(4) == 0xD;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x1;\r\n  ok \$bit->getbits(4) == 0x4;\r\n  ok \$bit->getbits(4) == 0x9;\r\n  ok \$bit->getbits(4) == 0x2;\r\n  ok \$bit->getbits(4) == 0x5;\r\n  ok \$bit->getbits(4) == 0x4;\r\n  ok \$bit->getbits(4) == 0x0;\r\n}\r\n",
# )
ok 43 - CRC: 27124 / 27124
ok 44 - (
#   bless({
#     additional_crc => 15_402,
#     crc16          => 27_124,
#     data_top       => 1924,
#     directory      => "t\377",
#     encoded_size   => 223,
#     filename       => "99_pod.t",
#     header_size    => 82,
#     header_top     => 1842,
#     method         => "lh0",
#     next_header    => 2147,
#     original_size  => 223,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n",
# )
ok 45 - CRC: 3521 / 3521
ok 46 - (
#   bless({
#     additional_crc => 13_236,
#     crc16          => 3521,
#     data_top       => 2237,
#     directory      => "t\377",
#     encoded_size   => 248,
#     filename       => "99_podcoverage.t",
#     header_size    => 90,
#     header_top     => 2147,
#     method         => "lh0",
#     next_header    => 2485,
#     original_size  => 248,
#     os             => ["M", "MS-DOS"],
#     timestamp      => "1197534011",
#   }, "Archive::Lha::Header::Level2"),
#   "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n",
# )
1..46
ok
t\99_pod............1..0 # Skip set TEST_POD to enable this test
skipped
        all skipped: set TEST_POD to enable this test
t\99_podcoverage....1..0 # Skip set TEST_POD to enable this test
skipped
        all skipped: set TEST_POD to enable this test
All tests successful, 2 tests skipped.
Files=4, Tests=67,  1 wallclock secs ( 0.00 cusr +  0.00 csys =  0.00 CPU)