v1.4.0

timhall · timhall · commit 6c8398af9ca7 · 2014-10-27T10:06:43.000-04:00
- Remove explicit Scripting.Dictionary reference
diff --git a/Excel-TDD - Blank - Inline.xlsm b/Excel-TDD - Blank - Inline.xlsm
diff --git a/Excel-TDD - Blank.xlsm b/Excel-TDD - Blank.xlsm
diff --git a/build/dev.vbs b/build/dev.vbs
@@ -81,7 +81,7 @@ Main
 Sub Main()
   ' On Error Resume Next
 
-  PrintLn "Excel-TDD v1.3.1 Development"
+  PrintLn "Excel-TDD v1.4.0 Development"
 
   ExcelWasOpen = OpenExcel(Excel)
 
@@ -236,7 +236,7 @@ Sub Import(ModulesDescription, Workbook)
     Import "specs", Workbook
     Exit Sub
   Case Else
-    PrintLn "ERROR: Unknown modules description, " & ModulesDescription
+    PrintLn "ERROR: Unknown modules description: " & ModulesDescription
     Exit Sub
   End Select
 
@@ -259,15 +259,27 @@ Sub Export(ModulesDescription, Workbook)
   Case "SRC"
     Modules = Src
     Folder = SrcFolder
+  Case "INLINE"
+    Modules = InlineRunner
+    Folder = SrcFolder
+  Case "DISPLAY"
+    Modules = DisplayRunner
+    Folder = SrcFolder
+  Case "EXTENSIONS"
+    Modules = WorkbookExtensions
+    Folder = SrcFolder
+  Case "HELPERS"
+    Modules = Helpers
+    Folder = SrcFolder
   Case "SPECS"
     Modules = Specs
     Folder = SpecsFolder
   Case "ALL"
-    Export "src", Workbook
-    Export "specs", Workbook
+    Import "src", Workbook
+    Import "specs", Workbook
     Exit Sub
   Case Else
-    PrintLn "ERROR: Unknown modules description, " & ModulesDescription
+    PrintLn "ERROR: Unknown modules description: " & ModulesDescription
     Exit Sub
   End Select
 
diff --git a/examples/Excel-TDD - Example - Inline.xlsm b/examples/Excel-TDD - Example - Inline.xlsm
diff --git a/examples/Excel-TDD - Example - Runner.xlsm b/examples/Excel-TDD - Example - Runner.xlsm
diff --git a/specs/Excel-TDD - Specs.xlsm b/specs/Excel-TDD - Specs.xlsm
diff --git a/src/BlankIWBProxy.cls b/src/BlankIWBProxy.cls
@@ -8,7 +8,7 @@ Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = False
 ''
-' BlankIWBProxy v1.3.1
+' BlankIWBProxy v1.4.0
 ' (c) Tim Hall - https://github.com/timhall/Excel-TDD
 '
 ' Blank implementation of IWBProxy
diff --git a/src/DisplayRunner.bas b/src/DisplayRunner.bas
@@ -1,6 +1,6 @@
 Attribute VB_Name = "DisplayRunner"
 ''
-' DisplayRunner v1.3.1
+' DisplayRunner v1.4.0
 ' (c) Tim Hall - https://github.com/timhall/Excel-TDD
 '
 ' Runner with sheet output
@@ -203,7 +203,7 @@ Private Sub OutputSpec(Spec As SpecDefinition, ByRef Row As Integer, Optional In
     Sheet.Cells(Row, ResultCol) = Spec.ResultName
     Row = Row + 1
     
-    If Spec.FailedExpectations.count > 0 Then
+    If Spec.FailedExpectations.Count > 0 Then
         Dim Exp As SpecExpectation
         For Each Exp In Spec.FailedExpectations
             Sheet.Cells(Row, DescCol) = Indentation & "X  " & Exp.FailureMessage
diff --git a/src/IScenario.cls b/src/IScenario.cls
@@ -8,7 +8,7 @@ Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = True
 ''
-' IScenario v1.3.1
+' IScenario v1.4.0
 ' (c) Tim Hall - https://github.com/timhall/Excel-TDD
 '
 ' Interface for creating and running scenarios on workbooks
diff --git a/src/IWBProxy.cls b/src/IWBProxy.cls
@@ -8,7 +8,7 @@ Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = True
 ''
-' IWBProxy v1.3.1
+' IWBProxy v1.4.0
 ' (c) Tim Hall - https://github.com/timhall/Excel-TDD
 '
 ' Interface for generic workbook proxies
diff --git a/src/InlineRunner.bas b/src/InlineRunner.bas
@@ -1,6 +1,6 @@
 Attribute VB_Name = "InlineRunner"
 ''
-' InlineRunner v1.3.1
+' InlineRunner v1.4.0
 ' (c) Tim Hall - https://github.com/timhall/Excel-TDD
 '
 ' Runner for outputting results of specs to Immediate window
diff --git a/src/Scenario.cls b/src/Scenario.cls
@@ -8,7 +8,7 @@ Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = True
 ''
-' Scenario v1.3.1
+' Scenario v1.4.0
 ' (c) Tim Hall - https://github.com/timhall/Excel-TDD
 '
 ' Generic implementation of scenario
diff --git a/src/SpecDefinition.cls b/src/SpecDefinition.cls
@@ -8,7 +8,7 @@ Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = True
 ''
-' SpecDefinition v1.3.1
+' SpecDefinition v1.4.0
 ' (c) Tim Hall - https://github.com/timhall/Excel-TDD
 '
 ' Provides helpers and acts as workbook proxy
diff --git a/src/SpecExpectation.cls b/src/SpecExpectation.cls
@@ -8,7 +8,7 @@ Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = True
 ''
-' SpecExpectation v1.3.1
+' SpecExpectation v1.4.0
 ' (c) Tim Hall - https://github.com/timhall/Excel-TDD
 '
 ' Provides various tests that can be performed for a provided value
diff --git a/src/SpecHelpers.bas b/src/SpecHelpers.bas
@@ -1,6 +1,6 @@
 Attribute VB_Name = "SpecHelpers"
 ''
-' SpecHelpers v1.3.1
+' SpecHelpers v1.4.0
 ' (c) Tim Hall - https://github.com/timhall/Excel-TDD
 '
 ' General utilities for specs
diff --git a/src/SpecSuite.cls b/src/SpecSuite.cls
@@ -8,7 +8,7 @@ Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = True
 ''
-' SpecSuite v1.3.1
+' SpecSuite v1.4.0
 ' (c) Tim Hall - https://github.com/timhall/Excel-TDD
 '
 ' A collection of specs with the workbook that they act on
diff --git a/src/WBProxy.cls b/src/WBProxy.cls
@@ -8,7 +8,7 @@ Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = True
 ''
-' WBProxy v1.3.1
+' WBProxy v1.4.0
 ' (c) Tim Hall - https://github.com/timhall/Excel-TDD
 '
 ' Generic implementation of workbook proxy
@@ -112,17 +112,17 @@ Private Property Set IWBProxy_Instance(Value As Workbook)
     Set Instance = Value
 End Property
 
-Public Property Get Mapping() As Scripting.IDictionary
+Public Property Get Mapping() As Dictionary
     Set Mapping = IWBProxy_Mapping
 End Property
-Private Property Get IWBProxy_Mapping() As Scripting.IDictionary
+Private Property Get IWBProxy_Mapping() As Dictionary
     If pMapping Is Nothing Then: Set pMapping = New Dictionary
     Set IWBProxy_Mapping = pMapping
 End Property
-Public Property Set Mapping(Value As Scripting.IDictionary)
+Public Property Set Mapping(Value As Dictionary)
     Set IWBProxy_Mapping = Value
 End Property
-Private Property Set IWBProxy_Mapping(Value As Scripting.IDictionary)
+Private Property Set IWBProxy_Mapping(Value As Dictionary)
     Set pMapping = Value
 End Property
 

Original file line number	Diff line number	Diff line change
`@@ -8,7 +8,7 @@ Attribute VB_Creatable = False`
`8`	`8`	`Attribute VB_PredeclaredId = False`
`9`	`9`	`Attribute VB_Exposed = False`
`10`	`10`	`''`
`11`		`-' BlankIWBProxy v1.3.1`
	`11`	`+' BlankIWBProxy v1.4.0`
`12`	`12`	`' (c) Tim Hall - https://github.com/timhall/Excel-TDD`
`13`	`13`	`'`
`14`	`14`	`' Blank implementation of IWBProxy`
Original file line number	Diff line number	Diff line change
`@@ -8,7 +8,7 @@ Attribute VB_Creatable = False`
`8`	`8`	`Attribute VB_PredeclaredId = False`
`9`	`9`	`Attribute VB_Exposed = True`
`10`	`10`	`''`
`11`		`-' IScenario v1.3.1`
	`11`	`+' IScenario v1.4.0`
`12`	`12`	`' (c) Tim Hall - https://github.com/timhall/Excel-TDD`
`13`	`13`	`'`
`14`	`14`	`' Interface for creating and running scenarios on workbooks`