diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2017-01-25 20:52:27 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2017-01-26 13:49:56 +0100 |
| commit | 0db2ff65e7101951fedf4357aa37aaf92f7df431 (patch) | |
| tree | 9111445a899fd8815785c5a968087a31b5eb77e4 /tests/bournish.scm | |
| parent | 2f977d92d3ae517788d3dee98f63680ca149aa1a (diff) | |
| download | guix-0db2ff65e7101951fedf4357aa37aaf92f7df431.tar.gz | |
bournish: Extend 'rm' command.
* guix/build/bournish.scm (rm-command): New procedure. (%commands): Use it. * tests/bournish.scm: Add tests for "rm" and "rm -r".
Diffstat (limited to 'tests/bournish.scm')
| -rw-r--r-- | tests/bournish.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/bournish.scm b/tests/bournish.scm index 0f529ce42f..3b40ce2643 100644 --- a/tests/bournish.scm +++ b/tests/bournish.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -38,5 +39,16 @@ (read-and-compile (open-input-string "cd /foo\npwd\nls") #:from %bournish-language #:to 'scheme)) +(test-equal "rm" + '(for-each delete-file (list "foo" "bar")) + (read-and-compile (open-input-string "rm foo bar\n") + #:from %bournish-language #:to 'scheme)) + +(test-equal "rm -r" + '(for-each (@ (guix build utils) delete-file-recursively) + (list "/foo" "/bar")) + (read-and-compile (open-input-string "rm -r /foo /bar\n") + #:from %bournish-language #:to 'scheme)) + (test-end "bournish") |