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

Install local package catalog in Windows CI

Browse Source
This commit is contained in:
shhyou 2020-12-31 11:39:24 -06:00 committed by Sam Tobin-Hochstadt
parent f299c4304d
commit db9c06aff1
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.github/workflows/ci_win.yml vendored
View File

@ -41,6 +41,11 @@ jobs:
shell: cmd shell: cmd
run: | run: |
call racket\racket.exe --version 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 - name: Install Testing Deps
shell: cmd shell: cmd
run: | run: |

17
pkgs/racket-test/tests/xml/test.rkt
View File

@ -1,11 +1,18 @@
#lang racket #lang racket
(require rackunit (require rackunit
rackunit/text-ui rackunit/text-ui
racket/string
xml xml
xml/plist xml/plist
mzlib/etc mzlib/etc
"to-list.rkt") "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 ;; test-bad-read-input : format-str str -> void
;; First argument is the input, second is the error message ;; First argument is the input, second is the error message
(define ((mk-test-read-xml/exn read-xml) format-str err-string) (define ((mk-test-read-xml/exn read-xml) format-str err-string)
@ -81,10 +88,11 @@ END
(read-xml (open-input-string source-string))) (read-xml (open-input-string source-string)))
(define result-string (define result-string
(with-output-to-string (lambda () (write-xml source-document)))) (with-output-to-string (lambda () (write-xml source-document))))
(define expected-string #<<END (define expected-string
(fix-newline #<<END
<html xmlns="http://www.w3.org/1999/xhtml"> </html> <html xmlns="http://www.w3.org/1999/xhtml"> </html>
END END
) ))
(test-equal? (test-equal?
"DOCTYPE dropping" result-string expected-string))) "DOCTYPE dropping" result-string expected-string)))
@ -797,12 +805,13 @@ END
(data "some data")) (data "some data"))
(assoc-pair "eighth-key" (assoc-pair "eighth-key"
(date "2013-05-10T20:29:55Z")))) (date "2013-05-10T20:29:55Z"))))
(define example-str #<<END (define example-str
(fix-newline #<<END
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist SYSTEM "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> <!DOCTYPE plist SYSTEM "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="0.9"><dict><key>first-key</key><string>just a string with some whitespace in it</string><key>second-key</key><false /><key>third-key</key><dict /><key>fourth-key</key><dict><key>inner-key</key><real>3.432</real></dict><key>fifth-key</key><array><integer>14</integer><string>another string</string><true /></array><key>sixth-key</key><array /><key>seventh-key</key><data>some data</data><key>eighth-key</key><date>2013-05-10T20:29:55Z</date></dict></plist> <plist version="0.9"><dict><key>first-key</key><string>just a string with some whitespace in it</string><key>second-key</key><false /><key>third-key</key><dict /><key>fourth-key</key><dict><key>inner-key</key><real>3.432</real></dict><key>fifth-key</key><array><integer>14</integer><string>another string</string><true /></array><key>sixth-key</key><array /><key>seventh-key</key><data>some data</data><key>eighth-key</key><date>2013-05-10T20:29:55Z</date></dict></plist>
END END
)] ))]
(test-suite (test-suite
"PList Library" "PList Library"