Compress-DSRC
view release on metacpan or search on metacpan
$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" );
( run in 0.240 second using v1.01-cache-2.11-cpan-4d50c553e7e )