From 99be807b73a9204ec4c98562c66229a53f38eedb Mon Sep 17 00:00:00 2001 From: blankie Date: Sun, 9 Oct 2022 14:23:07 +0700 Subject: [PATCH] more ` --- src/page-file.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/page-file.rkt b/src/page-file.rkt index c33b7b9..f51f945 100644 --- a/src/page-file.rkt +++ b/src/page-file.rkt @@ -44,13 +44,13 @@ (module+ test (require rackunit) (parameterize ([(config-parameter 'strict_proxy) "true"]) - (check-equal? (get-media-html "https://static.wikia.nocookie.net/a" "image/jpeg") (img (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fa")))) - (check-equal? (get-media-html "https://static.wikia.nocookie.net/b" "audio/mp3") (audio (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fb"))))) + (check-equal? (get-media-html "https://static.wikia.nocookie.net/a" "image/jpeg") `(img (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fa")))) + (check-equal? (get-media-html "https://static.wikia.nocookie.net/b" "audio/mp3") `(audio (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fb"))))) (parameterize ([(config-parameter 'strict_proxy) "no"]) - (check-equal? (get-media-html "https://static.wikia.nocookie.net/c" "application/ogg") (audio (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fc")))) - (check-equal? (get-media-html "https://static.wikia.nocookie.net/d" "video/mp4") (video (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fd"))))) - (check-equal? (get-media-html "https://example.com" "who knows") "") - (check-equal? (get-media-html #f "who knows") "")) + (check-equal? (get-media-html "https://static.wikia.nocookie.net/c" "application/ogg") `(audio (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fc")))) + (check-equal? (get-media-html "https://static.wikia.nocookie.net/d" "video/mp4") `(video (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fd"))))) + (check-equal? (get-media-html "https://example.com" "who knows") `"") + (check-equal? (get-media-html #f "who knows") `"")) (define (generate-results-page #:source-url source-url #:wikiname wikiname