Vbaでもtdd

2013/7/27 TDD on ExcelVBA DEMOｓ

Transcript

1. こんなTDDも ありかもね 2013/07/27 てらひで
2. この資料は 2013/07/27 に行われたTDDBC Tokyoの懇親会で行っ たLTを再編成したもの です
3. てらひで @terahide27 認定スクラムマスター アジャイルコーチ アーキテクト
4. てらひで @terahide27 http://gigazine.net/news/20130601-anime-2013summer/ 深夜アニメの カバレッジ90％以上
5. 本題
6. 翠田あい @AiMidorita
8. VBAでも ＴＤＤ！
9. xＵｎｉｔ？
10. VBAＵｎｉｔ があるんだなｗ
11. だけど今日は 使いません
12. 標準機能
13. Debug.Assert
14. やってみよう
15. Alt+F11 Excelを開いて、VBEditorを開きます
16. メニュー → 挿入→ 標準モジュール Option Explicit Sub いちに2を加えると3になるべき() Dim Calc As New Calc Debug.Assert Calc.Add(1, 2) = 3 End Sub サブプロシージャ名は数 字から始められないの で平仮名の「いち」
17. 標準モジュールのテストにカーソルをあてて F5 黄色くなった！
18. クラスモジュールを修正（明白な実装） Option Explicit Function add( i1 As Integer, i2 As Integer) As Integer add = i1 + i2 End Function Calc 仮実装は省略！
19. 標準モジュールのテストにカーソルをあてて F5 白くなった！
20. ちょっとリファクタ。イミディェイトに表示 Option Explicit Sub いちに2を加えると3になるべき() Dim Calc As New Calc Dim actual As Integer actual = Calc.add(1, 2) Debug.Assert actual = 3 Debug.Print actual End Sub
21. テストスイート も作れる！ たぶん。。。
22. やってみた
23. クラスモジュール TestSuite.cls を追加
24. Option Explicit ''usage ''Sub allTest() '' Dim TestSuite As New TestSuite '' '' With TestSuite '' .testAll '' '.testAll ("test") 'procedurePrefix '' '.testAll (procedurePrefix =:"test", modeulePrefix :="テスト") '' End With '' ''End Sub Private Const VBEXT_CT_STDMODULE As Integer = 1 Public Sub testAll(Optional procedurePrefix As String = "", Optional modeulePrefix As String = "test") Dim subProcedureNames As Collection 'Collection<String> Set subProcedureNames = getSubProcedureNames(modeulePrefix) Dim subProcedureName As String Dim v For Each v In subProcedureNames subProcedureName = v If Not isEmpty(procedurePrefix) Then If Not startWith(subProcedureName, procedurePrefix) Then GoTo continue End If End If Application.Run ThisWorkbook.Name & "!" & subProcedureName continue: Next End Sub
25. Private Function getSubProcedureNames(modeulePrefix As String) As Collection 'Collection<String> Dim modules As Collection 'Collection<VBComponent> Dim subProcedureNames As New Collection 'Collection<String> Dim VBComponent As Object Set modules = getModules(modeulePrefix) Dim v Dim i Dim subProcedureName As String For Each v In modules Set VBComponent = v With VBComponent.CodeModule For i = 1 To .CountOfLines subProcedureName = .ProcOfLine(i, 0) If isEmpty(subProcedureName) Then GoTo continue End If If contains(subProcedureNames, subProcedureName) Then GoTo continue End If subProcedureNames.add subProcedureName continue: Next i End With Next Set getSubProcedureNames = subProcedureNames End Function
26. Private Function getModules(modeulePrefix As String) As Collection 'Collection<VBComponent> Dim col As New Collection Dim VBComponent As Object Dim v For Each v In ThisWorkbook.VBProject.VBComponents Set VBComponent = v With VBComponent If .Type <> VBEXT_CT_STDMODULE Then GoTo continue: End If If Not startWith(.Name, modeulePrefix) Then GoTo continue: End If col.add VBComponent End With continue: Next Set getModules = col End Function Private Function contains(col As Collection, value) As Boolean Dim v For Each v In col If v = value Then contains = True Exit Function End If Next End Function Private Function isEmpty(s As String) As Boolean If s = "" Then isEmpty = True End If End Function Private Function startWith(s As String, prefix As String) As Boolean If InStr(1, s, prefix) = 1 Then startWith = True End If End Function
27. さっきの モジュール名と サブプロシージャ名の 先頭にtestを追加
28. 標準モジュールのテストにカーソルをあてて F5 Sub allTest() Dim TestSuite As New TestSuite With TestSuite .testAll ("test") End With End Sub クリアしておきましょう
29. 標準モジュールのテストにカーソルをあてて F5
30. Excelのメニュー→ファイル→オプション→セキュ リティセンター クリック
31. マクロの設定→VBAプロジェクトオブジェクトモ デルへのアクセスを信頼する 注意！ この設定によりマクロウイルス に感染しても筆者は一切の責 任を負いません
32. 標準モジュールのテストにカーソルをあてて F5 実行されました テストのサブプロシー ジャを追加して実行し てみましょう！
33. Excelのメニュー→ファイル→オプション→セキュ リティセンターの設定を戻しておきましょう クリック チェックを はずす