From db9c06aff1a32daef2601c6e770be3a01ca9ef2a Mon Sep 17 00:00:00 2001 From: shhyou Date: Thu, 31 Dec 2020 11:39:24 -0600 Subject: [PATCH] Install local package catalog in Windows CI --- .github/workflows/ci_win.yml | 5 +++++ pkgs/racket-test/tests/xml/test.rkt | 17 +++++++++++++---- 2 files changed, 18 insertions(+), 4 deletions(-) diff --git a/.github/workflows/ci_win.yml b/.github/workflows/ci_win.yml index 3d1b3e7315..ae983e11f9 100644 --- a/.github/workflows/ci_win.yml +++ b/.github/workflows/ci_win.yml @@ -41,6 +41,11 @@ jobs: shell: cmd run: | call racket\racket.exe --version + - name: Install catalog + shell: cmd + run: | + racket\racket.exe -l- pkg/dirs-catalog --immediate %cd%\rktcat %cd%\pkgs\ + racket\raco.exe pkg config --set catalogs %cd%\rktcat\ https://pkgs.racket-lang.org https://planet-compats.racket-lang.org - name: Install Testing Deps shell: cmd run: | diff --git a/pkgs/racket-test/tests/xml/test.rkt b/pkgs/racket-test/tests/xml/test.rkt index 43ef542157..e0b2e08f90 100644 --- a/pkgs/racket-test/tests/xml/test.rkt +++ b/pkgs/racket-test/tests/xml/test.rkt @@ -1,11 +1,18 @@ #lang racket (require rackunit rackunit/text-ui + racket/string xml xml/plist mzlib/etc "to-list.rkt") +(define (fix-newline s) + (define p (open-input-string s)) + (begin0 + (string-join (port->lines p) "\n") + (close-input-port p))) + ;; test-bad-read-input : format-str str -> void ;; First argument is the input, second is the error message (define ((mk-test-read-xml/exn read-xml) format-str err-string) @@ -81,10 +88,11 @@ END (read-xml (open-input-string source-string))) (define result-string (with-output-to-string (lambda () (write-xml source-document)))) - (define expected-string #< END - ) + )) (test-equal? "DOCTYPE dropping" result-string expected-string))) @@ -797,12 +805,13 @@ END (data "some data")) (assoc-pair "eighth-key" (date "2013-05-10T20:29:55Z")))) - (define example-str #< first-keyjust a string with some whitespace in itsecond-keythird-keyfourth-keyinner-key3.432fifth-key14another stringsixth-keyseventh-keysome dataeighth-key2013-05-10T20:29:55Z END - )] + ))] (test-suite "PList Library"