Changeset 3413 for lang/perl/Archive-Lha/trunk/t/20_decode.t

Timestamp:

12/21/07 18:32:34 (13 months ago)

Author:

charsbar

Message:

lang/perl/Archive-Lha: xs -> trunk

Files:

• lang/perl/Archive-Lha/trunk/t/20_decode.t (modified) (1 diff)

lang/perl/Archive-Lha/trunk/t/20_decode.t

@@ -27 +27 @@
       write  => sub { $decoded .= join '', @_ },
     );
-    $decoder->decode;
+    my $crc = $decoder->decode;
+    if ( $header->{crc16} ) {
+      ok $crc == $header->{crc16}, "CRC: $crc / $$header{crc16}";
+    }
 
     if ( defined $value ) {