From 9561e94bd63608ec0ee6f2633a43b01cb14a0612 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 8 May 2008 17:30:06 +0000 Subject: [PATCH] made preference save/restore in pref.ss also be an admin-level printf svn: r9747 --- collects/tests/framework/prefs.ss | 6 ++++-- collects/tests/framework/test-suite-utils.ss | 6 +++--- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/collects/tests/framework/prefs.ss b/collects/tests/framework/prefs.ss index a083a7a485..5f3cecb444 100644 --- a/collects/tests/framework/prefs.ss +++ b/collects/tests/framework/prefs.ss @@ -21,7 +21,8 @@ (when (file-exists? prefs-file) (copy-file prefs-file saved-prefs-file) (delete-file prefs-file) - (printf "saved preferences file from ~s to ~s\n" prefs-file saved-prefs-file)) + (debug-printf admin "saved preferences file from ~s to ~s\n" + prefs-file saved-prefs-file)) (shutdown-mred) @@ -103,7 +104,8 @@ 'passed)))))) (when (file-exists? saved-prefs-file) - (printf "restoring preferences file from ~s to ~s\n" saved-prefs-file prefs-file) + (debug-printf admin "restoring preferences file from ~s to ~s\n" + saved-prefs-file prefs-file) (when (file-exists? prefs-file) (delete-file prefs-file)) (copy-file saved-prefs-file prefs-file) diff --git a/collects/tests/framework/test-suite-utils.ss b/collects/tests/framework/test-suite-utils.ss index 821b9e322e..abee625564 100644 --- a/collects/tests/framework/test-suite-utils.ss +++ b/collects/tests/framework/test-suite-utils.ss @@ -30,7 +30,8 @@ reset-section-name! set-section-name! set-only-these-tests! - get-only-these-tests) + get-only-these-tests + debug-printf) (define section-jump void) (define (set-section-jump! _s) (set! section-jump _s)) @@ -149,9 +150,8 @@ (namespace-require 'scheme/base) ;; in order to make the eval below work right. (define (send-sexp-to-mred sexp) (let/ec k - (let ([show-text + (let ([show-text (lambda (sexp) - (debug-when messages (parameterize ([pretty-print-print-line (let ([prompt " "]