diff options
| author | Werner Koch <wk@gnupg.org> | 2022-11-02 17:03:05 +0100 |
|---|---|---|
| committer | Werner Koch <wk@gnupg.org> | 2022-11-02 17:03:05 +0100 |
| commit | 9b24d8ab5018c20dc6c917b5a89b3b1fcda3e6f9 (patch) | |
| tree | 842569e5c197bf3221d11e07b0837af7437d0fac /tests/openpgp/shell.scm | |
| parent | agent: Avoid blanks in the ssh key's comment. (diff) | |
| download | gnupg2-9b24d8ab5018c20dc6c917b5a89b3b1fcda3e6f9.tar.xz gnupg2-9b24d8ab5018c20dc6c917b5a89b3b1fcda3e6f9.zip | |
tests: Add tr:assert-same function.
* tests/gpgscm/tests.scm (tr:assert-same-string): New.
* tests/openpgp/shell.scm: Option to drop into a REPL.
Diffstat (limited to 'tests/openpgp/shell.scm')
| -rw-r--r-- | tests/openpgp/shell.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/openpgp/shell.scm b/tests/openpgp/shell.scm index 347b3a08c..af4f25498 100644 --- a/tests/openpgp/shell.scm +++ b/tests/openpgp/shell.scm @@ -47,7 +47,9 @@ (pathsep-split (getenv "PATH")))) #t) -(echo "\nEnjoy your test environment. " +(if (prompt-yes-no? "Run system shell" #t) + ((echo "\nEnjoy your test environment. " "Type 'exit' to exit it, it will be cleaned up after you.\n") - -(interactive-shell) + (interactive-shell)) + ((echo "\nEnjoy the REPL.") + (interactive-repl (current-environment)))) |