From 5f443141f1347317914bbfa6cfbbe22a58bc28d9 Mon Sep 17 00:00:00 2001 From: Mike Sperber Date: Thu, 20 May 2010 16:05:15 +0200 Subject: [PATCH] String constants for the remaining untranslated test-engine messages --- collects/deinprogramm/contract/contract-test-display.rkt | 4 ++-- collects/string-constants/english-string-constants.rkt | 3 +++ collects/string-constants/german-string-constants.rkt | 2 ++ collects/test-engine/test-display.scm | 4 ++-- 4 files changed, 9 insertions(+), 4 deletions(-) diff --git a/collects/deinprogramm/contract/contract-test-display.rkt b/collects/deinprogramm/contract/contract-test-display.rkt index 9d9c955885..375d4c312e 100644 --- a/collects/deinprogramm/contract/contract-test-display.rkt +++ b/collects/deinprogramm/contract/contract-test-display.rkt @@ -231,12 +231,12 @@ [(message-error? fail) (for-each print-formatted (message-error-strings fail))] [(not-mem? fail) - (print "Tatsächlicher Wert ~F ist keins der Elemente " + (print (string-constant test-engine-not-mem-error) (formatter (not-mem-test fail))) (for-each (lambda (a) (print " ~F" (formatter a))) (not-mem-set fail)) (print ".")] [(not-range? fail) - (print "Tatsächlicher Wert ~F liegt nicht zwischen ~F und ~F (inklusive)." + (print (string-constant test-engine-not-range-error) (formatter (not-range-test fail)) (formatter (not-range-min fail)) (formatter (not-range-max fail)))] diff --git a/collects/string-constants/english-string-constants.rkt b/collects/string-constants/english-string-constants.rkt index 13789127a9..8e57799491 100644 --- a/collects/string-constants/english-string-constants.rkt +++ b/collects/string-constants/english-string-constants.rkt @@ -1429,6 +1429,9 @@ please adhere to these guidelines: "check-error encountered the following error instead of the expected ~a~n :: ~a") (test-engine-expected-error-error "check-error expected the following error, but instead received the value ~F.~n ~a") + ;; members are appended to the message + (test-engine-not-mem-error "Actual value ~F differs from all given members in ") + (test-engine-not-range-error "Actual value ~F is not between ~F and ~F, inclusive.") ; section header (test-engine-check-failures "Check failures:") diff --git a/collects/string-constants/german-string-constants.rkt b/collects/string-constants/german-string-constants.rkt index cd9871f9be..27f8766e91 100644 --- a/collects/string-constants/german-string-constants.rkt +++ b/collects/string-constants/german-string-constants.rkt @@ -1331,6 +1331,8 @@ "check-error bekam den folgenden Fehler anstatt des erwarteten ~a~n :: ~a") (test-engine-expected-error-error "check-error erwartete den folgenden Fehler, bekam aber den Wert ~F.~n ~a") + (test-engine-not-mem-error "Tatsächlicher Wert ~F ist keins der Elemente ") + (test-engine-not-range-error "Tatsächlicher Wert ~F liegt nicht zwischen ~F und ~F (inklusive).") ; section header (test-engine-check-failures "Check-Fehler:") diff --git a/collects/test-engine/test-display.scm b/collects/test-engine/test-display.scm index ae1c077078..04c01f88a8 100644 --- a/collects/test-engine/test-display.scm +++ b/collects/test-engine/test-display.scm @@ -258,12 +258,12 @@ [(message-error? fail) (for-each print-formatted (message-error-strings fail))] [(not-mem? fail) - (print "Actual value ~F differs from all given members in " + (print (string-constant test-engine-not-mem-error) (formatter (not-mem-test fail))) (for-each (lambda (a) (print " ~F" (formatter a))) (not-mem-set fail)) (print ".")] [(not-range? fail) - (print "Actual value ~F is not between ~F and ~F, inclusive." + (print (string-constant test-engine-not-range-error) (formatter (not-range-test fail)) (formatter (not-range-min fail)) (formatter (not-range-max fail)))]