diff options
Diffstat (limited to 'share')
| -rwxr-xr-x | share/spack/qa/setup-env-test.fish | 50 | ||||
| -rwxr-xr-x | share/spack/qa/setup-env-test.sh | 12 | ||||
| -rwxr-xr-x | share/spack/qa/test-framework.sh | 30 |
3 files changed, 85 insertions, 7 deletions
diff --git a/share/spack/qa/setup-env-test.fish b/share/spack/qa/setup-env-test.fish index 5cd257aa86..c48ecf4bc4 100755 --- a/share/spack/qa/setup-env-test.fish +++ b/share/spack/qa/setup-env-test.fish @@ -88,7 +88,7 @@ end function spt_succeeds printf "'$argv' succeeds ... " - set -l output (eval $argv 2>&1) + set -l output ($argv 2>&1) # Save the command result set cmd_status $status @@ -115,7 +115,7 @@ end function spt_fails printf "'$argv' fails ... " - set -l output (eval $argv 2>&1) + set -l output ($argv 2>&1) if test $status -eq 0 fail @@ -143,7 +143,7 @@ function spt_contains printf "'$remaining_args' output contains '$target_string' ... " - set -l output (eval $remaining_args 2>&1) + set -l output ($remaining_args 2>&1) # Save the command result set cmd_status $status @@ -167,6 +167,41 @@ end # +# Ensure that a string is not in the output of a command. The command must have a 0 exit +# status to guard against false positives. Suppresses output on success. +# On failure, echo the exit code and output. +# +function spt_does_not_contain + set -l target_string $argv[1] + set -l remaining_args $argv[2..-1] + + printf "'$remaining_args' does not contain '$target_string' ... " + + set -l output ($remaining_args 2>&1) + + # Save the command result + set cmd_status $status + + if test $cmd_status -ne 0 + fail + echo_red "Command exited with error $cmd_status." + else if not echo "$output" | string match -q -r ".*$target_string.*" + pass + return + else + fail + echo_red "'$target_string' was in the output." + end + if test -n "$output" + echo_msg "Output:" + echo "$output" + else + echo_msg "No output." + end +end + + +# # Ensure that a variable is set. # function is_set @@ -255,12 +290,13 @@ spack -m install --fake a # create a test environment for testing environment commands echo "Creating a mock environment" spack env create spack_test_env +spack env create spack_test_2_env # ensure that we uninstall b on exit function spt_cleanup -p %self echo "Removing test environment before exiting." spack env deactivate 2>&1 > /dev/null - spack env rm -y spack_test_env + spack env rm -y spack_test_env spack_test_2_env title "Cleanup" echo "Removing test packages before exiting." @@ -366,6 +402,12 @@ is_set SPACK_ENV spack env deactivate is_not_set SPACK_ENV +echo "Testing spack env activate repeatedly" +spack env activate spack_test_env +spack env activate spack_test_2_env +spt_contains 'spack_test_2_env' 'fish' '-c' 'echo $PATH' +spt_does_not_contain 'spack_test_env' 'fish' '-c' 'echo $PATH' + # # NOTE: `--prompt` on fish does nothing => currently not implemented. # diff --git a/share/spack/qa/setup-env-test.sh b/share/spack/qa/setup-env-test.sh index 88e30aefeb..bddf7ca1af 100755 --- a/share/spack/qa/setup-env-test.sh +++ b/share/spack/qa/setup-env-test.sh @@ -70,13 +70,13 @@ b_module=$(spack -m module tcl find b) # Create a test environment for testing environment commands echo "Creating a mock environment" spack env create spack_test_env -test_env_location=$(spack location -e spack_test_env) +spack env create spack_test_2_env # Ensure that we uninstall b on exit cleanup() { echo "Removing test environment before exiting." spack env deactivate 2>&1 > /dev/null - spack env rm -y spack_test_env + spack env rm -y spack_test_env spack_test_2_env title "Cleanup" echo "Removing test packages before exiting." @@ -178,4 +178,10 @@ echo "Testing 'spack env activate --temp'" spack env activate --temp is_set SPACK_ENV spack env deactivate -is_not_set SPACK_ENV
\ No newline at end of file +is_not_set SPACK_ENV + +echo "Testing spack env activate repeatedly" +spack env activate spack_test_env +spack env activate spack_test_2_env +contains "spack_test_2_env" sh -c 'echo $PATH' +does_not_contain "spack_test_env" sh -c 'echo $PATH' diff --git a/share/spack/qa/test-framework.sh b/share/spack/qa/test-framework.sh index 4df37cd906..92b82644ca 100755 --- a/share/spack/qa/test-framework.sh +++ b/share/spack/qa/test-framework.sh @@ -133,6 +133,36 @@ contains() { } # +# Ensure that a string is not in the output of a command. The command must have a 0 exit +# status to guard against false positives. Suppresses output on success. +# On failure, echo the exit code and output. +# +does_not_contain() { + string="$1" + shift + + printf "'%s' output does not contain '$string' ... " "$*" + output=$("$@" 2>&1) + err="$?" + + if [ "$err" != 0 ]; then + fail + elif [ "${output#*$string}" = "${output}" ]; then + pass + return + else + fail + echo_red "'$string' was in the output." + fi + if [ -n "$output" ]; then + echo_msg "Output:" + echo "$output" + else + echo_msg "No output." + fi +} + +# # Ensure that a variable is set. # is_set() { |