Select Code to Download

use strict;
use warnings;
...
    my $trial_wt = .3 * ($_ -5);
    is( total($trial_wt), refrence($trial_wt), "Weight: $trial_wt");
}

1..11
ok 1 - Weight: -1.5
...
ok 9 - Weight: 0.9
ok 10 - Weight: 1.2
ok 11 - Weight: 1.5