From a333b43259c3f33df4543ea881b9f4d570618dd0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 21 Nov 2011 08:26:51 -0600 Subject: [PATCH] make the planet cmdline-tool.rkt test more informative in the case that there are planet packages installed --- collects/tests/planet/cmdline-tool.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/tests/planet/cmdline-tool.rkt b/collects/tests/planet/cmdline-tool.rkt index b07d012b6d..77fad598ad 100644 --- a/collects/tests/planet/cmdline-tool.rkt +++ b/collects/tests/planet/cmdline-tool.rkt @@ -36,9 +36,10 @@ 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))