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

String constants for check-property error messages.

Browse Source
This commit is contained in:
Mike Sperber 2010-05-20 16:15:15 +02:00
parent 2f747dfa1f
commit 3e0d3b84ec
3 changed files with 8 additions and 2 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

@ -241,7 +241,7 @@
(formatter (not-range-min fail)) (formatter (not-range-min fail))
(formatter (not-range-max fail)))] (formatter (not-range-max fail)))]
[(property-fail? fail) [(property-fail? fail)
(print-string "Eigenschaft falsifizierbar mit") (print-string (string-constant test-engine-property-fail-error))
(for-each (lambda (arguments) (for-each (lambda (arguments)
(for-each (lambda (p) (for-each (lambda (p)
(if (car p) (if (car p)
@ -250,7 +250,7 @@
arguments)) arguments))
(result-arguments-list (property-fail-result fail)))] (result-arguments-list (property-fail-result fail)))]
[(property-error? fail) [(property-error? fail)
(print "`check-property' bekam den folgenden Fehler~n:: ~a" (print (string-constant test-engine-property-error-error)
(property-error-message fail))]) (property-error-message fail))])
(print-string "\n"))) (print-string "\n")))

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

@ -1433,6 +1433,10 @@ please adhere to these guidelines:
(test-engine-not-mem-error "Actual value ~F differs from all given members in ") (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.") (test-engine-not-range-error "Actual value ~F is not between ~F and ~F, inclusive.")
;; followed by list of variable bindings
(test-engine-property-fail-error "Property falsifiable with")
(test-engine-property-error-error "check-property encountered the following error~n:: ~a")
; section header ; section header
(test-engine-check-failures "Check failures:") (test-engine-check-failures "Check failures:")
; section header ; section header

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

@ -1333,6 +1333,8 @@
"check-error erwartete den folgenden Fehler, bekam aber den Wert ~F.~n ~a") "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-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).") (test-engine-not-range-error "Tatsächlicher Wert ~F liegt nicht zwischen ~F und ~F (inklusive).")
(test-engine-property-fail-error "Eigenschaft falsifizierbar mit")
(test-engine-property-error-error "`check-property' bekam den folgenden Fehler~n:: ~a")
; section header ; section header
(test-engine-check-failures "Check-Fehler:") (test-engine-check-failures "Check-Fehler:")