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

ct>
<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=0a08ea2a50ba5180f6cc73a2290f30cacca50630'>root</a>/<a href='/guix/log/gnu?id=0a08ea2a50ba5180f6cc73a2290f30cacca50630'>gnu</a>/<a href='/guix/log/gnu/packages?id=0a08ea2a50ba5180f6cc73a2290f30cacca50630'>packages</a>/<a href='/guix/log/gnu/packages/lxqt.scm?id=0a08ea2a50ba5180f6cc73a2290f30cacca50630'>lxqt.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/lxqt.scm?id=0a08ea2a50ba5180f6cc73a2290f30cacca50630&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-06-04 15:35:47 +0200'>2018-06-04</span></td><td><a href='/guix/commit/gnu/packages/lxqt.scm?id=e1345dec67a3c3681f6ae0bb40f61d140f4e0065'>gnu: lxqt-build-tools: Update to 0.5.0.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</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/lxqt.scm?id=4a78fd4617908546be15d2c101f5cab512c71f8e'>Correct name and Email for ng0.</a><span class='msg-avail'>...</span></td><td>ng0</td></tr>
<tr><td><span title='2017-10-22 16:05:26 -0700'>2017-10-22</span></td><td><a href='/guix/commit/gnu/packages/lxqt.scm?id=fc938a277548b928d5271fa084751ba9985836b6'>gnu: lxqt-common: Remove.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-09-26 10:28:16 +0200'>2017-09-26</span></td><td><a href='/guix/commit/gnu/packages/lxqt.scm?id=b36524c1b82f6807a9abdd05b0f767397344b682'>gnu: Add lxqt-build-tools.</a><span class='msg-avail'>...</span></td><td>ng0</td></tr>
<tr><td><span title='2016-06-17 09:14:12 +0300'>2016-06-17</span></td><td><a href='/guix/commit/gnu/packages/lxqt.scm?id=025597393c0fbdab17d1784e365330b9326c027f'>gnu: libqtxdg: Move qtbase to propagated-inputs.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2016-06-16 21:14:53 +0300'>2016-06-16</span></td><td><a href='/guix/commit/gnu/packages/lxqt.scm?id=1ccb3192419ed4fc88ec1ed6dddb73e0a2283be5'>gnu: lxqt-common: Add missing inputs.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2016-06-16 21:14:52 +0300'>2016-06-16</span></td><td><a href='/guix/commit/gnu/packages/lxqt.scm?id=e099d2a66f53a8cc79d605e82f35a3d6a331a8b7'>gnu: lxqt-session: Add missing inputs.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2016-06-16 21:14:51 +0300'>2016-06-16</span></td><td><a href='/guix/commit/gnu/packages/lxqt.scm?id=5c733afd4f39bf3696c2769aa9f9722662d4ec73'>gnu: liblxqt: Add missing inputs.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2016-06-16 21:12:38 +0300'>2016-06-16</span></td><td><a href='/guix/commit/gnu/packages/lxqt.scm?id=aa450b2bc41b0cedbebc4f8c0a51867a436cf02b'>gnu: libqtxdg: Build with qtbase.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2016-06-16 21:12:32 +0300'>2016-06-16</span></td><td><a href='/guix/commit/gnu/packages/lxqt.scm?id=3282442be9e2fcabfdd863db83e06576d84ba2ac'>gnu: lxqt: Update uris.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2016-04-14 10:38:21 +0300'>2016-04-14</span></td><td><a href='/guix/commit/gnu/packages/lxqt.scm?id=fc1adab1487e5ea3c5f6341263df14414ba4e784'>gnu: packages: Use 'search-patches' everywhere.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2016-02-14 08:48:13 -0500'>2016-02-14</span></td><td><a href='/guix/commit/gnu/packages/lxqt.scm?id=b042bdc8fdc2a89e51da852339c0ee86b7bedaf1'>gnu: lxqt: Update source URLs to use HTTPS.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>