Fix tests by providing a fake req

This commit is contained in:
Cadence Ember 2022-11-30 00:36:53 +13:00
parent 9afccbb9cd
commit 50a3bc819a
Signed by: cadence
GPG key ID: BC1C2C61CF521B17
5 changed files with 24 additions and 7 deletions

View file

@ -1,6 +1,7 @@
#lang racket/base
(require racket/file
racket/list
racket/runtime-path
racket/string
json
(prefix-in easy: net/http-easy)
@ -29,17 +30,19 @@
(module+ test
(require rackunit
html-writing))
html-writing
"test-utils.rkt"))
(define always-headers
(list (header #"Referrer-Policy" #"same-origin") ; header to not send referers to fandom
(header #"Link" (string->bytes/latin-1 link-header))))
(define timeouts (easy:make-timeout-config #:lease 5 #:connect 5))
(define-runtime-path path-static "../static")
(define theme-icons
(for/hasheq ([theme '(default light dark)])
(values theme
(html->xexp (file->string (format "static/icon-theme-~a.svg" theme) #:mode 'binary)))))
(html->xexp (file->string (build-path path-static (format "icon-theme-~a.svg" theme)) #:mode 'binary)))))
(define (application-footer source-url #:license [license-in #f])
(define license (or license-in license-default))
@ -190,6 +193,7 @@
(parameterize ([(config-parameter 'strict_proxy) "true"])
(generate-wiki-page
'(template)
#:req test-req
#:source-url ""
#:title "test"
#:wikiname "test")))

View file

@ -24,7 +24,8 @@
page-category)
(module+ test
(require rackunit)
(require rackunit
"test-utils.rkt")
(define category-json-data
'#hasheq((batchcomplete . #t) (continue . #hasheq((cmcontinue . "page|4150504c45|41473") (continue . "-||"))) (query . #hasheq((categorymembers . (#hasheq((ns . 0) (pageid . 25049) (title . "Item (entity)")) #hasheq((ns . 0) (pageid . 128911) (title . "3D")) #hasheq((ns . 0) (pageid . 124018) (title . "A Very Fine Item")) #hasheq((ns . 0) (pageid . 142208) (title . "Amethyst Shard")) #hasheq((ns . 0) (pageid . 121612) (title . "Ankle Monitor")))))))))
@ -119,6 +120,7 @@
(module+ test
(check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Ankle_Monitor")
(generate-results-page
#:req test-req
#:source-url ""
#:wikiname "test"
#:title "Category:Items"

View file

@ -23,7 +23,8 @@
(provide page-file)
(module+ test
(require rackunit)
(require rackunit
"test-utils.rkt")
(define test-media-detail
'#hasheq((fileTitle . "Example file")
(videoEmbedCode . "")
@ -162,7 +163,8 @@
(check-not-false
((query-selector
(attribute-selector 'src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fexamplefile")
(generate-results-page #:source-url ""
(generate-results-page #:req test-req
#:source-url ""
#:wikiname "test"
#:title "File:Example file"
#:media-detail test-media-detail

View file

@ -21,7 +21,8 @@
page-search)
(module+ test
(require rackunit)
(require rackunit
"test-utils.rkt")
(define search-json-data
'#hasheq((batchcomplete . #t) (query . #hasheq((search . (#hasheq((ns . 0) (pageid . 219) (size . 1482) (snippet . "") (timestamp . "2022-08-21T08:54:23Z") (title . "Gacha Capsule") (wordcount . 214)) #hasheq((ns . 0) (pageid . 201) (size . 1198) (snippet . "") (timestamp . "2022-07-11T17:52:47Z") (title . "Badges") (wordcount . 181)))))))))
@ -87,4 +88,4 @@
(write-html body out))))))
(module+ test
(check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Gacha_Capsule")
(generate-results-page "" "test" "Gacha" search-json-data)))))
(generate-results-page test-req "" "test" "Gacha" search-json-data)))))

8
src/test-utils.rkt Normal file
View file

@ -0,0 +1,8 @@
#lang racket/base
(require web-server/http/request-structs
net/url-structs
(only-in racket/promise delay))
(provide
test-req)
(define test-req (request #"GET" (url "https" #f "breezewiki.com" #f #t (list (path/param "" '())) '() #f) '() (delay '()) #f "127.0.0.1" 0 "127.0.0.1"))