view release on metacpan or  search on metacpan

t/dsrc.t  view on Meta::CPAN

        $passed += $orig_qual eq $read->get_quality;

        my $rec = Compress::DSRC::Record->new();
        $rec->set_tag( $orig_id );
        $rec->set_sequence( $orig_seq );
        $rec->set_quality( $orig_qual );
        $rec->set_plus('+');
        $w->write_record( $rec );
    }
    ok( $read_count > 0 && $read_count*4 == $passed,
        "streaming records identical" );
    $r->finish();
    $w->finish();

    ok( $m->decompress('bee.dsrc' => 'bee.fastq', 1),
        "one-shot decompression 4" );

    my $md5_bee = Digest::MD5->new();
    open my $fh_bee, '<:raw', 'bee.fastq';
    $md5_bee->addfile($fh_bee);
    ok( $orig eq $md5_bee->hexdigest, "streamed files are identical" );