---
generated_at: 2026-02-19 18:30:00
metrics:
  claims_total: 40
  claims_with_evidence: 40
  claims_without_evidence: 0
confidence_derived: 1.00
---

# 根拠レポート：modules-lang-ada 単体テストケース一覧

## 本レポートについて

### 目的
本レポートは、生成された設計書・ドキュメントの信頼性を検証し、人間レビュアーが効率的にレビューできるようにすることを目的としています。

### チェック方法
以下の観点でドキュメントの内容（Claim：主張）を検証しています：

1. **根拠の有無確認**：各主張に対して、ソースコード・既存設計書・要件定義書などの根拠（Evidence）が存在するか
2. **根拠との整合性**：主張の内容が根拠と矛盾していないか
3. **網羅性**：参照すべき情報源を適切にカバーしているか

### 信頼度スコアの算出
- **confidence_derived** = 根拠あり件数 / 総主張件数
- 状態「○」：根拠あり、「△」：根拠不足または要確認

### 本レポートの使い方
1. まず「サマリー」で全体の信頼度と優先レビュー項目を確認
2. 「Claims と根拠の対応」で △ の項目を重点的にレビュー
3. 「不足情報」で補完が必要な情報源を確認

---

## 1) サマリー（まず見るところ）
- 総合信頼度（derived）：**1.00**
  - 根拠あり：40 / 40、根拠なし：0
- 優先レビュー（高）
  1. なし：全テストケースにソースコードの根拠あり

## 2) 参照した情報（Evidence一覧）
> ここに「実在するもの」だけ列挙。抽出フェーズで付けたIDをそのまま出す。

- E-01: `modules/lang/ada/autoload.el` - 自動ロード関数定義（+ada--barf-unless-project、+ada/alr-build、+ada/alr-run、+ada/alr-clean）
- E-02: `modules/lang/ada/config.el` - 設定ファイル（+ada-common-config、+gpr-common-config、+ada--suppress-side-effects-a、use-package設定）
- E-03: `modules/lang/ada/doctor.el` - 環境診断（alr、ada_language_serverの存在チェック）
- E-04: `modules/lang/ada/packages.el` - パッケージ宣言（ada-mode、gpr-mode、ada-ts-mode、gpr-ts-mode）

## 3) Claims と根拠の対応（レビューの主戦場）

### autoload.el関連テストケース

| Claim ID | 主張 | Evidence | 状態 |
|---|---|---|---|
| C-01 | +ada--barf-unless-projectがalire.tomlの存在をチェック | E-01 (L3-5: locate-dominating-file使用) | ○ |
| C-02 | alire.toml不在時にuser-errorをスロー | E-01 (L5: user-error呼び出し) | ○ |
| C-03 | ルートディレクトリでのエラー処理 | E-01 (L4: locate-dominating-fileの動作仕様) | ○ |
| C-04 | ネストディレクトリからの検出 | E-01 (L4: locate-dominating-fileの再帰検索) | ○ |
| C-05 | +ada/alr-buildがcompile関数を呼び出す | E-01 (L9-13: compile "alr build") | ○ |
| C-06 | +ada/alr-buildがプロジェクトチェックを行う | E-01 (L12: +ada--barf-unless-project呼び出し) | ○ |
| C-07 | +ada/alr-runがcompile関数を呼び出す | E-01 (L16-20: compile "alr run") | ○ |
| C-08 | +ada/alr-runがプロジェクトチェックを行う | E-01 (L19: +ada--barf-unless-project呼び出し) | ○ |
| C-09 | +ada/alr-cleanがcompile関数を呼び出す | E-01 (L23-27: compile "alr clean") | ○ |
| C-10 | +ada/alr-cleanがプロジェクトチェックを行う | E-01 (L26: +ada--barf-unless-project呼び出し) | ○ |

### config.el関連テストケース

| Claim ID | 主張 | Evidence | 状態 |
|---|---|---|---|
| C-11 | +ada-common-configが+lsp時にフックを追加 | E-02 (L7-8: modulep! +lspチェックとadd-hook) | ○ |
| C-12 | +ada-common-configが+lsp無効時にフックを追加しない | E-02 (L7: when条件分岐) | ○ |
| C-13 | +ada-common-configがnewlineをリマップ | E-02 (L11: remap newline) | ○ |
| C-14 | +ada-common-configがlocalleaderキーを設定 | E-02 (L14-16: localleaderバインド) | ○ |
| C-15 | 無効なmodeシンボルの堅牢性 | E-02 (L10: formatによる動的キーマップ取得) | ○ |
| C-16 | +gpr-common-configが+lsp時にフックを追加 | E-02 (L20-21: modulep! +lspチェックとadd-hook) | ○ |
| C-17 | +gpr-common-configが+lsp無効時にフックを追加しない | E-02 (L20: when条件分岐) | ○ |
| C-18 | +gpr-common-configがnewlineをリマップ | E-02 (L24: remap newline) | ○ |
| C-19 | +ada--suppress-side-effects-aがtreesit-language-source-alistをkill | E-02 (L54: kill-local-variable) | ○ |
| C-20 | +ada--suppress-side-effects-aがeglot-server-programsをkill | E-02 (L55: kill-local-variable) | ○ |
| C-21 | グローバル値が保持される | E-02 (L54-55: kill-local-variableはローカル値のみ削除) | ○ |

### doctor.el関連テストケース

| Claim ID | 主張 | Evidence | 状態 |
|---|---|---|---|
| C-22 | alr存在時に警告なし | E-03 (L3-4: unless条件) | ○ |
| C-23 | alr不在時に警告 | E-03 (L4: warn!呼び出し) | ○ |
| C-24 | +lsp有効かつada_language_server存在時に警告なし | E-03 (L6-8: when modulep! +lspとunless) | ○ |
| C-25 | +lsp有効かつada_language_server不在時に警告 | E-03 (L8: warn!呼び出し) | ○ |
| C-26 | +lsp無効時にチェックスキップ | E-03 (L6: when条件でスキップ) | ○ |

### packages.el関連テストケース

| Claim ID | 主張 | Evidence | 状態 |
|---|---|---|---|
| C-27 | ada-modeパッケージ宣言 | E-04 (L4: package! ada-mode) | ○ |
| C-28 | gpr-modeパッケージ宣言 | E-04 (L7: package! gpr-mode) | ○ |
| C-29 | +tree-sitter有効時のada-ts-mode宣言 | E-04 (L5-6: when条件とpackage!) | ○ |
| C-30 | +tree-sitter無効時のada-ts-modeスキップ | E-04 (L5: when条件分岐) | ○ |
| C-31 | +tree-sitter有効時のgpr-ts-mode宣言 | E-04 (L8-9: when条件とpackage!) | ○ |
| C-32 | treesit-available-p無効時のスキップ | E-04 (L5, L8: and条件) | ○ |

### use-package設定関連テストケース

| Claim ID | 主張 | Evidence | 状態 |
|---|---|---|---|
| C-33 | ada-modeの遅延ロード | E-02 (L29: :defer t) | ○ |
| C-34 | ada-mode設定時の+ada-common-config呼び出し | E-02 (L31: :configブロック) | ○ |
| C-35 | +tree-sitter有効時のada-ts-mode設定 | E-02 (L34-35: :when modulep!) | ○ |
| C-36 | set-tree-sitter!によるada-ts-mode登録 | E-02 (L38-39: set-tree-sitter!) | ○ |
| C-37 | ada-ts-mode-grammar-installのnil設定 | E-02 (L43: setq) | ○ |
| C-38 | gpr-modeの遅延ロード | E-02 (L59: :defer t) | ○ |
| C-39 | gpr-mode設定時の+gpr-common-config呼び出し | E-02 (L61: :configブロック) | ○ |
| C-40 | +tree-sitter有効時のgpr-ts-mode設定 | E-02 (L65: :when modulep!) | ○ |

## 4) 不足情報（Unknown / Missing）
- なし：全テストケースがソースコードに基づいて生成されている

## 5) リスクフラグ（レビュー観点）
- 0: 低リスク - 全テストケースがソースコードから直接導出されている
- 注意点:
  - Emacs Lispのテストフレームワーク（ERT）での実装時、モック/スタブの設定が必要
  - `compile`関数のモック化が必要（外部プロセス呼び出しを避けるため）
  - `modulep!`マクロのモック化が必要（フラグ状態のシミュレーション）
  - `locate-dominating-file`のテストには一時ディレクトリ構造の作成が必要

## 6) レビュアーチェックリスト（最小）
- [ ] autoload.elの4つの関数が全てテスト対象として含まれているか確認
- [ ] config.elの設定関数（+ada-common-config、+gpr-common-config）のテストが網羅されているか
- [ ] +lspフラグの有効/無効の両ケースがテストされているか
- [ ] +tree-sitterフラグの条件分岐がテストされているか
- [ ] doctor.elの環境診断テストが全条件をカバーしているか
- [ ] 異常系テスト（user-errorのスロー）が適切に定義されているか
- [ ] 境界値テスト（ルートディレクトリ、深いネスト）が含まれているか
