This is an automated email from the ASF dual-hosted git repository.
mxmanghi pushed a commit to branch quattuor
in repository https://gitbox.apache.org/repos/asf/tcl-rivet.git
commit a04bf1140eca0ba2cbecac32e72a394eb3ee18ec
Author: Massimo Manghi <massimo.man...@gmail.com>
AuthorDate: Mon Oct 25 18:48:13 2021 +0200
adding new test Tcl procedure
---
tests/env_methods.tcl | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/tests/env_methods.tcl b/tests/env_methods.tcl
new file mode 100644
index 0000000..e52b003
--- /dev/null
+++ b/tests/env_methods.tcl
@@ -0,0 +1,15 @@
+
+ set envvar [::rivet::var_qs get envvar]
+ set v1 [::rivet::env $envvar]
+
+ ::rivet::load_env loadenv
+ set v2 $loadenv($envvar)
+ set comp [string match $v1 $v2]
+ if {$comp} {
+ set msg OK
+ } else {
+ set msg "env: $v1, load_env: $v2"
+ }
+
+ puts -nonewline "$envvar: $msg"
+
---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscr...@tcl.apache.org
For additional commands, e-mail: commits-h...@tcl.apache.org
