Money Test

Describe MoneyTest here.
 { package MoneyTest?;
    use base 'Test::Class';
    use Test::More;

my ( $chf_12, $chf_14, $usd_28 );

sub make_fixtures : Test( setup ) { $chf_12 = Money->new( CHF => 12 ); $chf_14 = Money->new( CHF => 14 ); $usd_28 = Money->new( USD => 28 ); }

sub simple_add : Test { is_deeply( $chf_12+$chf_14, Money->new( CHF => 26 ) ); }

sub money_bag : Test { is_deeply( $chf_12+$usd_28+$chf_14, Money->new( CHF=>26, USD=>28 ) ); } }

EditText of this page (last edited May 12, 2010) or FindPage with title or text search