Skip to content

Commit

Permalink
Fix Issue #29 :
Browse files Browse the repository at this point in the history
- disable events during configuration recreation
430 tests OK. No failure.
  • Loading branch information
Jean-Pierre Imbert committed Sep 6, 2014
1 parent dfb005d commit e85d24b
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 4 deletions.
2 changes: 2 additions & 0 deletions Source/ConfProd/vtkImportExportUtilities.bas
Original file line number Diff line number Diff line change
Expand Up @@ -380,6 +380,7 @@ Public Sub vtkRecreateConfiguration(projectName As String, configurationName As
Dim fso As New FileSystemObject

On Error GoTo vtkRecreateConfiguration_Error
Application.EnableEvents = False

' Get the Conf Manager and the rootPath of the project
If confManager Is Nothing Then
Expand Down Expand Up @@ -456,6 +457,7 @@ Public Sub vtkRecreateConfiguration(projectName As String, configurationName As
Wb.IsAddin = vtkDefaultIsAddIn(wbPath)
Wb.SaveAs fileName:=tmpPath, FileFormat:=vtkDefaultFileFormat(wbPath)
Wb.Close saveChanges:=False
Application.EnableEvents = True

' Delete the old workbook if it exists
Dim fullWbpath As String
Expand Down
8 changes: 4 additions & 4 deletions Source/VbaUnit/TestClassLister.cls
Original file line number Diff line number Diff line change
Expand Up @@ -50,20 +50,20 @@ Public Function SelectTestClass(TestClassName As String) As ITest
Case "vtkToolBarsTester": Set SelectTestClass = New vtkToolBarsTester
Case "vtkExportOneModuleTester": Set SelectTestClass = New vtkExportOneModuleTester
Case "vtkGitFunctionsTester": Set SelectTestClass = New vtkGitFunctionsTester
Case "vtkFileSystemUtilitiesTester": Set SelectTestClass = New vtkFileSystemUtilitiesTester
Case "vtkConfigurationTester": Set SelectTestClass = New vtkConfigurationTester
Case "vtkModuleTester": Set SelectTestClass = New vtkModuleTester
Case "vtkExportConfigurationTester": Set SelectTestClass = New vtkExportConfigurationTester
Case "vtkNormalizeTester": Set SelectTestClass = New vtkNormalizeTester
Case "vtkTestUtilitiesTester": Set SelectTestClass = New vtkTestUtilitiesTester
Case "vtkXMLExportTester": Set SelectTestClass = New vtkXMLExportTester
Case "vtkFileSystemUtilitiesTester": Set SelectTestClass = New vtkFileSystemUtilitiesTester
Case "vtkRecreateConfExcelTester": Set SelectTestClass = New vtkRecreateConfExcelTester
Case "vtkExcelUtilitiesTester": Set SelectTestClass = New vtkExcelUtilitiesTester
Case "vtkConfManagerExcel10Tester": Set SelectTestClass = New vtkConfManagerExcel10Tester
Case "vtkConfManagerExcel11Tester": Set SelectTestClass = New vtkConfManagerExcel11Tester
Case "vtkTestUtilitiesTester": Set SelectTestClass = New vtkTestUtilitiesTester
Case "vtkReferenceManagerTester": Set SelectTestClass = New vtkReferenceManagerTester
Case "vtkConfManagerXML20Tester": Set SelectTestClass = New vtkConfManagerXML20Tester
Case "vtkRecreateConfXMLTester": Set SelectTestClass = New vtkRecreateConfXMLTester
Case "vtkConfManagerExcel10Tester": Set SelectTestClass = New vtkConfManagerExcel10Tester
Case "vtkConfManagerExcel11Tester": Set SelectTestClass = New vtkConfManagerExcel11Tester
Case Else:
End Select
End Function

0 comments on commit e85d24b

Please sign in to comment.