From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from eggs.gnu.org ([2001:4830:134:3::10]:57407)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1dzMvg-0005Bk-9Q
	for guix-patches@gnu.org; Tue, 03 Oct 2017 09:08:15 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1dzMva-0003X0-HX
	for guix-patches@gnu.org; Tue, 03 Oct 2017 09:08:08 -0400
Received: from debbugs.gnu.org ([208.118.235.43]:36728)
	by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
	(Exim 4.71) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
	id 1dzMva-0003Wu-DW
	for guix-patches@gnu.org; Tue, 03 Oct 2017 09:08:02 -0400
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1dzMva-0000ae-7I
	for guix-patches@gnu.org; Tue, 03 Oct 2017 09:08:02 -0400
Subject: bug#28283: Status: [PATCH 1/1] gnu: services: version-control: Add
	cgit.
Resent-To: guix-patches@gnu.org
Resent-Message-ID: <handler.28283.D28283.15070360772247.done@debbugs.gnu.org>
From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=)
References: <87h8wq2hxw.fsf@gmail.com> <87a82i2hur.fsf@gmail.com>
	<873787rh4a.fsf@gnu.org> <87d16mv0o3.fsf@gnu.org>
	<87efr19fms.fsf@gmail.com> <87ingasvfx.fsf@gnu.org>
	<87h8vuehv6.fsf@gmail.com> <87d16ibeif.fsf@gnu.org>
	<874lrlr46b.fsf@gmail.com> <871smmr0sb.fsf@gnu.org>
	<87wp4cbvjj.fsf@gmail.com> <87tvzgbv42.fsf@gmail.com>
	<87r2ukbse3.fsf@gmail.com> <87mv58bs3g.fsf@gmail.com>
Date: Tue, 03 Oct 2017 15:07:40 +0200
In-Reply-To: <87mv58bs3g.fsf@gmail.com> (Oleg Pykhalov's message of "Tue, 03
	Oct 2017 10:36:35 +0300")
Message-ID: <87fub08jmr.fsf@gnu.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
List-Id: <guix-patches.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-patches>,
	<mailto:guix-patches-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/guix-patches/>
List-Post: <mailto:guix-patches@gnu.org>
List-Help: <mailto:guix-patches-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-patches>,
	<mailto:guix-patches-request@gnu.org?subject=subscribe>
Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org
Sender: "Guix-patches" <guix-patches-bounces+kyle=kyleam.com@gnu.org>
To: Oleg Pykhalov <go.wigust@gmail.com>
Cc: 28283-done@debbugs.gnu.org

Oleg Pykhalov <go.wigust@gmail.com> skribis:

> From 984b619620046015113cc4876569f5c87dd37c79 Mon Sep 17 00:00:00 2001
> From: Oleg Pykhalov <go.wigust@gmail.com>
> Date: Thu, 28 Sep 2017 20:02:35 +0300
> Subject: [PATCH] gnu: services: version-control: Add cgit.
>
> * gnu/services/version-control.scm
> (<cgit-configuration-file>, <cgit-configuration>): New record types.
> (cgit-configuration-robots-string, cgit-activation,
> cgit-configuration-nginx-config): New procedures.
> (%cgit-configuration-nginx, cgit-service-type): New variables.
> * doc/guix.texi (Version Control): Document the cgit service.
> ---
>  doc/guix.texi                    |  65 ++++++++++++++++
>  gnu/local.mk                     |   1 +
>  gnu/services/version-control.scm | 119 ++++++++++++++++++++++++++++-
>  gnu/tests/version-control.scm    | 161 +++++++++++++++++++++++++++++++++=
++++++
>  4 files changed, 345 insertions(+), 1 deletion(-)
>  create mode 100644 gnu/tests/version-control.scm

Awesome!

I took the liberty to add more URL tests:

--8<---------------cut here---------------start------------->8---
          ;; Make sure we can access pages that correspond to our repositor=
y.
          (letrec-syntax ((test-url
                           (syntax-rules ()
                             ((_ path code)
                              (test-equal (string-append "GET " path)
                                code
                                (let-values (((response body)
                                              (http-get (string-append
                                                         "http://localhost:=
8080"
                                                         path))))
                                  (response-code response))))
                             ((_ path)
                              (test-url path 200)))))
            (test-url "/")
            (test-url "/test")
            (test-url "/test/log")
            (test-url "/test/tree")
            (test-url "/test/does-not-exist" 404)
            (test-url "/does-not-exist" 404))
--8<---------------cut here---------------end--------------->8---

Will push in a minute.  Thank you!

Ludo=E2=80=99.