TEST: using environmental variable to avoid interactive password input

Oldes · Oldes · commit e4b598d3c42f · 2022-07-11T15:38:02.000+02:00
diff --git a/src/tests/units/codecs-test.r3 b/src/tests/units/codecs-test.r3
@@ -742,6 +742,9 @@ foreach str [
 
 
 if find codecs 'safe [
+	;- using environmental variable to avoid interactive password input using `ask`
+	temp: get-env "REBOL_SAFE_PASS"
+	set-env "REBOL_SAFE_PASS" "my-pass"
 	===start-group=== "SAFE codec"		
 		--test-- "Save/Load SAFE file"
 			foreach data [
@@ -754,6 +757,7 @@ if find codecs 'safe [
 				delete %temp.safe
 			]
 	===end-group===
+	set-env "REBOL_SAFE_PASS" :temp
 ]
 
 

Original file line number	Diff line number	Diff line change
`@@ -742,6 +742,9 @@ foreach str [`
`742`	`742`
`743`	`743`
`744`	`744`	`if find codecs 'safe [`
	`745`	+ ;- using environmental variable to avoid interactive password input using `ask`
	`746`	`+ temp: get-env "REBOL_SAFE_PASS"`
	`747`	`+ set-env "REBOL_SAFE_PASS" "my-pass"`
`745`	`748`	`===start-group=== "SAFE codec"`
`746`	`749`	`--test-- "Save/Load SAFE file"`
`747`	`750`	`foreach data [`
`@@ -754,6 +757,7 @@ if find codecs 'safe [`
`754`	`757`	`delete %temp.safe`
`755`	`758`	`]`
`756`	`759`	`===end-group===`
	`760`	`+ set-env "REBOL_SAFE_PASS" :temp`
`757`	`761`	`]`
`758`	`762`
`759`	`763`