summaryrefslogtreecommitdiff
path: root/tests/bournish.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2017-01-25 20:52:27 +0100
committerRicardo Wurmus <rekado@elephly.net>2017-01-26 13:49:56 +0100
commit0db2ff65e7101951fedf4357aa37aaf92f7df431 (patch)
tree9111445a899fd8815785c5a968087a31b5eb77e4 /tests/bournish.scm
parent2f977d92d3ae517788d3dee98f63680ca149aa1a (diff)
downloadpatches-0db2ff65e7101951fedf4357aa37aaf92f7df431.tar
patches-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.scm12
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")