@k2works/claude-code-booster 3.0.0 → 3.1.0

package/lib/assets/docs/article/grokkingfp/ruby/part-6.md

@@ -0,0 +1,1410 @@
+# Part VI: 実践的なアプリケーション構築とテスト
+
+本章では、これまで学んだ関数型プログラミングの概念を統合し、実践的なアプリケーションを構築します。また、関数型プログラミングにおけるテスト戦略についても学びます。
+
+---
+
+## 第11章: 実践的なアプリケーション構築
+
+### 11.1 TravelGuide アプリケーション
+
+旅行ガイドアプリケーションを例に、実践的な FP アプリケーションの構築方法を学びます。
+
+```plantuml
+@startuml
+!theme plain
+
+package "TravelGuide Application" {
+  rectangle "Model" {
+    class Location {
+      id: LocationId
+      name: String
+      population: Integer
+    }
+
+    class Attraction {
+      name: String
+      description: String
+      location: Location
+    }
+
+    class TravelGuide {
+      attraction: Attraction
+      subjects: Array[String]
+    }
+  }
+
+  rectangle "Data Access" {
+    interface DataAccess {
+      +find_attractions(): IO[Array[Attraction]]
+      +find_artists_from_location(): IO[Hash]
+      +find_movies_about_location(): IO[Hash]
+    }
+
+    class InMemoryDataAccess
+    class CachedDataAccess
+  }
+
+  DataAccess <|.. InMemoryDataAccess
+  DataAccess <|.. CachedDataAccess
+}
+
+@enduml
+```
+
+### 11.2 ドメインモデルの定義
+
+**ソースファイル**: `app/ruby/src/ch11_application.rb`
+
+```ruby
+# 位置情報を表す値オブジェクト
+class LocationId
+  attr_reader :value
+
+  def initialize(value)
+    @value = value
+  end
+
+  def ==(other)
+    other.is_a?(LocationId) && @value == other.value
+  end
+  alias eql? ==
+
+  def hash
+    @value.hash
+  end
+end
+
+# ロケーション
+Location = Struct.new(:id, :name, :population, keyword_init: true)
+
+# アトラクション（観光地）
+Attraction = Struct.new(:name, :description, :location, keyword_init: true)
+
+# 旅行ガイド
+TravelGuide = Struct.new(:attraction, :subjects, :search_report, keyword_init: true)
+```
+
+### 11.3 データアクセス層の抽象化
+
+外部データソースへのアクセスをモジュールで抽象化します。
+
+```ruby
+module DataAccess
+  def find_attractions(name, ordering, limit)
+    raise NotImplementedError
+  end
+
+  def find_artists_from_location(location_id, limit)
+    raise NotImplementedError
+  end
+
+  def find_movies_about_location(location_id, limit)
+    raise NotImplementedError
+  end
+
+  def find_hotels_near_location(location_id, limit)
+    raise NotImplementedError
+  end
+end
+```
+
+```plantuml
+@startuml
+!theme plain
+
+interface DataAccess {
+  +find_attractions(): IO[Array[Attraction]]
+  +find_artists_from_location(): IO[Hash]
+  +find_movies_about_location(): IO[Hash]
+  +find_hotels_near_location(): IO[Hash]
+}
+
+note right of DataAccess
+  純粋な関数型インターフェース
+  すべての操作は IO でラップ
+end note
+
+class InMemoryDataAccess {
+  -attractions: Array
+  -artists: Hash
+  -movies: Hash
+  +find_attractions(): IO[Array[Attraction]]
+  +find_artists_from_location(): IO[Hash]
+  +find_movies_about_location(): IO[Hash]
+}
+
+class CachedDataAccess {
+  -base_access: DataAccess
+  -cache: Ref[Hash]
+  +find_attractions(): IO[Array[Attraction]]
+  +cache_stats(): Hash
+}
+
+DataAccess <|.. InMemoryDataAccess
+DataAccess <|.. CachedDataAccess
+
+@enduml
+```
+
+### 11.4 InMemoryDataAccess の実装
+
+テストや開発用のインメモリ実装:
+
+```ruby
+class InMemoryDataAccess
+  include DataAccess
+
+  def initialize(attractions: [], artists: {}, movies: {}, hotels: {})
+    @attractions = attractions
+    @artists = artists
+    @movies = movies
+    @hotels = hotels
+  end
+
+  def find_attractions(name, ordering, limit)
+    Ch08IO::IO.delay do
+      filtered = @attractions.select do |a|
+        a.name.downcase.include?(name.downcase)
+      end
+
+      sorted = case ordering
+               when AttractionOrdering::BY_NAME
+                 filtered.sort_by(&:name)
+               when AttractionOrdering::BY_LOCATION_POPULATION
+                 filtered.sort_by { |a| -a.location.population }
+               else
+                 filtered
+               end
+
+      sorted.take(limit)
+    end
+  end
+
+  def find_artists_from_location(location_id, limit)
+    Ch08IO::IO.delay do
+      artists = @artists[location_id] || []
+      { success: true, value: artists.take(limit) }
+    end
+  end
+
+  # 他のメソッドも同様に実装...
+end
+```
+
+### 11.5 Resource によるリソース管理
+
+安全なリソース管理を実現する `Resource` パターンの実装:
+
+**ソースファイル**: `app/ruby/src/ch11_application.rb`
+
+```ruby
+class Resource
+  def initialize(acquire, &release)
+    @acquire = acquire
+    @release = release
+  end
+
+  def self.make(acquire_io, &release)
+    new(acquire_io, &release)
+  end
+
+  def use(&fn)
+    Ch08IO::IO.delay do
+      resource = @acquire.run!
+      begin
+        fn.call(resource)
+      ensure
+        @release&.call(resource)
+      end
+    end
+  end
+
+  def fmap(&fn)
+    Resource.new(
+      @acquire.fmap(&fn),
+      &@release
+    )
+  end
+end
+```
+
+```plantuml
+@startuml
+!theme plain
+
+participant "Application" as app
+participant "Resource" as res
+participant "リソース" as resource
+
+app -> res: Resource.make(acquire) { release }
+res -> resource: acquire (IO を実行)
+resource --> res: リソースを取得
+
+app -> res: use { |r| ... }
+res -> resource: 処理を実行
+resource --> res: 結果
+
+app -> res: release (自動)
+res -> resource: クリーンアップ
+
+note over res
+  Resource は例外が発生しても
+  必ず release を実行する
+  （ensure ブロック）
+end note
+
+@enduml
+```
+
+#### Resource の使用例
+
+```ruby
+# ファイルリソースの例
+file_resource = Resource.make(
+  Ch08IO::IO.delay { File.open('data.txt', 'r') }
+) { |file| file.close }
+
+# 使用
+content = file_resource.use { |file| file.read }.run!
+
+# データベース接続の例
+db_resource = Resource.make(
+  Ch08IO::IO.delay { Database.connect }
+) { |conn| conn.disconnect }
+
+result = db_resource.use { |conn| conn.query('SELECT * FROM users') }.run!
+```
+
+### 11.6 キャッシュの実装
+
+`Ref` を使用したスレッドセーフなキャッシュの実装:
+
+```ruby
+class CachedDataAccess
+  include DataAccess
+
+  def initialize(base_access)
+    @base_access = base_access
+    @attractions_cache = Ch10Concurrency::Ref.new({})
+    @artists_cache = Ch10Concurrency::Ref.new({})
+    @movies_cache = Ch10Concurrency::Ref.new({})
+    @hotels_cache = Ch10Concurrency::Ref.new({})
+  end
+
+  def find_attractions(name, ordering, limit)
+    Ch08IO::IO.delay do
+      key = "#{name}-#{ordering}-#{limit}"
+      cached = @attractions_cache.get.run!
+
+      if cached.key?(key)
+        cached[key]
+      else
+        result = @base_access.find_attractions(name, ordering, limit).run!
+        @attractions_cache.update { |c| c.merge(key => result) }.run!
+        result
+      end
+    end
+  end
+
+  def cache_stats
+    {
+      attractions: @attractions_cache.get.run!.size,
+      artists: @artists_cache.get.run!.size,
+      movies: @movies_cache.get.run!.size,
+      hotels: @hotels_cache.get.run!.size
+    }
+  end
+
+  # 他のメソッドも同様にキャッシュを実装...
+end
+```
+
+```plantuml
+@startuml
+!theme plain
+skinparam activity {
+  BackgroundColor White
+  BorderColor Black
+}
+
+start
+
+:キャッシュキー生成;
+
+:cache.get でキャッシュ確認;
+
+if (キャッシュにデータあり?) then (yes)
+  :キャッシュからデータ返却;
+else (no)
+  :base_access を呼び出し;
+  :結果をキャッシュに保存;
+  :結果を返却;
+endif
+
+stop
+
+note right
+  Ref を使用した
+  スレッドセーフなキャッシュ
+end note
+
+@enduml
+```
+
+### 11.7 FailingDataAccess - テスト用エラー注入
+
+テスト用にエラーを注入できる DataAccess の実装:
+
+```ruby
+class FailingDataAccess
+  include DataAccess
+
+  def initialize(base_access, failing_methods: [])
+    @base_access = base_access
+    @failing_methods = failing_methods
+  end
+
+  def find_artists_from_location(location_id, limit)
+    if @failing_methods.include?(:find_artists_from_location)
+      Ch08IO::IO.pure({ success: false, error: 'Network error: artists service unavailable' })
+    else
+      @base_access.find_artists_from_location(location_id, limit)
+    end
+  end
+
+  # 他のメソッドも同様...
+end
+```
+
+### 11.8 アプリケーションの組み立て
+
+すべてのコンポーネントを組み合わせてアプリケーションを構築します。
+
+```ruby
+def self.travel_guide(data_access, attraction_name)
+  Ch08IO::IO.delay do
+    attractions = data_access.find_attractions(
+      attraction_name,
+      AttractionOrdering::BY_LOCATION_POPULATION,
+      1
+    ).run!
+
+    if attractions.empty?
+      nil
+    else
+      attraction = attractions.first
+      location_id = attraction.location.id
+
+      # 複数のデータソースから情報を取得
+      artists_result = data_access.find_artists_from_location(location_id, 2).run!
+      movies_result = data_access.find_movies_about_location(location_id, 2).run!
+
+      # エラーを収集
+      errors = []
+      errors << artists_result[:error] unless artists_result[:success]
+      errors << movies_result[:error] unless movies_result[:success]
+
+      # 成功した結果を抽出
+      artists = artists_result[:success] ? artists_result[:value] : []
+      movies = movies_result[:success] ? movies_result[:value] : []
+
+      subjects = artists.map(&:name) + movies.map(&:name)
+
+      TravelGuide.new(
+        attraction: attraction,
+        subjects: subjects,
+        search_report: SearchReport.new(
+          attractions_searched: attractions.size,
+          errors: errors
+        )
+      )
+    end
+  end
+end
+```
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "travel_guide 関数" {
+  card "1. アトラクション検索" as step1
+  card "2. アーティスト検索" as step2
+  card "3. 映画検索" as step3
+  card "4. TravelGuide 組み立て" as step4
+
+  step1 --> step2 : attraction
+  step1 --> step3 : location.id
+  step2 --> step4 : artists
+  step3 --> step4 : movies
+}
+
+note bottom
+  IO.delay 内で
+  複数の IO を順次実行
+end note
+
+@enduml
+```
+
+### 11.9 ExtendedTravelGuide
+
+ホテル情報も含む拡張版:
+
+```ruby
+ExtendedTravelGuide = Struct.new(
+  :attraction, :artists, :movies, :hotels, :search_report,
+  keyword_init: true
+)
+
+def self.extended_travel_guide(data_access, attraction_name)
+  Ch08IO::IO.delay do
+    attractions = data_access.find_attractions(
+      attraction_name,
+      AttractionOrdering::BY_LOCATION_POPULATION,
+      1
+    ).run!
+
+    if attractions.empty?
+      nil
+    else
+      attraction = attractions.first
+      location_id = attraction.location.id
+
+      # 並列で取得することも可能
+      artists_result = data_access.find_artists_from_location(location_id, 5).run!
+      movies_result = data_access.find_movies_about_location(location_id, 5).run!
+      hotels_result = data_access.find_hotels_near_location(location_id, 5).run!
+
+      errors = []
+      errors << artists_result[:error] unless artists_result[:success]
+      errors << movies_result[:error] unless movies_result[:success]
+      errors << hotels_result[:error] unless hotels_result[:success]
+
+      ExtendedTravelGuide.new(
+        attraction: attraction,
+        artists: artists_result[:success] ? artists_result[:value] : [],
+        movies: movies_result[:success] ? movies_result[:value] : [],
+        hotels: hotels_result[:success] ? hotels_result[:value] : [],
+        search_report: SearchReport.new(
+          attractions_searched: attractions.size,
+          errors: errors
+        )
+      )
+    end
+  end
+end
+```
+
+---
+
+## 第12章: テスト戦略
+
+### 12.1 関数型プログラミングのテスト
+
+関数型プログラミングでは、純粋関数のおかげでテストが非常に簡単になります。
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "テストの種類" {
+  rectangle "単体テスト" as unit {
+    card "純粋関数のテスト"
+    card "高速・独立"
+  }
+
+  rectangle "プロパティベーステスト" as property {
+    card "ランダム入力"
+    card "不変条件の検証"
+  }
+
+  rectangle "統合テスト" as integration {
+    card "コンポーネント連携"
+    card "スタブ/モック使用"
+  }
+}
+
+unit --> property : 補完
+property --> integration : 補完
+
+@enduml
+```
+
+### 12.2 SearchReport の導入
+
+**ソースファイル**: `app/ruby/src/ch11_application.rb`
+
+テスト可能性を高めるため、`SearchReport` を導入します。
+
+```ruby
+class SearchReport
+  attr_reader :attractions_searched, :errors
+
+  def initialize(attractions_searched:, errors:)
+    @attractions_searched = attractions_searched
+    @errors = errors.freeze
+  end
+
+  def self.empty
+    new(attractions_searched: 0, errors: [])
+  end
+
+  def add_error(error)
+    SearchReport.new(
+      attractions_searched: @attractions_searched,
+      errors: @errors + [error]
+    )
+  end
+
+  def with_attractions_count(count)
+    SearchReport.new(
+      attractions_searched: count,
+      errors: @errors
+    )
+  end
+end
+```
+
+```plantuml
+@startuml
+!theme plain
+
+class TravelGuide {
+  attraction: Attraction
+  subjects: Array[String]
+  search_report: SearchReport
+}
+
+class SearchReport {
+  attractions_searched: Integer
+  errors: Array[String]
+  +empty(): SearchReport
+  +add_error(error): SearchReport
+}
+
+TravelGuide --> SearchReport
+
+note right of SearchReport
+  検索の統計情報と
+  エラー情報を保持
+  イミュータブルに更新
+end note
+
+@enduml
+```
+
+### 12.3 テストスタブの実装
+
+**ソースファイル**: `app/ruby/src/ch12_testing.rb`
+
+```ruby
+class TestDataAccess
+  include Ch11Application::DataAccess
+
+  def initialize(
+    attractions: [],
+    artists_by_location: {},
+    movies_by_location: {},
+    hotels_by_location: {},
+    artist_errors: {},
+    movie_errors: {},
+    hotel_errors: {}
+  )
+    @attractions = attractions
+    @artists_by_location = artists_by_location
+    @movies_by_location = movies_by_location
+    @hotels_by_location = hotels_by_location
+    @artist_errors = artist_errors
+    @movie_errors = movie_errors
+    @hotel_errors = hotel_errors
+  end
+
+  def find_attractions(name, ordering, limit)
+    Ch08IO::IO.delay do
+      filtered = @attractions.select { |a| a.name.downcase.include?(name.downcase) }
+      sorted = case ordering
+               when Ch11Application::AttractionOrdering::BY_NAME
+                 filtered.sort_by(&:name)
+               when Ch11Application::AttractionOrdering::BY_LOCATION_POPULATION
+                 filtered.sort_by { |a| -a.location.population }
+               else
+                 filtered
+               end
+      sorted.take(limit)
+    end
+  end
+
+  def find_artists_from_location(location_id, limit)
+    Ch08IO::IO.delay do
+      if @artist_errors[location_id]
+        { success: false, error: @artist_errors[location_id] }
+      else
+        artists = @artists_by_location[location_id] || []
+        { success: true, value: artists.take(limit) }
+      end
+    end
+  end
+
+  # 他のメソッドも同様...
+end
+```
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "テスト構成" {
+  rectangle "本番" as prod {
+    interface "DataAccess" as da1
+    class "WikidataDataAccess" as wda
+    da1 <|.. wda
+  }
+
+  rectangle "テスト" as test {
+    interface "DataAccess" as da2
+    class "TestDataAccess" as tda
+    da2 <|.. tda
+  }
+}
+
+note bottom of prod
+  実際の API に接続
+end note
+
+note bottom of test
+  テストデータを返す
+  IO.pure/delay で即座に結果
+end note
+
+@enduml
+```
+
+### 12.4 テストデータビルダー
+
+テストデータを簡単に構築するためのビルダーパターン:
+
+```ruby
+class LocationBuilder
+  def initialize
+    @id = Ch11Application::LocationId.new("Q#{rand(1000)}")
+    @name = 'Test City'
+    @population = 100_000
+  end
+
+  def with_id(id)
+    @id = id.is_a?(Ch11Application::LocationId) ? id : Ch11Application::LocationId.new(id)
+    self
+  end
+
+  def with_name(name)
+    @name = name
+    self
+  end
+
+  def with_population(population)
+    @population = population
+    self
+  end
+
+  def build
+    Ch11Application::Location.new(id: @id, name: @name, population: @population)
+  end
+end
+
+class AttractionBuilder
+  def initialize
+    @name = 'Test Attraction'
+    @description = 'A test attraction'
+    @location = LocationBuilder.new.build
+  end
+
+  def with_name(name)
+    @name = name
+    self
+  end
+
+  def with_location(location)
+    @location = location
+    self
+  end
+
+  def build
+    Ch11Application::Attraction.new(
+      name: @name,
+      description: @description,
+      location: @location
+    )
+  end
+end
+```
+
+#### 使用例
+
+```ruby
+# シンプルなロケーション
+location = LocationBuilder.new.build
+
+# カスタマイズしたロケーション
+sydney = LocationBuilder.new
+  .with_name('Sydney')
+  .with_population(5_000_000)
+  .build
+
+# アトラクション with カスタムロケーション
+attraction = AttractionBuilder.new
+  .with_name('Opera House')
+  .with_location(sydney)
+  .build
+```
+
+### 12.5 プロパティベーステスト
+
+ランダムな入力でプロパティ（不変条件）を検証するテスト手法:
+
+```ruby
+module Gen
+  def self.string(length = 10)
+    chars = ('a'..'z').to_a + ('A'..'Z').to_a
+    Array.new(length) { chars.sample }.join
+  end
+
+  def self.int(min = 0, max = 100)
+    rand(min..max)
+  end
+
+  def self.positive_int(max = 1_000_000)
+    rand(1..max)
+  end
+
+  def self.boolean
+    [true, false].sample
+  end
+
+  def self.one_of(*options)
+    options.sample
+  end
+
+  def self.list_of(size = 5, &generator)
+    Array.new(size) { generator.call }
+  end
+
+  def self.location
+    Ch11Application::Location.new(
+      id: location_id,
+      name: string(8),
+      population: positive_int(50_000_000)
+    )
+  end
+
+  def self.attraction
+    Ch11Application::Attraction.new(
+      name: string(15),
+      description: option { string(50) },
+      location: location
+    )
+  end
+end
+```
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "プロパティベーステスト" {
+  card "Gen[A]" as gen
+  card "ランダムデータ生成" as random
+  card "プロパティ検証" as verify
+  card "100回以上テスト" as repeat
+
+  gen --> random
+  random --> verify
+  verify --> repeat
+  repeat --> random : 繰り返し
+}
+
+note bottom
+  ランダムな入力で
+  不変条件を検証
+end note
+
+@enduml
+```
+
+### 12.6 PropertyTest フレームワーク
+
+```ruby
+class PropertyTest
+  attr_reader :name, :failures
+
+  def initialize(name, iterations: 100)
+    @name = name
+    @iterations = iterations
+    @failures = []
+  end
+
+  def for_all(*generators, &property)
+    @iterations.times do |i|
+      inputs = generators.map(&:call)
+      begin
+        result = property.call(*inputs)
+        unless result
+          @failures << { iteration: i, inputs: inputs, error: 'Property returned false' }
+        end
+      rescue StandardError => e
+        @failures << { iteration: i, inputs: inputs, error: e.message }
+      end
+    end
+    self
+  end
+
+  def passed?
+    @failures.empty?
+  end
+
+  def summary
+    if passed?
+      "#{@name}: PASSED (#{@iterations} iterations)"
+    else
+      "#{@name}: FAILED (#{@failures.size}/#{@iterations} failures)"
+    end
+  end
+end
+```
+
+#### 使用例
+
+```ruby
+# プロパティ: フィルタ結果は入力以下
+test = PropertyTest.new('filter returns subset', iterations: 100)
+test.for_all(
+  -> { Gen.list_of(10) { Gen.location } },
+  -> { Gen.positive_int(10_000_000) }
+) do |locations, min_pop|
+  result = filter_popular_locations(locations, min_pop)
+  result.size <= locations.size
+end
+
+puts test.summary
+# => "filter returns subset: PASSED (100 iterations)"
+```
+
+### 12.7 共通プロパティの定義
+
+再利用可能なプロパティを定義:
+
+```ruby
+module Properties
+  # フィルタ結果は入力以下
+  def self.filter_bounded?(input, result)
+    result.size <= input.size
+  end
+
+  # すべての結果が述語を満たす
+  def self.filter_satisfies?(result, &predicate)
+    result.all?(&predicate)
+  end
+
+  # 制限が守られている
+  def self.limit_respected?(result, limit)
+    result.size <= limit
+  end
+
+  # 順序が保持されている
+  def self.ordering_preserved?(result, &compare)
+    result.each_cons(2).all? { |a, b| compare.call(a, b) }
+  end
+
+  # エラー数が制限内
+  def self.errors_bounded?(search_report, max_errors)
+    search_report.errors.size <= max_errors
+  end
+end
+```
+
+### 12.8 純粋関数のテスト
+
+純粋関数は入力と出力の関係のみをテストすれば良いため、テストが簡単です。
+
+```ruby
+# テスト対象の純粋関数
+def filter_popular_locations(locations, min_population)
+  locations.select { |loc| loc.population >= min_population }
+end
+
+def sort_attractions_by_name(attractions)
+  attractions.sort_by(&:name)
+end
+
+def average_rating(hotels)
+  return nil if hotels.empty?
+  hotels.sum(&:rating) / hotels.size.to_f
+end
+```
+
+#### RSpec でのテスト
+
+```ruby
+RSpec.describe '.filter_popular_locations' do
+  it 'filters locations by population' do
+    loc1 = LocationBuilder.new.with_population(100_000).build
+    loc2 = LocationBuilder.new.with_population(500_000).build
+    loc3 = LocationBuilder.new.with_population(200_000).build
+
+    result = Ch12Testing.filter_popular_locations([loc1, loc2, loc3], 150_000)
+
+    expect(result.size).to eq(2)
+    expect(result.map(&:population)).to all(be >= 150_000)
+  end
+
+  # プロパティベーステスト
+  it 'always returns subset of input' do
+    test = PropertyTest.new('filter returns subset', iterations: 50)
+    test.for_all(
+      -> { Gen.list_of(10) { Gen.location } },
+      -> { Gen.positive_int(10_000_000) }
+    ) do |locations, min_pop|
+      result = Ch12Testing.filter_popular_locations(locations, min_pop)
+      Properties.filter_bounded?(locations, result)
+    end
+
+    expect(test.passed?).to be true
+  end
+end
+```
+
+### 12.9 統合テスト
+
+コンポーネントを組み合わせた統合テスト:
+
+```ruby
+RSpec.describe 'TravelGuide integration tests' do
+  it 'works with TestDataAccess' do
+    location = Fixtures.sydney
+    attraction = Fixtures.sydney_opera_house
+
+    data_access = TestDataAccess.new(
+      attractions: [attraction],
+      artists_by_location: { location.id => Fixtures.sydney_artists },
+      movies_by_location: { location.id => Fixtures.sydney_movies },
+      hotels_by_location: { location.id => Fixtures.sydney_hotels }
+    )
+
+    guide = Ch11Application.travel_guide(data_access, 'Sydney').run!
+
+    Assertions.assert_travel_guide_valid(guide)
+    Assertions.assert_no_errors(guide)
+    Assertions.assert_subjects_present(guide)
+  end
+
+  it 'handles errors gracefully' do
+    location = Fixtures.sydney
+    attraction = Fixtures.sydney_opera_house
+
+    data_access = TestDataAccess.new(
+      attractions: [attraction],
+      artist_errors: { location.id => 'Network error' },
+      movie_errors: { location.id => 'Timeout' }
+    )
+
+    guide = Ch11Application.travel_guide(data_access, 'Sydney').run!
+
+    Assertions.assert_travel_guide_valid(guide)
+    Assertions.assert_has_errors(guide, count: 2)
+  end
+end
+```
+
+### 12.10 テストフィクスチャ
+
+事前に構築された再利用可能なテストデータ:
+
+```ruby
+module Fixtures
+  def self.sydney
+    @sydney ||= begin
+      id = Ch11Application::LocationId.new('Q60')
+      Ch11Application::Location.new(id: id, name: 'Sydney', population: 5_312_000)
+    end
+  end
+
+  def self.sydney_opera_house
+    @sydney_opera_house ||= Ch11Application::Attraction.new(
+      name: 'Sydney Opera House',
+      description: 'Iconic performing arts venue',
+      location: sydney
+    )
+  end
+
+  def self.sydney_artists
+    @sydney_artists ||= [
+      Ch11Application::MusicArtist.new(name: 'AC/DC', genre: 'Rock'),
+      Ch11Application::MusicArtist.new(name: 'Sia', genre: 'Pop')
+    ]
+  end
+
+  def self.complete_data_access
+    @complete_data_access ||= TestDataAccess.new(
+      attractions: [sydney_opera_house],
+      artists_by_location: { sydney.id => sydney_artists },
+      movies_by_location: { sydney.id => sydney_movies },
+      hotels_by_location: { sydney.id => sydney_hotels }
+    )
+  end
+end
+```
+
+### 12.11 アサーションヘルパー
+
+テストアサーションを簡潔に書くためのヘルパー:
+
+```ruby
+module Assertions
+  def self.assert_travel_guide_valid(guide)
+    raise 'Guide is nil' if guide.nil?
+    raise 'Attraction is nil' if guide.attraction.nil?
+    raise 'Search report is nil' if guide.search_report.nil?
+    true
+  end
+
+  def self.assert_no_errors(guide)
+    errors = guide.search_report.errors
+    raise "Expected no errors but got: #{errors}" unless errors.empty?
+    true
+  end
+
+  def self.assert_has_errors(guide, count: nil)
+    errors = guide.search_report.errors
+    raise 'Expected errors but got none' if errors.empty?
+    raise "Expected #{count} errors but got #{errors.size}" if count && errors.size != count
+    true
+  end
+end
+```
+
+### 12.12 テストピラミッド
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "テストピラミッド" {
+  rectangle "E2E テスト\n(少数)" as e2e
+  rectangle "統合テスト\n(中程度)" as integration
+  rectangle "単体テスト + プロパティテスト\n(多数)" as unit
+}
+
+e2e -[hidden]down- integration
+integration -[hidden]down- unit
+
+note right of unit
+  FP では純粋関数が多いため
+  単体テストが非常に効果的
+end note
+
+@enduml
+```
+
+---
+
+## まとめ
+
+### Part VI で学んだこと
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "Part VI: 実践的なアプリケーション" {
+  rectangle "第11章" as ch11 {
+    card "ドメインモデル設計"
+    card "DataAccess 抽象化"
+    card "Resource 管理"
+    card "キャッシュ実装"
+  }
+
+  rectangle "第12章" as ch12 {
+    card "SearchReport"
+    card "スタブ/テストダブル"
+    card "プロパティベーステスト"
+    card "ビルダーパターン"
+  }
+}
+
+ch11 --> ch12
+
+@enduml
+```
+
+### 主要コンポーネント
+
+| コンポーネント | 用途 |
+|----------------|------|
+| `DataAccess` | 外部データソースへのアクセス抽象化 |
+| `InMemoryDataAccess` | テスト・開発用のインメモリ実装 |
+| `CachedDataAccess` | Ref を使ったキャッシュ層 |
+| `FailingDataAccess` | エラー注入用のラッパー |
+| `Resource` | 安全なリソース管理 |
+| `SearchReport` | 検索統計とエラー追跡 |
+| `TestDataAccess` | テスト用スタブ実装 |
+| `LocationBuilder` | テストデータビルダー |
+| `PropertyTest` | プロパティベーステスト |
+
+### Ruby と Scala の対応
+
+| Scala | Ruby |
+|-------|------|
+| `trait DataAccess` | `module DataAccess` |
+| `case class` | `Struct` |
+| `opaque type LocationId` | `LocationId` クラス |
+| `Resource[IO, A]` | `Resource` クラス |
+| `Either[String, A]` | `{ success: bool, value/error: ... }` |
+| `ScalaCheck Gen` | `Gen` モジュール |
+| `property` | `PropertyTest` |
+
+### キーポイント
+
+1. **抽象化の重要性**: DataAccess モジュールで外部依存を抽象化
+2. **Resource でリソース管理**: ensure ブロックで安全なリソースの取得と解放
+3. **Ref でキャッシュ**: スレッドセーフな状態管理
+4. **Hash でエラー処理**: `{ success:, value/error: }` で明示的なエラーハンドリング
+5. **SearchReport**: テスト可能性と可観測性の向上
+6. **スタブ**: 外部依存を差し替えてテスト
+7. **プロパティベーステスト**: ランダム入力で不変条件を検証
+8. **ビルダーパターン**: テストデータの柔軟な構築
+
+### 学習の総括
+
+```plantuml
+@startuml
+!theme plain
+left to right direction
+
+rectangle "FP の学習パス" {
+  card "Part I\n基礎" as p1
+  card "Part II\nイミュータブル操作" as p2
+  card "Part III\n型による安全性" as p3
+  card "Part IV\nIO/Stream" as p4
+  card "Part V\n並行処理" as p5
+  card "Part VI\n実践" as p6
+}
+
+p1 --> p2
+p2 --> p3
+p3 --> p4
+p4 --> p5
+p5 --> p6
+
+@enduml
+```
+
+---
+
+## 演習問題
+
+### 問題 1: DataAccess の拡張
+
+以下の要件で `DataAccess` を拡張してください:
+- 新しいメソッド `find_restaurants_near_location` を追加
+- 戻り値は `IO[{ success: Boolean, value/error: ... }]`
+
+<details>
+<summary>解答</summary>
+
+```ruby
+Restaurant = Struct.new(:name, :cuisine, :rating, :location, keyword_init: true)
+
+module DataAccess
+  # 既存のメソッド...
+
+  def find_restaurants_near_location(location_id, limit)
+    raise NotImplementedError
+  end
+end
+
+class InMemoryDataAccess
+  def initialize(attractions: [], artists: {}, movies: {}, hotels: {}, restaurants: {})
+    # ...
+    @restaurants = restaurants
+  end
+
+  def find_restaurants_near_location(location_id, limit)
+    Ch08IO::IO.delay do
+      restaurants = @restaurants[location_id] || []
+      { success: true, value: restaurants.take(limit) }
+    end
+  end
+end
+
+# テスト用スタブ
+class TestDataAccess
+  def initialize(restaurants_by_location: {}, restaurant_errors: {}, **options)
+    # ...
+    @restaurants_by_location = restaurants_by_location
+    @restaurant_errors = restaurant_errors
+  end
+
+  def find_restaurants_near_location(location_id, limit)
+    Ch08IO::IO.delay do
+      if @restaurant_errors[location_id]
+        { success: false, error: @restaurant_errors[location_id] }
+      else
+        restaurants = @restaurants_by_location[location_id] || []
+        { success: true, value: restaurants.take(limit) }
+      end
+    end
+  end
+end
+```
+
+</details>
+
+### 問題 2: プロパティベーステスト
+
+以下の関数に対するプロパティベーステストを書いてください:
+
+```ruby
+def filter_popular_locations(locations, min_population)
+  locations.select { |loc| loc.population >= min_population }
+end
+```
+
+<details>
+<summary>解答</summary>
+
+```ruby
+# プロパティ1: 結果は入力以下の要素数
+test1 = PropertyTest.new('result size <= input size', iterations: 100)
+test1.for_all(
+  -> { Gen.list_of(10) { Gen.location } },
+  -> { Gen.positive_int(10_000_000) }
+) do |locations, min_pop|
+  result = filter_popular_locations(locations, min_pop)
+  result.size <= locations.size
+end
+
+# プロパティ2: 結果のすべての要素は条件を満たす
+test2 = PropertyTest.new('all results meet minimum', iterations: 100)
+test2.for_all(
+  -> { Gen.list_of(10) { Gen.location } },
+  -> { Gen.positive_int(10_000_000) }
+) do |locations, min_pop|
+  result = filter_popular_locations(locations, min_pop)
+  result.all? { |loc| loc.population >= min_pop }
+end
+
+# プロパティ3: 条件を満たす要素はすべて結果に含まれる
+test3 = PropertyTest.new('all qualifying in result', iterations: 100)
+test3.for_all(
+  -> { Gen.list_of(10) { Gen.location } },
+  -> { Gen.positive_int(10_000_000) }
+) do |locations, min_pop|
+  result = filter_popular_locations(locations, min_pop)
+  qualifying = locations.select { |loc| loc.population >= min_pop }
+  qualifying.all? { |loc| result.include?(loc) }
+end
+```
+
+</details>
+
+### 問題 3: Resource の実装
+
+ファイルを安全に読み取る `Resource` を実装してください。
+
+<details>
+<summary>解答</summary>
+
+```ruby
+def file_resource(path)
+  Resource.make(
+    Ch08IO::IO.delay { File.open(path, 'r') }
+  ) { |file| file.close }
+end
+
+def read_lines(path)
+  file_resource(path).use do |file|
+    file.readlines.map(&:chomp)
+  end
+end
+
+# 使用例
+lines = read_lines('data.txt').run!
+puts "Read #{lines.size} lines"
+```
+
+</details>
+
+### 問題 4: テストシナリオの作成
+
+`create_test_scenario` と `create_failing_scenario` を使って、以下のテストを実装してください:
+
+1. 正常系: すべてのデータが取得できるケース
+2. 部分失敗: アーティスト取得のみ失敗するケース
+
+<details>
+<summary>解答</summary>
+
+```ruby
+RSpec.describe 'TravelGuide scenarios' do
+  it 'handles complete success' do
+    data_access = Ch12Testing.create_test_scenario
+    guide = Ch11Application.travel_guide(data_access, 'Test').run!
+
+    expect(guide).not_to be_nil
+    expect(guide.search_report.errors).to be_empty
+    expect(guide.subjects).not_to be_empty
+  end
+
+  it 'handles partial failure' do
+    location = Ch12Testing::LocationBuilder.new.build
+    attraction = Ch12Testing::AttractionBuilder.new.with_location(location).build
+
+    data_access = Ch12Testing.create_failing_scenario(
+      location: location,
+      attraction: attraction,
+      artist_error: 'Service unavailable'
+    )
+
+    guide = Ch11Application.travel_guide(data_access, 'Test').run!
+
+    expect(guide).not_to be_nil
+    expect(guide.search_report.errors.size).to eq(1)
+    expect(guide.search_report.errors.first).to include('Service unavailable')
+  end
+end
+```
+
+</details>
+
+---
+
+## シリーズ全体の総括
+
+本シリーズでは、「Grokking Functional Programming」の内容に沿って、関数型プログラミングの基礎から実践的なアプリケーション構築までを Ruby で学びました。
+
+### 学んだ主な概念
+
+| Part | 章 | 主な概念 |
+|------|-----|----------|
+| I | 1-2 | 純粋関数、参照透過性 |
+| II | 3-5 | イミュータブルデータ、高階関数、flatMap |
+| III | 6-7 | Option (nil 安全)、Either (結果型)、ADT |
+| IV | 8-9 | IO モナド、Stream |
+| V | 10 | 並行処理、Ref、FiberHandle |
+| VI | 11-12 | 実践アプリケーション、テスト |
+
+### 関数型プログラミングの利点
+
+1. **予測可能性**: 純粋関数は同じ入力に対して常に同じ出力
+2. **テスト容易性**: 副作用がないためテストが簡単
+3. **合成可能性**: 小さな関数を組み合わせて複雑な処理を構築
+4. **並行安全性**: イミュータブルデータは競合状態を防ぐ
+5. **型安全性**: Option、Either でエラーを明示的に表現
+
+### 次のステップ
+
+- dry-rb ライブラリのより高度な機能を学ぶ
+- dry-monads の実践的な使用方法を深める
+- 実際のプロジェクトで FP パターンを適用する
+- 他の FP 言語 (Haskell, Scala) との比較で理解を深める