;;; 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.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (test-bournish)
  #:use-module (guix build bournish)
  #:use-module (system base compile)
  #:use-module (system base language)
  #:use-module (srfi srfi-64))


(test-begin "bournish")

(test-equal "single statement"
  '(chdir "/foo")
  (read-and-compile (open-input-string "cd /foo")
                    #:from %bournish-language #:to 'scheme))

(test-equal "multiple statements"
  '(begin
     (chdir "/foo")
     (getcwd)
     ((@@ (guix build bournish) ls-command-implementation)))
  (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")

range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=d9f8e846b69fc89356d9497c0a51c53cb2e53a5e'>root</a>/<a href='/guix/log/gnu?id=d9f8e846b69fc89356d9497c0a51c53cb2e53a5e'>gnu</a>/<a href='/guix/log/gnu/packages?id=d9f8e846b69fc89356d9497c0a51c53cb2e53a5e'>packages</a>/<a href='/guix/log/gnu/packages/ncurses.scm?id=d9f8e846b69fc89356d9497c0a51c53cb2e53a5e'>ncurses.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/ncurses.scm?id=d9f8e846b69fc89356d9497c0a51c53cb2e53a5e&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-08-11 17:22:31 +0200'>2018-08-11</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=9aba9b127840a116c806a2cbac901cf8077abcd0'>Migrate search.cpan.org home pages to metacpan.org.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-08-11 02:00:45 +0200'>2018-08-11</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=c327bb4463d736045885ca9833d8a328e0dc6a16'>gnu: dialog: Update to 1.3-20180621.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-04-22 22:40:48 +0200'>2018-04-22</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=b0ff3606be036ee03f9680285dc167da5ee07e00'>gnu: ncurses: Do not use "install -s" when cross-compiling.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-03-20 14:22:06 -0400'>2018-03-20</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=ac21be848ac420d2106d4441e9e48ea6a60c5c8c'>Merge branch 'master' into core-updates</a></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-03-20 17:17:58 +0100'>2018-03-20</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=4a78fd4617908546be15d2c101f5cab512c71f8e'>Correct name and Email for ng0.</a><span class='msg-avail'>...</span></td><td>ng0</td></tr>
<tr><td><span title='2018-02-20 19:54:24 +0100'>2018-02-20</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=784d3b7e8e65cf9e6da6e2f3ffe3afa33f941230'>gnu: ncurses: Update to 6.1.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-02-20 19:29:12 +0100'>2018-02-20</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=5170bbd5bcbcdacff517641ac19b3ba8c2205c5e'>gnu: ncurses: Update phase style.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-01-19 23:59:20 -0500'>2018-01-19</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=e074a655dd6497daafbd62737e3b63f3d5aa7985'>Merge branch 'master' into core-updates</a></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-01-16 03:02:21 +0100'>2018-01-16</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=432fd269fadff0ba71fd494e5a548333f56adfef'>gnu: Use HTTPS for invisible-island.net home pages.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-01-16 02:56:46 +0100'>2018-01-16</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=9a412aa312485c3d55be3800e3dc9889ccda6b9e'>gnu: dialog: Update to 1.3-20171209.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-12-18 10:06:32 +0100'>2017-12-18</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=11b9a22366a8a0bd8f9ccdb95873085899c175ed'>gnu: ncurses: Fix cross-compilation.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-11-28 14:24:08 +0100'>2017-11-28</span></td><td><a href='/guix/commit/gnu/packages/ncurses.scm?id=667082d59104d4b964dce878f5e8c0f8ad1be958'>gnu: ncurses: Update to 6.0-20170930.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>