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