From 0888a1116d12058aa3e7d44a61aa72fc9181bb78 Mon Sep 17 00:00:00 2001 From: Noel Welsh Date: Wed, 25 Mar 2009 12:37:28 +0000 Subject: [PATCH] Remove build.ss -- I'll miss itl, but it depends on planet. svn: r14266 --- collects/schemeunit/build.ss | 47 ------------------------------------ 1 file changed, 47 deletions(-) delete mode 100644 collects/schemeunit/build.ss diff --git a/collects/schemeunit/build.ss b/collects/schemeunit/build.ss deleted file mode 100644 index c357e9a8ee..0000000000 --- a/collects/schemeunit/build.ss +++ /dev/null @@ -1,47 +0,0 @@ -#lang scheme/base - -(require scheme/list - scheme/path - (only-in mzlib/etc this-expression-source-directory) - (planet schematics/sake:1) - "test.ss" - "text-ui.ss") - -(define here (this-expression-source-directory)) -(define package-name - (string-append (path->string (last (explode-path here))) ".plt")) - - -;; We can't use the Sake action:test as we want to use the -;; test.ss in this directory, not the one installed in the -;; PLaneT cache. -(define (schemeunit-action:test module-path binding) - (let ([n-failures (run-tests (dynamic-require module-path binding))]) - (if (zero? n-failures) - #t - (raise - (make-exn:fail (format "~a test(s) failed" n-failures) - (current-continuation-marks)))))) - -(define-task compile - () - (action:compile "all-tests.ss")) - -(define-task test - (compile) - (schemeunit-action:test "all-schemeunit-tests.ss" 'all-schemeunit-tests)) - -(define-task planet-install - (test) - (when (file-exists? "schemeunit.plt") - (delete-file "schemeunit.plt")) - (action:planet-archive ".") - (rename-file-or-directory package-name "schemeunit.plt") - (action:planet-remove "schematics" "schemeunit.plt" 3 4) - (action:planet-install "schematics" "schemeunit.plt" 3 4)) - -(define-task all - (planet-install)) - -(define-task default - (all))