;;; 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")


</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=554245dad0eeee8b8bdc7f219dce499715f33e09'>root</a>/<a href='/guix/log/gnu?id=554245dad0eeee8b8bdc7f219dce499715f33e09'>gnu</a>/<a href='/guix/log/gnu/packages?id=554245dad0eeee8b8bdc7f219dce499715f33e09'>packages</a>/<a href='/guix/log/gnu/packages/bootstrap?id=554245dad0eeee8b8bdc7f219dce499715f33e09'>bootstrap</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/bootstrap?id=554245dad0eeee8b8bdc7f219dce499715f33e09&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2017-02-20 12:58:07 +0200'>2017-02-20</span></td><td><a href='/guix/commit/gnu/packages/bootstrap?id=3b88f3767d9f3ad2cc64173525cd53d429bfe7e7'>gnu: Add bootstrap-binaries for 'aarch64-linux'.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2015-03-31 23:07:17 +0200'>2015-03-31</span></td><td><a href='/guix/commit/gnu/packages/bootstrap?id=4c0d38bee3a4b264490f33adf45bb226c110716c'>gnu: Update bootstrap binaries for x86_64 and i686.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-01-07 21:47:51 -0500'>2015-01-07</span></td><td><a href='/guix/commit/gnu/packages/bootstrap?id=aa1e19477b2d78884fc500fef497cd6677604d9b'>gnu: Add bootstrap binaries for 'armhf-linux'.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
ommit/etc/committer.scm.in?id=50c2dcd1c977f98681a4e457b2bcf09d96588eee'>etc: committer: Support reading G-expressions.</a><span class='msg-avail'>...</span></td><td>Maxime Devos</td></tr>
<tr><td><span title='2021-05-04 11:52:23 +0200'>2021-05-04</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=570b3d32b92fb2220c5ecd9302f4fa85947d4bff'>etc: Break long lines in commit messages.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-12 21:42:15 +0200'>2021-04-12</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=a6ac141ebb2efabbd47cbb04dfeb13779b7e50f6'>etc/committer: Add missing newline.</a><span class='msg-avail'>...</span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2021-04-12 21:42:15 +0200'>2021-04-12</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=d375eddda0b407b29ce0f7d29a582623cef20a89'>etc/committer: Use git plumbing instead of porcelain.</a><span class='msg-avail'>...</span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2021-04-08 17:12:06 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=c762df54786fd6f005f3b5307323f1d2df3cbf0b'>etc/committer: Disable diff colors.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-08 03:10:14 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=83991a34d5c1d4985e54dd029a81412277ad062a'>etc/committer: Recompute hunks before processing changes.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-08 03:10:14 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=43fb6b765d82ea5acfdc83f61472d99594ee1cbf'>etc/committer: Record minimal context for hunks to avoid problems.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-08 03:10:14 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=56270c1275d8dcdec80c04c032079b694204052a'>etc/committer: Define delay duration as a variable.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-08 03:10:13 +0200'>2021-04-08</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=c8c3afe8485bd614692f13e1e8a4200136da1302'>etc/committer: Handle package additions.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2020-10-06 00:34:59 +0200'>2020-10-06</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=59fe30a3a860212ede0cd3c97e58a5f6bca8b65b'>etc: committer: Use EQUAL? instead of EQ? for differences.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2020-06-16 11:32:53 +0200'>2020-06-16</span></td><td><a href='/guix/commit/etc/committer.scm.in?id=76a841cc8bd091db741758ae5553c714f2c38543'>etc: Add committer script.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>