suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

String constants for the remaining untranslated test-engine messages

Browse Source
This commit is contained in:
Mike Sperber 2010-05-20 16:05:15 +02:00
parent 8590e8cadf
commit 5f443141f1
4 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/deinprogramm/contract/contract-test-display.rkt
View File

@ -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)))]

3
collects/string-constants/english-string-constants.rkt
View File

@ -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:")

2
collects/string-constants/german-string-constants.rkt
View File

@ -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:")

4
collects/test-engine/test-display.scm
View File

@ -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)))]