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 ) );
   },
 },