view release on metacpan or  search on metacpan

t/01.calc_perfect_christmas_tree.t  view on Meta::CPAN

};

subtest 'perfect christmas tree that is 234.56cm' => sub {
    %got = calc_perfect_christmas_tree(234.56);
    ok( $got{'number_of_baubles'} == 48 );
    ok( sprintf( '%5.7f', $got{'star_or_fairy_height'} ) == 23.4560000 );
    ok( sprintf( '%5.7f', $got{'tinsel_length'} ) == 1197.4494558 );
    ok( sprintf( '%5.7f', $got{'lights_length'} ) == 736.8919728 );
};

throws_ok { calc_perfect_christmas_tree(0) }
    qr/Tree height must be a number greater than zero./,
    'Give zero to function.';

throws_ok { calc_perfect_christmas_tree(-1) }
    qr/Tree height must be a number greater than zero./,
    'Give nagative number to function';

done_testing();