Fix medelexis_OO test

elexis · Mar 25, 2021 · 634ee11 · 634ee11
1 parent 7ff15f3
commit 634ee11
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 47 deletions.
diff --git a/KernFunktionen/Hilfen/Kontexte/ecl_helpers.ctx b/KernFunktionen/Hilfen/Kontexte/ecl_helpers.ctx
@@ -5,7 +5,7 @@ Element-Name: ecl_helpers
 Element-Type: context
 Element-Version: 2.0
 Id: _Cr4zgP0jEeiNqfuAT0PA2A
-Save-Time: 12/25/20 11:29 AM
+Save-Time: 3/25/21 9:41 AM
 
 ------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa
 Content-Type: text/plain
@@ -196,6 +196,13 @@ concat "translation read" | log
 
 global [ val imagesDir	[ concat $resultsDir "images/" ] ]
 global [ val pdfDir	[ concat $resultsDir "pdf/" ] ]
+str "RCPTT created pdfDir" | write-lines [ concat $pdfDir "/dummy.txt" ]
+str "RCPTT created .localdoc/backup" | write-lines [ concat [get-user-dir] "/.localdoc/backup/dummy.txt" ]
+str "RCPTT created eHC/input" | write-lines [ concat [get-user-dir] "/eHC/input/dummy.txt" ]
+str "RCPTT created eHC/output" | write-lines [ concat [get-user-dir] "/eHC/output/dummy.txt" ]
+str "RCPTT created extern" | write-lines [ concat [get-user-dir] "/extern/dummy.txt" ]
+concat "RCPTT created pdfDir/extern/.localdoc/eHC directories " $pdfDir | log
+
 global [ val preferencesCsvFile [ uri-from-path [ concat  $resultsDir "preferences.csv" ] ] ]
 global [ val viewsCsvFile	    [ uri-from-path [ concat  $resultsDir "views.csv" ] ] ]
 concat "get-env HOME returns: " [get-env HOME ] |log

diff --git a/KernFunktionen/Tests/Rechnungen/medelexis_oo.test b/KernFunktionen/Tests/Rechnungen/medelexis_oo.test
diff --git a/KernFunktionen/Tests/Textverarbeitung/text_plugins_common.ctx b/KernFunktionen/Tests/Textverarbeitung/text_plugins_common.ctx
@@ -5,7 +5,7 @@ Element-Name: text_plugins_common
 Element-Type: context
 Element-Version: 2.0
 Id: _LkBSkBsDEembU9g-6bJhVg
-Save-Time: 12/23/20 10:40 PM
+Save-Time: 3/25/21 9:53 AM
 
 ------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998
 Content-Type: text/ecl
@@ -211,16 +211,9 @@ proc ConfigureMsOO_TextVerarbeitung {
 	EnsureOpenOfficeIsInstalled
 	get-preferences-menu | click
 	with [get-window [t preferences]] {
-		get-tree | select [t Textverarbeitung]
-		// Button name various on number of installed text plugins!
-		// There replace 0 :, etc by .*
 		get-window [t preferences] | gen-screenshot [concat $imagesDir "MsOO-select.png"]
-		with [get-button [t print_save_letter_extern]] {
-			uncheck // Must be unchecked for OpenOffice Text plugin
-		}
-		with [get-button [t pref_texte_lokal_editieren]] {
-			uncheck // Must be unchecked for OpenOffice Text plugin
-		}
+		get-button [t print_save_letter_extern] | uncheck // Must be unchecked for OpenOffice Text plugin
+		get-button [t pref_texte_lokal_editieren] | uncheck // Must be unchecked for OpenOffice Text plugin
 		get-button ".*OpenOffice 3.x" | click
 		get-tree | select "Textverarbeitung/OpenOffice.org"
 		with [get-editbox -after [get-label "Application home"]] {