From 6ffc4eeb7e0778b210634f03aaa139f007831a5a Mon Sep 17 00:00:00 2001 From: Greg Hendershott Date: Fri, 4 Oct 2024 18:13:53 -0400 Subject: [PATCH] Add check-true failure message --- racket/scribble.rkt | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/racket/scribble.rkt b/racket/scribble.rkt index 6604e650..f5466524 100644 --- a/racket/scribble.rkt +++ b/racket/scribble.rkt @@ -255,7 +255,8 @@ [(list "match" "syntax" "racket/match, racket" family _path _anchor) (equal? family (if older? "" "Racket"))] - [_ #f]))) + [_ #f])) + (format "~v" results)) (when (rhombus-installed?) (check-true (for/or ([v (in-list results)]) (match v @@ -263,21 +264,24 @@ _path _anchor) (and (equal? family (if older? "" "Rhombus")) (equal? kind (if older? "value" "expression")))] - [_ #f]))))) + [_ #f])) + (format "~v" results)))) (let ([results (doc-index-lookup "set-label")]) (check-true (for/or ([v (in-list results)]) (match v [(list "set-label" "method of message%" "racket/gui/base, racket/gui" family _path _anchor) (equal? family (if older? "" "Racket"))] - [_ #f])))) + [_ #f])) + (format "~v" results))) (let ([results (doc-index-lookup "print")]) (check-true (for/or ([v (in-list results)]) (match v [(list "print" "procedure" "racket/base, racket" family _path _anchor) (equal? family (if older? "" "Racket"))] - [_ #f]))) + [_ #f])) + (format "~v" results)) (when (rhombus-installed?) (check-true (for/or ([v (in-list results)]) (match v @@ -286,7 +290,8 @@ (and (equal? libs (if older? "(lib rhombus/rx.rhm)" "rhombus/rx")) (equal? family (if older? "" "Rhombus")) (equal? kind (if older? "value" "regexp charset operator")))] - [_ #f])))))) + [_ #f])) + (format "~v" results))))) ;;; This is for the requires/find command