Merge pull request #16 from at-grandpa/chapter12

第12章 設計とメタファー

README.md

@@ -19,3 +19,4 @@
   * [第09章 歩幅の調整](https://github.com/at-grandpa/study-tdd/pull/13)
   * [第10章 テストに聞いてみる](https://github.com/at-grandpa/study-tdd/pull/14)
   * [第11章 不要になったら消す](https://github.com/at-grandpa/study-tdd/pull/15)
+  * [第12章 設計とメタファー](https://github.com/at-grandpa/study-tdd/pull/16)

part01/spec/money_package_spec.cr

@@ -23,4 +23,13 @@ describe MoneyPackage do
       Money.franc(1).currency.should eq "CHF"
     end
   end
+  describe "testSimpleAddition()" do
+    it "足し算を計算できること" do
+      five = Money.dollar(5)
+      sum : Expression = five.plus(five)
+      bank = Bank.new
+      reduced = bank.reduce(sum, "USD")
+      reduced.should eq Money.dollar(10)
+    end
+  end
 end

part01/src/money_package/bank.cr

@@ -0,0 +1,7 @@
+module MoneyPackage
+  class Bank
+    def reduce(source : Expression, to : String)
+      Money.dollar(10)
+    end
+  end
+end

part01/src/money_package/expression.cr

@@ -0,0 +1,4 @@
+module MoneyPackage
+  module Expression
+  end
+end

part01/src/money_package/money.cr

@@ -1,5 +1,9 @@
+require "./expression"
+
 module MoneyPackage
   class Money
+    include Expression
+
     def initialize(@amount : Int32, @currency : String)
     end
 
@@ -15,6 +19,10 @@ module MoneyPackage
       Money.new(@amount * multiplier, @currency)
     end
 
+    def plus(addend : self) : Expression
+      Money.new(@amount + addend.@amount, @currency)
+    end
+
     def self.dollar(amount : Int32) : self
       Money.new(amount, "USD")
     end