diff options
| author | Justus Winter <[email protected]> | 2017-04-19 14:09:44 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-04-24 12:14:03 +0000 |
| commit | f03d6897be904da58cad76b4bd07729922b47616 (patch) | |
| tree | 1d3ffd8817d7bc91ba3d50cb850a1d761f8b9c88 | |
| parent | gpgscm: Avoid fruitless garbage collection cycles. (diff) | |
| download | gnupg-f03d6897be904da58cad76b4bd07729922b47616.tar.gz gnupg-f03d6897be904da58cad76b4bd07729922b47616.zip | |
gpgscm: Move 'trace' and 'stringify'.
* tests/gpgscm/tests.scm (trace, stringify): Move...
* tests/gpgscm/lib.scm: ... here.
Signed-off-by: Justus Winter <[email protected]>
| -rw-r--r-- | tests/gpgscm/lib.scm | 12 | ||||
| -rw-r--r-- | tests/gpgscm/tests.scm | 12 |
2 files changed, 12 insertions, 12 deletions
diff --git a/tests/gpgscm/lib.scm b/tests/gpgscm/lib.scm index ed3d572c1..cafca8dd4 100644 --- a/tests/gpgscm/lib.scm +++ b/tests/gpgscm/lib.scm @@ -29,6 +29,18 @@ (assert #t) (assert (not #f)) +;; Trace displays and returns the given value. A debugging aid. +(define (trace x) + (display x) + (newline) + x) + +;; Stringification. +(define (stringify expression) + (let ((p (open-output-string))) + (write expression p) + (get-output-string p))) + (define (filter pred lst) (cond ((null? lst) '()) ((pred (car lst)) diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm index 592b36f93..4107889b7 100644 --- a/tests/gpgscm/tests.scm +++ b/tests/gpgscm/tests.scm @@ -17,18 +17,6 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, see <http://www.gnu.org/licenses/>. -;; Trace displays and returns the given value. A debugging aid. -(define (trace x) - (display x) - (newline) - x) - -;; Stringification. -(define (stringify expression) - (let ((p (open-output-string))) - (write expression p) - (get-output-string p))) - ;; Reporting. (define (echo . msg) (for-each (lambda (x) (display x) (display " ")) msg) |