debut tests CI

tests/assert_exists.py

@@ -0,0 +1,16 @@
+'''
+Created on 23 nov. 2016
+
+@author: olivier.massot
+'''
+import os
+import sys
+
+
+_, file_path = sys.argv
+
+if not os.path.exists(file_path):
+    print("{} does not exist".format(file_path))
+    sys.exit(1)
+    
+sys.exit(0)

tests/command_0.bat

@@ -1,8 +0,0 @@
-unzip .\start_state\db.zip
-unzip .\start_state\project0.zip
-unzip .\control_end_state\empty_project.zip
-
-rem exec exportsource from project0
-
-python compare.py .\start_state\sources .\control_start_state\sources
-

tests/readme.md

@@ -1,23 +1,179 @@
-## TESTS OPENACCESS
+# TESTS OPENACCESS
+
+## Fonctionnement des tests
+
+### Répertoires
+
+Le fichier Access `.\initial\projet0.zip` contient l'application de test.  
+
+Les tests ont lieu dans le répertoire `.\work`
+
+Les résultats sont contrôlés au moyen du contenu du répertoire `.\reference`
+
+### Le projet de départ
+
+L'application `project0.accdb` sert de support de test.
+
+Le fichier `db.accdb` contient les éventuelles tables liées. **ATTENTION: la chaine de connexion des tables liées à db.accdb doit pointer vers .\work\db.accdb et non pas .\initial\db.accdb**
+
 
 ### Déroulement
 
-#### Export / Import complets
+#### Préparation des fichiers
+
+* Le dossier `.\work` est vidé
+
+> `del /f /s /q .\work`
+
+* Le dossier `.\results` est vidé
+
+> `del /f /s /q .\results`
+
+* `.\initial\projet0.zip` est extrait vers `.\work\projet0.accdb`
+
+> `unzip .\initial\project0.zip -d .\work`
+
+* `.\initial\db.zip` est extrait vers `.\work\db.accdb`
+
+> `unzip .\initial\db.zip -d .\work`
+
+* `.\initial\empty_project.zip` est extrait vers `.\work\empty_project.accdb`
+
+> `unzip .\initial\empty_project.zip -d .\work`
+
+#### Création des sources
+
+* La fonction `silent_export` de OpenAccess est executée depuis le fichier `.\work\project0.accdb` (via la macro `test_export` de `project0.accdb`)
+
+> `"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\project0.accdb" /X test_export`
+
+Le répertoire `.\work\source` est créé
+
+* L'existence du fichier `.\work\project0.zip` créé par l'export est contrôlée
+
+> `python assert_exists.py .\work\project0.zip`
+
+* Les fichiers `.\work\source\modules\test_methods.bas`, `.\work\source\macros\test_export.bas` et `.\work\source\macros\test_import.bas` sont supprimés (ils ne font pas partie du périmètre des tests et leur présence provoquera des erreurs à l'import)
+
+> `del .\work\source\modules\test_methods.bas`
+> `del .\work\source\macros\test_export.bas`
+> `del .\work\source\macros\test_import.bas`
+
+**ATTENTION à s'assurer que ces fichiers ont aussi été supprimés de .\reference\source!**
+
+* Le dossier `.\work\source` est copié vers `.\results\source_1`
+
+> `copy .\works\source .\results\source1`
+
+#### Contrôle des résultats
+
+* La fonction compare.py est utilisée pour comparer le contenu des sous-répertoires et des fichiers sources ainsi créés à ceux contenus dans le répertoire `.\reference\source`
+
+> `python compare.py .\work\source .\reference\source`
+
+#### Import des sources dans une base vide
+
+* La fonction `silent_import` de OpenAccess est executée depuis le fichier `.\work\empty_project.accdb` (via la macro `test_import` de `empty_project.accdb`)
+
+> `"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\empty_project.accdb" /X test_import`
+
+* `.\work\empty_project.accdb` est copié vers `.\results\result1.accdb`
+
+> `copy .\work\empty_project.accdb .\results\result1.accdb`
+
+* L'existence du fichier `.\work\empty_project.accdb.old` créé par l'export est contrôlée
+
+> `python assert_exists.py .\work\empty_project.accdb.old`
+
+#### Import des sources dans un projet existant
+
+* La fonction `silent_import` de OpenAccess est executée depuis le fichier `.\work\project0.accdb` (via la macro `test_import` de `project0.accdb`)
+
+> `"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\project0.accdb" /X test_import`
+
+* `.\work\project0.accdb` est copié vers `.\results\result2.accdb`
+
+> `copy .\work\project0.accdb .\results\result2.accdb`
+
+* L'existence du fichier `.\work\project0.accdb.old` créé par l'export est contrôlée
+
+> `python assert_exists.py .\work\project0.accdb.old`
+
+#### Contrôle des résultats
+*à revoir*
+
+> vider .\work, et exporter successivement les sources de result1 et result2 pour comparer le résultat à reference\source?
+
+
+## Interpréter les résultats
+
+La build sera réussie si:
+
+* Elle se déroule jusqu'au bout sans erreur
+* La fonction `compare.py` retourne un code exit 0 à chaque fois qu'elle est appellée
+
+
+De plus, on peut vérifier les résultats dans le répertoire .\results:
+
+* initial.accdb contient le projet de départ
+* source1 contient le résultat de l'export des sources de project0.accdb
+* result1.accdb contient le résultat d'u import de ces sources dans une base vide
+* result2.accdb contient le résultat de l'improt des sources dans project0.accdb
+
+## Commande batch
+
+	@echo off
+
+	echo clean the directories
+	del /f /s /q .\work
+	del /f /s /q .\results
+	
+	echo prepare files
+	unzip .\initial\project0.zip -d .\work
+	unzip .\initial\db.zip -d .\work
+	unzip .\initial\empty_project.zip -d .\work
+	
+	echo ** tests: step 1 **
+
+	echo run the test_export macro
+	"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\project0.accdb" /X test_export
+	
+	echo control existence of zipped app
+	python assert_exists.py .\work\project0.zip
+
+	echo clean sources
+	del .\work\source\modules\test_methods.bas
+	del .\work\source\macros\test_export.bas
+	del .\work\source\macros\test_import.bas
+
+	echo copy source to results
+	copy .\works\source .\results\source1
+
+	echo control the result
+	python compare.py .\results\source1 .\reference\source
+
+	echo ** tests: step 2 **
 
-Le fichier Access `projet0.accdb` (copie de `projet0_modele.accdb`) est l'application de départ des tests.  
-C'est ce fichier qu'il faut modifier pour tenir compte des évolutions d'Openaccess et des nouveaux problèmes rencontrés.
+	echo run import in empty_project.accdb
+	"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\empty_project.accdb" /X test_import
 
-La macro `export` execute l'export des sources de `projet0.accdb`
+	echo copy to results
+	copy .\work\empty_project.accdb .\results\result1.accdb
 
-On contrôle le contenu des sources ainsi créées en comparant chaque fichier du répertoire `sources` aux fichiers du répertoire `ctrl_source0`
+	echo control existence of backup
+	python assert_exists.py .\work\empty_project.accdb.old
 
-Le fichier `projet1.accdb` (copie de `projet1_modele.accdb`) est un projet vierge, qui ne contient que la macro `import`
+	echo run import in project0.accdb
+	"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\project0.accdb" /X test_import
 
-La macro `import` execute l'import des sources depuis `.\sources`
+	echo copy to results
+	copy .\work\project0.accdb .\results\result2.accdb
 
-La macro `compare1to0` compare le contenu de `projet1.accdb` à celui de `projet0.accdb`. 
+	echo control existence of backup
+	python assert_exists.py .\work\project0.accdb.old
 
-#### Export / Import différentiels
+	echo ** end **
 
+	pause
 
 

tests/temp/B/source/database.properties → tests/reference/source/database.properties

@@ -33,7 +33,7 @@ Show Values in Non-Indexed	1	4
 Show Values in Remote	0	4
 Auto Compact	0	4
 NavPane Closed	0	4
-NavPane Width	429	4
+NavPane Width	344	4
 NavPane View By	0	4
 NavPane Sort By	1	4
 Property Sheet Label Width	3525	4

tests/temp/B/source/modules/ModuleTest.bas → tests/reference/source/modules/ModuleTest.bas

@@ -1,9 +1,14 @@
 Option Compare Database
 
 ' with references:
-' Microsoft ADO Ext 6.0
-' Microsoft Office Object Library 14.0
-' Microsoft Office Runtime 1.0
+' Visual Basic for Applications
+' Microsoft Access 14.0 Object Library
+' Microsoft Office Runtime 1.0 Type Library
+' Microsoft Office 14.0 Access Database engine object
+' Microsoft ActiveX Data Object 2.8 Library
+' Microsoft Scipring Runtime
+' Microsoft ADO Ext 6.0 for DDL and Security
+
 
 Public Sub TestModule()
 

tests/temp/B/source/queries/DeleteTest.bas → tests/reference/source/queries/DeleteTest.bas

@@ -23,12 +23,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =621
+    Right =1320
+    Bottom =604
     Left =0
     Top =0
     ColumnsShown =771

tests/temp/A/source/queries/InsertTest.bas → tests/reference/source/queries/InsertTest.bas

@@ -34,12 +34,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =621
+    Right =1320
+    Bottom =604
     Left =0
     Top =0
     ColumnsShown =651

tests/temp/B/source/queries/SelectTestMultiTables.bas → tests/reference/source/queries/SelectTestMultiTables.bas

@@ -42,12 +42,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =621
+    Right =1320
+    Bottom =604
     Left =0
     Top =0
     ColumnsShown =539

tests/temp/B/source/queries/SelectTestOrderedFiltered.bas → tests/reference/source/queries/SelectTestOrderedFiltered.bas

@@ -35,12 +35,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =570
+    Right =1320
+    Bottom =553
     Left =0
     Top =0
     ColumnsShown =539

tests/temp/B/source/queries/SelectTestSimpleCase.bas → tests/reference/source/queries/SelectTestSimpleCase.bas

@@ -90,12 +90,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =604
+    Right =1320
+    Bottom =587
     Left =0
     Top =0
     ColumnsShown =539

tests/temp/B/source/queries/SelectTestWithDataConnection.bas → tests/reference/source/queries/SelectTestWithDataConnection.bas

@@ -21,12 +21,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =827
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =811
-    Bottom =621
+    Right =1320
+    Bottom =604
     Left =0
     Top =0
     ColumnsShown =539

tests/temp/B/source/queries/SelectTestWithProperties.bas → tests/reference/source/queries/SelectTestWithProperties.bas

@@ -32,12 +32,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =1381
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =621
+    Right =1320
+    Bottom =604
     Left =0
     Top =0
     ColumnsShown =539

tests/temp/A/source/queries/UpdateTest.bas → tests/reference/source/queries/UpdateTest.bas

@@ -93,12 +93,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =570
+    Right =1320
+    Bottom =553
     Left =0
     Top =0
     ColumnsShown =579

tests/temp/A/source/references.csv → tests/reference/source/references.csv

@@ -1,5 +1,6 @@
-{00020430-0000-0000-C000-000000000046},2,0
+{B35FBDE9-7042-11D3-9C0F-00C04F72DD5F},1,0
 {4AC9E1DA-5BAD-4AC7-86E3-24F4CDCECA28},12,0
+{2A75196C-D9EB-4129-B803-931327F72D5C},2,8
+{420B2830-E718-11CF-893D-00A0C9054228},1,0
+C:\APPLIS_PARC\OpenAccess\OpenAccess.accda
 {00000600-0000-0010-8000-00AA006D2EA4},6,0
-{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52},2,5
-{B35FBDE9-7042-11D3-9C0F-00C04F72DD5F},1,0

tests/temp/A/source/tables/USysOpenAccess.txt → tests/reference/source/tables/USysOpenAccess.txt

@@ -1,3 +1,3 @@
 key	val
 include_tables	USysOpenAccess,TableWithData,TableTestBaseFields,TableTestAdvancedFields
-sources_date	22/11/2016 16:41:23
+sources_date	23/11/2016 11:34:34

tests_old/command_0.bat

@@ -0,0 +1,16 @@
+rem prepare the files
+del /f /s /q .\work
+
+unzip .\start_state\db.zip .\work\db.accdb
+unzip .\start_state\project0.zip .\work\project0.accdb
+copy .\start_state\project0.accdb .\work\project0.accdb
+
+unzip .\control_end_state\empty_project.zip
+
+rem run the test_export macro
+"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\project0.accdb" /X test_export
+
+rem control the result
+python compare.py .\work\source .\control_start_state\source
+
+pause

tests/temp/A/source/database.properties → tests_old/control_start_state/source/database.properties

@@ -33,7 +33,7 @@ Show Values in Non-Indexed	1	4
 Show Values in Remote	0	4
 Auto Compact	0	4
 NavPane Closed	0	4
-NavPane Width	429	4
+NavPane Width	344	4
 NavPane View By	0	4
 NavPane Sort By	1	4
 Property Sheet Label Width	3525	4

tests_old/control_start_state/source/macros/test_export.bas

@@ -0,0 +1,17 @@
+Version =196611
+ColumnsShown =0
+Begin
+    Action ="RunCode"
+    Argument ="test_export()"
+End
+Begin
+    Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
+        "nterfaceMacro MinimumClientDesignVersion=\"14.0.0000.0000\" xmlns=\"http://schem"
+        "as.microsoft.com/office/accessservices/2009/11/application\" xmlns:a=\"http://sc"
+        "hemas.microsoft.com/office/acc"
+End
+Begin
+    Comment ="_AXL:essservices/2009/11/forms\"><Statements><Action Name=\"RunCode\"><Argument "
+        "Name=\"FunctionName\">test_export()</Argument></Action></Statements></UserInterf"
+        "aceMacro>"
+End

tests_old/control_start_state/source/macros/test_import.bas

@@ -0,0 +1,17 @@
+Version =196611
+ColumnsShown =0
+Begin
+    Action ="RunCode"
+    Argument ="test_import"
+End
+Begin
+    Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
+        "nterfaceMacro MinimumClientDesignVersion=\"14.0.0000.0000\" xmlns=\"http://schem"
+        "as.microsoft.com/office/accessservices/2009/11/application\" xmlns:a=\"http://sc"
+        "hemas.microsoft.com/office/acc"
+End
+Begin
+    Comment ="_AXL:essservices/2009/11/forms\"><Statements><Action Name=\"RunCode\"><Argument "
+        "Name=\"FunctionName\">test_import</Argument></Action></Statements></UserInterfac"
+        "eMacro>"
+End

tests_old/control_start_state/source/modules/ModuleTest.bas

@@ -0,0 +1,27 @@
+Option Compare Database
+
+' with references:
+' Visual Basic for Applications
+' Microsoft Access 14.0 Object Library
+' Microsoft Office Runtime 1.0 Type Library
+' Microsoft Office 14.0 Access Database engine object
+' Microsoft ActiveX Data Object 2.8 Library
+' Microsoft Scipring Runtime
+' Microsoft ADO Ext 6.0 for DDL and Security
+
+
+Public Sub TestModule()
+
+    Dim rs As DAO.Recordset
+    
+    Set rs = CurrentDb.OpenRecordset("TableWithData", dbOpenSnapshot)
+    
+    rs.MoveFirst
+    Do Until rs.EOF
+    
+        Debug.Print rs![param], rs![key]
+    
+        rs.MoveNext
+    Loop
+
+End Sub

tests_old/control_start_state/source/modules/test_methods.bas

@@ -0,0 +1,64 @@
+Option Compare Database
+Public Const ADDIN_NAME = "OpenAccess.accda"
+
+
+Private Sub setUp_tests()
+    Dim tmp_path, oa_path As String
+    
+    tmp_path = CurrentProject.path
+    oa_path = tmp_path & "\" & ADDIN_NAME
+    
+    Do Until Dir(oa_path) <> ""
+        If Len(tmp_path) = 0 Then
+            Debug.Print "setUp_tests - Unable to find " & ADDIN_NAME & " in the parents directory"
+            Exit Sub
+        End If
+        
+        tmp_path = parDir(tmp_path)
+        oa_path = tmp_path & "\" & ADDIN_NAME
+
+    Loop
+
+    On Error Resume Next
+    Access.References.AddFromFile (oa_path)
+    
+    DoEvents
+    
+    If Err.Number = 32813 Then
+        'already added
+    Else
+        Debug.Print "setUp_tests - Error while loading " & ADDIN_NAME & " as a reference"
+    End If
+
+End Sub
+
+
+Public Function test_export()
+    'run an OpenAccess export on itself
+    setUp_tests
+    
+    Dim result As Integer
+    result = Application.Run("silent_export")
+
+    Err.Number = result
+    Application.Quit
+
+End Function
+
+Public Function test_import()
+    'run an OpenAccess import on itself
+    setUp_tests
+
+    Dim result As Integer
+    result = Application.Run("silent_import")
+
+    Err.Number = result
+    Application.Quit
+
+End Function
+
+Private Function parDir(ByVal path As String) As String
+    
+    parDir = CreateObject("Scripting.FileSystemObject").GetParentFolderName(path)
+    
+End Function

tests/temp/A/source/queries/DeleteTest.bas → tests_old/control_start_state/source/queries/DeleteTest.bas

@@ -23,12 +23,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =621
+    Right =1320
+    Bottom =604
     Left =0
     Top =0
     ColumnsShown =771

tests/temp/B/source/queries/InsertTest.bas → tests_old/control_start_state/source/queries/InsertTest.bas

@@ -34,12 +34,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =621
+    Right =1320
+    Bottom =604
     Left =0
     Top =0
     ColumnsShown =651

tests/temp/A/source/queries/SelectTestMultiTables.bas → tests_old/control_start_state/source/queries/SelectTestMultiTables.bas

@@ -42,12 +42,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =621
+    Right =1320
+    Bottom =604
     Left =0
     Top =0
     ColumnsShown =539

tests/temp/A/source/queries/SelectTestOrderedFiltered.bas → tests_old/control_start_state/source/queries/SelectTestOrderedFiltered.bas

@@ -35,12 +35,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =570
+    Right =1320
+    Bottom =553
     Left =0
     Top =0
     ColumnsShown =539

tests/temp/A/source/queries/SelectTestSimpleCase.bas → tests_old/control_start_state/source/queries/SelectTestSimpleCase.bas

@@ -90,12 +90,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =604
+    Right =1320
+    Bottom =587
     Left =0
     Top =0
     ColumnsShown =539

tests/temp/A/source/queries/SelectTestWithDataConnection.bas → tests_old/control_start_state/source/queries/SelectTestWithDataConnection.bas

@@ -21,12 +21,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =827
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =811
-    Bottom =621
+    Right =1320
+    Bottom =604
     Left =0
     Top =0
     ColumnsShown =539

tests/temp/A/source/queries/SelectTestWithProperties.bas → tests_old/control_start_state/source/queries/SelectTestWithProperties.bas

@@ -32,12 +32,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =1381
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =621
+    Right =1320
+    Bottom =604
     Left =0
     Top =0
     ColumnsShown =539

tests/temp/B/source/queries/UpdateTest.bas → tests_old/control_start_state/source/queries/UpdateTest.bas

@@ -93,12 +93,12 @@ Begin
     State =0
     Left =0
     Top =0
-    Right =942
+    Right =1336
     Bottom =866
     Left =-1
     Top =-1
-    Right =926
-    Bottom =570
+    Right =1320
+    Bottom =553
     Left =0
     Top =0
     ColumnsShown =579

tests/temp/B/source/references.csv → tests_old/control_start_state/source/references.csv

@@ -1,5 +1,6 @@
-{00020430-0000-0000-C000-000000000046},2,0
+{B35FBDE9-7042-11D3-9C0F-00C04F72DD5F},1,0
 {4AC9E1DA-5BAD-4AC7-86E3-24F4CDCECA28},12,0
+{2A75196C-D9EB-4129-B803-931327F72D5C},2,8
+{420B2830-E718-11CF-893D-00A0C9054228},1,0
+C:\APPLIS_PARC\OpenAccess\OpenAccess.accda
 {00000600-0000-0010-8000-00AA006D2EA4},6,0
-{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52},2,5
-{B35FBDE9-7042-11D3-9C0F-00C04F72DD5F},1,0

tests/temp/B/source/tables/USysOpenAccess.txt → tests_old/control_start_state/source/tables/USysOpenAccess.txt

@@ -1,3 +1,3 @@
 key	val
 include_tables	USysOpenAccess,TableWithData,TableTestBaseFields,TableTestAdvancedFields
-sources_date	22/11/2016 16:41:23
+sources_date	23/11/2016 11:34:34

tests_old/readme.md

@@ -0,0 +1,158 @@
+# TESTS OPENACCESS
+
+## Fonctionnement des tests
+
+### Répertoires
+
+Le fichier Access `.\initial\projet0.zip` contient l'application de test.  
+
+Les tests ont lieu dans le répertoire `.\work`
+
+Les résultats sont contrôlés au moyen du contenu du répertoire `.\reference`
+
+### Le projet de départ
+
+L'application `project0.accdb` sert de support de test.
+
+Le fichier `db.accdb` contient les éventuelles tables liées. **ATTENTION: la chaine de connexion des tables liées à db.accdb doit pointer vers .\work\db.accdb et non pas .\initial\db.accdb**
+
+
+### Déroulement
+
+#### Préparation des fichiers
+
+* Le dossier `.\work` est vidé
+
+> `del /f /s /q .\work`
+
+* Le dossier `.\results` est vidé
+
+> `del /f /s /q .\results`
+
+* `.\initial\projet0.zip` est extrait vers `.\work\projet0.accdb`
+
+> `unzip .\initial\project0.zip -d .\work`
+
+* `.\initial\db.zip` est extrait vers `.\work\db.accdb`
+
+> `unzip .\initial\db.zip -d .\work`
+
+* `.\initial\empty_project.zip` est extrait vers `.\work\empty_project.accdb`
+
+> `unzip .\initial\empty_project.zip -d .\work`
+
+#### Création des sources
+
+* La fonction `silent_export` de OpenAccess est executée depuis le fichier `.\work\project0.accdb` (via la macro `test_export` de `project0.accdb`)
+
+> `"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\project0.accdb" /X test_export`
+
+Le répertoire `.\work\source` est créé
+
+* L'existence du fichier `.\work\project0.zip` créé par l'export est contrôlée
+
+> ?
+
+* Les fichiers `.\work\source\modules\test_methods.bas`, `.\work\source\macros\test_export.bas` et `.\work\source\macros\test_import.bas` sont supprimés (ils ne font pas partie du périmètre des tests et leur présence provoquera des erreurs à l'import)
+
+> `del .\work\source\modules\test_methods.bas`
+> `del .\work\source\macros\test_export.bas`
+> `del .\work\source\macros\test_import.bas`
+
+**ATTENTION à s'assurer que ces fichiers ont aussi été supprimés de .\reference\source!**
+
+* Le dossier `.\work\source` est copié vers `.\results\source_1`
+
+> `copy .\works\source .\results\source1`
+
+#### Contrôle des résultats
+
+* La fonction compare.py est utilisée pour comparer le contenu des sous-répertoires et des fichiers sources ainsi créés à ceux contenus dans le répertoire `.\reference\source`
+
+> `python compare.py .\work\source .\reference\source`
+
+#### Import des sources dans une base vide
+
+* La fonction `silent_import` de OpenAccess est executée depuis le fichier `.\work\empty_project.accdb` (via la macro `test_import` de `empty_project.accdb`)
+
+> `"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\empty_project.accdb" /X test_import`
+
+* `.\work\empty_project.accdb` est copié vers `.\results\result1.accdb`
+
+> `copy .\work\empty_project.accdb .\results\result1.accdb`
+
+#### Import des sources dans un projet existant
+
+* La fonction `silent_import` de OpenAccess est executée depuis le fichier `.\work\project0.accdb` (via la macro `test_import` de `project0.accdb`)
+
+> `"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\project0.accdb" /X test_import`
+
+* `.\work\project0.accdb` est copié vers `.\results\result2.accdb`
+
+> `copy .\work\project0.accdb .\results\result2.accdb`
+
+#### Contrôle des résultats
+*à revoir*
+
+> vider .\work, et exporter successivement les sources de result1 et result2 pour comparer le résultat à reference\source?
+
+
+## Interpréter les résultats
+
+La build sera réussie si:
+
+* Elle se déroule jusqu'au bout sans erreur
+* La fonction `compare.py` retourne un code exit 0 à chaque fois qu'elle est appellée
+
+
+De plus, on peut vérifier les résultats dans le répertoire .\results:
+
+* initial.accdb contient le projet de départ
+* source1 contient le résultat de l'export des sources de project0.accdb
+* result1.accdb contient le résultat d'u import de ces sources dans une base vide
+* result2.accdb contient le résultat de l'improt des sources dans project0.accdb
+
+## Commande batch
+
+	@echo off
+
+	echo clean the directories
+	del /f /s /q .\work
+	del /f /s /q .\results
+	
+	echo prepare files
+	unzip .\initial\project0.zip -d .\work
+	unzip .\initial\db.zip -d .\work
+	unzip .\initial\empty_project.zip -d .\work
+	
+	echo ** tests: step 1 **
+
+	echo run the test_export macro
+	"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\project0.accdb" /X test_export
+	
+	echo clean sources
+	del .\work\source\modules\test_methods.bas
+	del .\work\source\macros\test_export.bas
+	del .\work\source\macros\test_import.bas
+
+	echo copy source to results
+	copy .\works\source .\results\source1
+
+	echo control the result
+	python compare.py .\results\source1 .\reference\source
+
+	echo ** tests: step 2 **
+
+	"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\empty_project.accdb" /X test_import
+
+	copy .\work\empty_project.accdb .\results\result1.accdb
+
+	"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "C:\APPLIS_PARC\OpenAccess\tests\work\project0.accdb" /X test_import
+
+	copy .\work\project0.accdb .\results\result2.accdb
+
+	echo ** end **
+
+	pause
+
+

tests_old/start_state/source/database.properties

@@ -0,0 +1,40 @@
+Connect		12
+QueryTimeout	60	3
+ANSI Query Mode	0	4
+Themed Form Controls	1	4
+Use Microsoft Access 2007 compatible cache	0	4
+Clear Cache on Close	0	4
+Never Cache	0	4
+AccessVersion	09.50	10
+NavPane Category	0	4
+Show Navigation Pane Search Bar	1	4
+Build	727	4
+ProjVer	119	3
+HasOfflineLists	70	3
+UseMDIMode	0	2
+ShowDocumentTabs	Vrai	1
+Picture Property Storage Format	0	4
+WebDesignMode	0	2
+CheckTruncatedNumFields	1	4
+Theme Resource Name	Office Theme	10
+StartUpShowDBWindow	Vrai	1
+StartUpShowStatusBar	Vrai	1
+AllowShortcutMenus	Vrai	1
+AllowFullMenus	Vrai	1
+AllowBuiltInToolbars	Vrai	1
+AllowToolbarChanges	Vrai	1
+AllowSpecialKeys	Vrai	1
+UseAppIconForFrmRpt	Faux	1
+AllowDatasheetSchema	Vrai	1
+DesignWithData	Vrai	1
+Show Values Limit	1000	4
+Show Values in Indexed	1	4
+Show Values in Non-Indexed	1	4
+Show Values in Remote	0	4
+Auto Compact	0	4
+NavPane Closed	0	4
+NavPane Width	344	4
+NavPane View By	0	4
+NavPane Sort By	1	4
+Property Sheet Label Width	3525	4
+AppTitle	Project0 for CI OpenAccess	10