Sha256: afff835605d238e0aef30a62bdf19e83312103e47da588831f066ff7ecb906d6

Contents?: true

Size: 1.29 KB

Versions: 293

Compression:

Stored size: 1.29 KB

Contents

#!/usr/bin/env perl
use strict;
use warnings;

use Test::More;
use FindBin;
my $dir;
BEGIN { $dir = $FindBin::Bin . '/' };
use lib $dir;

my $module = $ENV{EXERCISM} ? 'Example' : 'Hamming';

plan tests => 12;

ok -e "${dir}${module}.pm", "Missing $module.pm" or BAIL_OUT "You need to create file: $module.pm";
eval "use $module";
ok !$@, "Cannot load $module" or BAIL_OUT "Cannot load $module. Does it compile? Does it end with 1;?";
can_ok $module, 'compute' or BAIL_OUT "Missing package $module; or missing sub compute()?";

sub dies_like(&$$) {
    my( $code, $expected, $message ) = @_;
    eval { $code->() };
    like $@ => $expected, $message;
}

my $sub = \&{"$module" . "::compute"}; 
is $sub->('A', 'A'), 0, "identical strands";
is $sub->('A', 'G'), 1, "different strands";
is $sub->('AG', 'CT'), 2, "completely different strands";
is $sub->('AT', 'CT'), 1, "one hamming distance";
is $sub->('GGACG', 'GGTCG'), 1, "one hamming distance, longer strands";
is $sub->('GATACA', 'GCATAA'), 4, "4 hamming distance";
is $sub->('GGACGGATTCTG', 'AGGACGGATTCT'), 9, "9 hamming distance";

dies_like { $sub->('AAAG', 'AAA') } 
    qr/DNA strands must be of equal length/, 
    "extra length on 1st strand";

dies_like { $sub->('AAA', 'AAAG') } 
    qr/DNA strands must be of equal length/, 
    "extra length on 2nd strand";

Version data entries

293 entries across 293 versions & 1 rubygems

Version Path
trackler-2.2.1.45 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.44 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.43 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.42 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.41 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.40 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.39 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.38 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.37 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.36 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.35 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.34 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.33 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.32 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.31 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.30 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.29 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.28 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.27 tracks/perl5/exercises/hamming/hamming.t
trackler-2.2.1.26 tracks/perl5/exercises/hamming/hamming.t