view release on metacpan or  search on metacpan

t/21_compressionBenchmark.t  view on Meta::CPAN

      print $fh "\@read$i pos$start\n$seq\n+\n$qual\n";
    }
    close $fh;

    # Sort the simulated file
    system("gzip -f $RealBin/simulated.fastq"); # gzip first

    system("zcat $RealBin/simulated.fastq.gz | perl -I$RealBin/../lib scripts/sortFastq.pl | gzip -fc > $RealBin/sorted.fastq.gz");
    die if $?;

    my $simulatedSize = (stat("$RealBin/simulated.fastq.gz"))[7];
    my $sortedSize    = (stat("$RealBin/sorted.fastq.gz"))[7];
    my $reduction = sprintf("%0.2f",$sortedSize/$simulatedSize * 100);

    diag "Filesize reduction when sorted: $reduction%";
    cmp_ok($simulatedSize, '>', $sortedSize, "File sizes ($simulatedSize > $sortedSize, $reduction%)");
  }
};