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

Rackety (102 columns)

Browse Source
This commit is contained in:
Robby Findler 2013-09-13 10:38:18 -05:00
parent e74b26fdbc
commit dd116a391c
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pkgs/racket-pkgs/racket-test/tests/planet/cmdline-tool.rkt
View File

@ -38,7 +38,11 @@ using 'system' to call out to the tool and then reading its results, etc.
(let ([result (call-planet "show")])
(unless (regexp-match #rx"No packages" result)
(error 'cmdline-tool.rkt "please clear out all planet packages before running this test.\n============================================================\n~a" result)))
(error 'cmdline-tool.rkt
(string-append
"please clear out all planet packages before running this test.\n"
"============================================================\n~a"
result))))
(when (file-exists? test-connection.plt-cache)
(delete-file test-connection.plt-cache))
@ -112,7 +116,10 @@ using 'system' to call out to the tool and then reading its results, etc.
(printf "done\n")
(unless (same-file? direct-file (list-ref test-connection-spec 1))
(error 'cmdline-tool.rkt "expected planet fetch and planet url to point at the same file, but found different ones"))
(error 'cmdline-tool.rkt
(string-append
"expected planet fetch and planet url to point at the same file,"
" but found different ones")))
(delete-file direct-file)
(printf "Download succesful\n"))
@ -186,12 +193,14 @@ using 'system' to call out to the tool and then reading its results, etc.
(delete-directory/files tmp-dir)
(printf "done\n")
(unless (equal? open-files structure-files)
(error 'cmdline-tool.rkt "expected planet structure to produce the same files as planet open, got ~s and ~s"
(error 'cmdline-tool.rkt
"expected planet structure to produce the same files as planet open, got ~s and ~s"
structure-files
open-files))
(unless (equal? doc.txt-fetch doc.txt-print)
(error 'cmdline-tool.rkt "expected planet print to produce the same content as the actual file, got\n~s\nand\n~s"
(error 'cmdline-tool.rkt
"expected planet print to produce the same content as the actual file, got\n~s\nand\n~s"
doc.txt-print
doc.txt-fetch)))
@ -277,7 +286,9 @@ using 'system' to call out to the tool and then reading its results, etc.
(define (ensure-not-there fn)
(when (file-exists? fn)
(error 'cmdline-tool.rkt
"test script expects no file named ~a to exist in the current directory (may have been left behind by test script, tho ... (which would be a bug))"
(string-append
"test script expects no file named ~a to exist in the current directory"
" (may have been left behind by test script, tho ... (which would be a bug))")
fn)))
;; same-file? : string-or-port string-or-port -> boolean