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

make the planet cmdline-tool.rkt test more informative in the case that there are planet packages installed

Browse Source
This commit is contained in:
Robby Findler 2011-11-21 08:26:51 -06:00
parent 19ccc17bf6
commit a333b43259
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/planet/cmdline-tool.rkt
View File

@ -36,8 +36,9 @@ using 'system' to call out to the tool and then reading its results, etc.
(when debug? (display (get-output-string sp)))
(get-output-string sp)))
(unless (regexp-match #rx"No packages" (call-planet "show"))
(error 'cmdline-tool.rkt "please clear out all planet packages before running this test"))
(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)))
(when (file-exists? test-connection.plt-cache)
(delete-file test-connection.plt-cache))