;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.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-elpa)
  #:use-module (guix import elpa)
  #:use-module (guix tests http)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-64)
  #:use-module (ice-9 match)
  #:use-module (web client))

(define elpa-mock-archive
  '(1
    (ace-window .
                [(0 9 0)
                 ((avy
                   (0 2 0)))
                 "Quickly switch windows." single
                 ((:url . "https://github.com/abo-abo/ace-window")
                  (:keywords "window" "location"))])
    (auctex .
            [(11 88 6)
             nil "Integrated environment for *TeX*" tar
             ((:url . "http://www.gnu.org/software/auctex/"))])))

(test-begin "elpa")

(define (eval-test-with-elpa pkg)
  ;; Set up an HTTP server and use it as a pseudo-proxy so that
  ;; 'elpa->guix-package' talks to it.
  (with-http-server `((200 ,(object->string elpa-mock-archive))
                      (200 "This is the description.")
                      (200 "fake tarball contents"))
    (parameterize ((current-http-proxy (%local-url)))
      (match (elpa->guix-package pkg #:repo 'gnu/http)
        (('package
           ('name "emacs-auctex")
           ('version "11.88.6")
           ('source
            ('origin
              ('method 'url-fetch)
              ('uri ('string-append
                     "http://elpa.gnu.org/packages/auctex-" 'version ".tar"))
              ('sha256 ('base32 (? string? hash)))))
           ('build-system 'emacs-build-system)
           ('home-page "http://www.gnu.org/software/auctex/")
           ('synopsis "Integrated environment for *TeX*")
           ('description "This is the description.")
           ('license 'license:gpl3+))
         #t)
        (x
         (pk 'fail x #f))))))

(test-assert "elpa->guix-package test 1"
  (eval-test-with-elpa "auctex"))

(test-end "elpa")

;; Local Variables:
;; eval: (put 'with-http-server 'scheme-indent-function 1)
;; End:
>
<tr><td><span title='2021-12-01 17:53:25 +0100'>2021-12-01</span></td><td><a href='/guix/commit/tests/hackage.scm?id=39f4ef59ffc37259de40f67c476a1a720aa8d007'>build-system: haskell: Add ‘hackage-uri’ procedure.</a><span class='msg-avail'>...</span></td><td>Xinglu Chen</td></tr>
<tr><td><span title='2021-09-17 01:25:52 +0200'>2021-09-17</span></td><td><a href='/guix/commit/tests/hackage.scm?id=5c3cb22c9b2810669999e044b2de5e9331011a83'>Merge branch 'master' into core-updates-frozen</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2021-09-15 14:28:38 +0200'>2021-09-15</span></td><td><a href='/guix/commit/tests/hackage.scm?id=a840caccaee8c9492f4cc8a7ba802ef54391f199'>import: cabal: Treat identifier names correctly.</a><span class='msg-avail'>...</span></td><td>Xinglu Chen</td></tr>
<tr><td><span title='2021-07-20 23:43:29 +0200'>2021-07-20</span></td><td><a href='/guix/commit/tests/hackage.scm?id=81a87222a1c26fca9fd642213129184ea0fb5185'>import: hackage: Emit new-style package inputs.</a><span class='msg-avail'>...</span></td><td>Sarah Morgensen</td></tr>
<tr><td><span title='2021-06-25 15:12:05 +0200'>2021-06-25</span></td><td><a href='/guix/commit/tests/hackage.scm?id=dfac3e643a924ccefc997b4433a0b5c35928d657'>import: hackage: Support "common" field and imports</a><span class='msg-avail'>...</span></td><td>Philip Munksgaard</td></tr>
<tr><td><span title='2021-05-22 23:39:27 +0200'>2021-05-22</span></td><td><a href='/guix/commit/tests/hackage.scm?id=cfec09a9928e171a724f630ba652ea0241d52e92'>import: hackage: Prefix licenses with 'license:'.</a><span class='msg-avail'>...</span></td><td>Xinglu Chen</td></tr>
<tr><td><span title='2019-06-20 14:07:01 +0200'>2019-06-20</span></td><td><a href='/guix/commit/tests/hackage.scm?id=b46a9b9a5e833989396565c9d924cc97ce080703'>import: hackage: Add two expected failing test cases.</a><span class='msg-avail'>...</span></td><td>Robert Vollmert</td></tr>
<tr><td><span title='2019-06-13 22:18:52 -0400'>2019-06-13</span></td><td><a href='/guix/commit/tests/hackage.scm?id=ca45da9fc9b1eee399ce4344b18cbb129daeca4c'>import: hackage: Handle Hackage revisions.</a><span class='msg-avail'>...</span></td><td>Robert Vollmert</td></tr>
<tr><td><span title='2019-06-02 22:16:05 +0200'>2019-06-02</span></td><td><a href='/guix/commit/tests/hackage.scm?id=959c9d159da2c53b87ae0af1421aecac98b20f46'>import: hackage: Parse braced properties.</a><span class='msg-avail'>...</span></td><td>Robert Vollmert</td></tr>
<tr><td><span title='2019-06-02 22:12:19 +0200'>2019-06-02</span></td><td><a href='/guix/commit/tests/hackage.scm?id=64d31813577b7471f819652e3ec81abb285bb77c'>tests: hackage: Test multiline cabal description.</a><span class='msg-avail'>...</span></td><td>Robert Vollmert</td></tr>
<tr><td><span title='2019-06-02 22:07:53 +0200'>2019-06-02</span></td><td><a href='/guix/commit/tests/hackage.scm?id=ea35f5c599a2fe4d6ab2925b1030f64e8b21e195'>tests: Fix hackage tests.</a><span class='msg-avail'>...</span></td><td>Robert Vollmert</td></tr>
<tr><td><span title='2019-06-01 15:26:30 +0200'>2019-06-01</span></td><td><a href='/guix/commit/tests/hackage.scm?id=0be465924c6f745618a73eea816aa15aba7c8d30'>tests: Indent hackage tests</a><span class='msg-avail'>...</span></td><td>Robert Vollmert</td></tr>
<tr><td><span title='2019-06-01 15:26:30 +0200'>2019-06-01</span></td><td><a href='/guix/commit/tests/hackage.scm?id=4110cde00560bd97cc8d83c34b80c52f37c680a2'>tests: hackage: Don't mock hackage-fetch.</a><span class='msg-avail'>...</span></td><td>Robert Vollmert</td></tr>
<tr><td><span title='2019-06-01 15:26:30 +0200'>2019-06-01</span></td><td><a href='/guix/commit/tests/hackage.scm?id=55c98f3261b6ced2c38e060566e1eb952bd3e42b'>tests: hackage: Factor out package pattern.</a><span class='msg-avail'>...</span></td><td>Robert Vollmert</td></tr>
<tr><td><span title='2019-05-26 23:20:30 +0200'>2019-05-26</span></td><td><a href='/guix/commit/tests/hackage.scm?id=ad7466aafd7f166d0b6be5eb32dda1d3ee8a6445'>import: hackage: Fix Cabal test.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-07-12 20:35:04 +0200'>2018-07-12</span></td><td><a href='/guix/commit/tests/hackage.scm?id=e39a44f34010e4439fc3fc4925b3f26b7ca6d719'>import: hackage: Evaluate "-any" and "-none" version comparison operators.</a><span class='msg-avail'>...</span></td><td>Danny Milosavljevic</td></tr>