From debbugs-submit-bounces@debbugs.gnu.org Tue Apr 17 10:56:27 2018 Received: (at submit) by debbugs.gnu.org; 17 Apr 2018 14:56:27 +0000 Received: from localhost ([127.0.0.1]:57661 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f8S1x-0001qY-Cg for submit@debbugs.gnu.org; Tue, 17 Apr 2018 10:56:27 -0400 Received: from eggs.gnu.org ([208.118.235.92]:40762) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f8S1v-0001qL-Kh for submit@debbugs.gnu.org; Tue, 17 Apr 2018 10:56:24 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1f8S1m-0006g2-FA for submit@debbugs.gnu.org; Tue, 17 Apr 2018 10:56:18 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,FREEMAIL_FROM, T_DKIM_INVALID autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:53979) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1f8S1m-0006fe-B8 for submit@debbugs.gnu.org; Tue, 17 Apr 2018 10:56:14 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:59934) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1f8S1k-0001H4-VH for guix-patches@gnu.org; Tue, 17 Apr 2018 10:56:14 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1f8S1h-0006cQ-JK for guix-patches@gnu.org; Tue, 17 Apr 2018 10:56:12 -0400 Received: from mail-wr0-x230.google.com ([2a00:1450:400c:c0c::230]:34101) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1f8S1h-0006bn-Ba for guix-patches@gnu.org; Tue, 17 Apr 2018 10:56:09 -0400 Received: by mail-wr0-x230.google.com with SMTP id d19so36406640wre.1 for ; Tue, 17 Apr 2018 07:56:08 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:date:message-id; bh=H9H1Y8l39BSmrW2nABIO/97dWJ0+tUaRfs60lGsOp4g=; b=iKGAXJDBqHv+FnDNQBmWx7E3VX3ADKquPRPE3OcsuJu4IQH6pQfiLmmd6TTt9FLEdk RpLz9VT9hdqNEgY9NzB601Vomi8HVPdsfJwbyaOQLTgLTwG/A3z7aLHCcXwU19i+bLhn EmKFx1PrkbpOA5lBbEfHBa7RSarNEkMu9XDAWDVOoSHscPkIh1R5dOTB6LPoWQDs2jun vOcEJtep0ZEYu4Uv6q4m57NcK28BuLZw7qkHVh9sV+vlZZfMgBl6JsosdPleJ7Fr7XQN JcoWWDKLCjWdaa9NTU4Rt+RBOTpt82NdrLZwjxGXbQy/ePbjBOCvadhONKZ6mOgU/55d Pojg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id; bh=H9H1Y8l39BSmrW2nABIO/97dWJ0+tUaRfs60lGsOp4g=; b=ebHRkUDgwbs/f3C3lAdLnMDbIYh6aOTzEN6RgbQBtWiLBrh+0bLXQKulmDGDK6OERs VOgwNyNXGL3siHATaXd4L036Lka3wKN2R2M4jRdHmCb//qve9nO7teBDl0nE5F2+tMNb Eszk79fl8w4YW7DAxree92k9veQNVFCKTWcwLiw/E8rlUvOPSV8TFLOd71Lwjeih5hZ3 Iqoom9VH6/bUj+AarfP3g2tz26EfZzdb734DRYxGLuMsSbTIeYSGAun2AjFJ0N4FuHuk IzI572ad78IRjDgtmp2ZO8DGB287wR227oB8juqyjXxExFKRYJE07figdlWtUx+2gNjZ FUPA== X-Gm-Message-State: ALQs6tCkMFsgcETSs9cVYd+Q6lMxZiSX1BjUMN2b/5w0SiuqTTC198Qv B3DY/y0i3TdINTtGuGyctmWRsg== X-Google-Smtp-Source: AIpwx48HM8pEeQMyoTNVk8LeSsCgGJ3oSWkmHUv2TRUEoAgfrt3VVnjDJVGOBmn1/CdmG+6MURIAHA== X-Received: by 10.28.185.76 with SMTP id j73mr1212835wmf.19.1523976967710; Tue, 17 Apr 2018 07:56:07 -0700 (PDT) Received: from denali.Parrot.Biz ([46.218.109.88]) by smtp.gmail.com with ESMTPSA id 44sm8814054wrl.83.2018.04.17.07.56.06 (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Tue, 17 Apr 2018 07:56:07 -0700 (PDT) From: Mathieu Othacehe To: guix-patches@gnu.org Subject: [PATCH] http: Add /api/evaluations route. Date: Tue, 17 Apr 2018 16:56:01 +0200 Message-Id: <1523976961-7467-1-git-send-email-m.othacehe@gmail.com> X-Mailer: git-send-email 2.7.4 X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.0 (----) X-Debbugs-Envelope-To: submit Cc: Mathieu Othacehe X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) * src/cuirass/database.scm (db-get-evaluations): New exported procedure. * src/cuirass/http.scm (url-handler): Add /api/evaluations route. * tests/http.scm ("http"): Add /api/evaluations test route. --- Hi Guix, Here's a patch to add /api/evaluations route. It allows to know which guix commit have been fully evaluated and builded by cuirass before checkouting them. Mathieu src/cuirass/database.scm | 14 ++++++++++++++ src/cuirass/http.scm | 4 ++++ tests/http.scm | 20 +++++++++++++++++++- 3 files changed, 37 insertions(+), 1 deletion(-) diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 4dda862..a966af0 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -45,6 +45,7 @@ db-update-build-status! db-get-build db-get-builds + db-get-evaluations read-sql-file read-quoted-string sqlite-exec @@ -541,3 +542,16 @@ INSERT INTO Stamps (specification, stamp) VALUES (" (assq-ref spec #:name) ", " commit ");") (sqlite-exec db "UPDATE Stamps SET stamp=" commit "WHERE specification=" (assq-ref spec #:name) ";"))) + +(define (db-get-evaluations db) + (let loop ((rows (sqlite-exec db "SELECT * FROM Evaluations;")) + (evaluations '())) + (match rows + (() evaluations) + ((#(id specification revision) + . rest) + (loop rest + (cons `((#:id . ,id) + (#:specification . ,specification) + (#:revision . ,revision)) + evaluations)))))) diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 31960ac..73960ef 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -186,6 +186,10 @@ Hydra format." (#f (respond-build-not-found build-id))) (respond-build-not-found build-id)))) + (("api" "evaluations") + (respond-json (object->json-string + (with-critical-section db-channel (db) + (db-get-evaluations db))))) (("api" "latestbuilds") (let* ((params (request-parameters request)) ;; 'nr parameter is mandatory to limit query size. diff --git a/tests/http.scm b/tests/http.scm index 1e1f754..00a8171 100644 --- a/tests/http.scm +++ b/tests/http.scm @@ -94,6 +94,11 @@ (#:releasename . #nil) (#:buildinputs_builds . #nil))) +(define evaluations-query-result + '((#:id . 1) + (#:specification . "guix") + (#:revision . "fakesha1"))) + (test-group-with-cleanup "http" (test-assert "object->json-string" ;; Note: We cannot compare the strings directly because field ordering @@ -177,7 +182,7 @@ (#:no-compile? . #f))) (evaluation '((#:specification . "guix") - (#:revision . 1)))) + (#:revision . "fakesha1")))) (db-add-build (%db) build1) (db-add-build (%db) build2) (db-add-derivation (%db) derivation1) @@ -254,6 +259,19 @@ (list (hash-ref dictionary "nixname") (hash-ref dictionary "buildstatus"))))) + (test-assert "/api/evaluations" + (let ((hash-list + (call-with-input-string + (utf8->string + (http-get-body (test-cuirass-uri "/api/evaluations"))) + json->scm))) + (and (= (length hash-list) 1) + (hash-table=? + (car hash-list) + (call-with-input-string + (object->json-string evaluations-query-result) + json->scm))))) + (test-assert "db-close" (db-close (%db))) -- 2.7.4 From debbugs-submit-bounces@debbugs.gnu.org Wed Apr 18 17:00:14 2018 Received: (at 31197) by debbugs.gnu.org; 18 Apr 2018 21:00:14 +0000 Received: from localhost ([127.0.0.1]:59718 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f8uBa-0003fJ-DK for submit@debbugs.gnu.org; Wed, 18 Apr 2018 17:00:14 -0400 Received: from hera.aquilenet.fr ([185.233.100.1]:40206) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f8uBZ-0003fB-1d for 31197@debbugs.gnu.org; Wed, 18 Apr 2018 17:00:13 -0400 Received: from localhost (localhost [127.0.0.1]) by hera.aquilenet.fr (Postfix) with ESMTP id 674FC127C1; Wed, 18 Apr 2018 23:00:12 +0200 (CEST) X-Virus-Scanned: Debian amavisd-new at aquilenet.fr Received: from hera.aquilenet.fr ([127.0.0.1]) by localhost (hera.aquilenet.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id SUo-iWZhIldG; Wed, 18 Apr 2018 23:00:11 +0200 (CEST) Received: from ribbon (unknown [IPv6:2a01:e0a:1d:7270:af76:b9b:ca24:c465]) by hera.aquilenet.fr (Postfix) with ESMTPSA id 61CB1126E3; Wed, 18 Apr 2018 23:00:11 +0200 (CEST) From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=) To: Mathieu Othacehe Subject: Re: [bug#31197] [PATCH] http: Add /api/evaluations route. References: <1523976961-7467-1-git-send-email-m.othacehe@gmail.com> X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 29 Germinal an 226 de la =?utf-8?Q?R=C3=A9volution?= X-PGP-Key-ID: 0x090B11993D9AEBB5 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5 X-OS: x86_64-pc-linux-gnu Date: Wed, 18 Apr 2018 23:00:10 +0200 In-Reply-To: <1523976961-7467-1-git-send-email-m.othacehe@gmail.com> (Mathieu Othacehe's message of "Tue, 17 Apr 2018 16:56:01 +0200") Message-ID: <87po2wtelh.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: 1.0 (+) X-Debbugs-Envelope-To: 31197 Cc: 31197@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.0 (/) Hello Mathieu, Mathieu Othacehe skribis: > * src/cuirass/database.scm (db-get-evaluations): New exported procedure. > * src/cuirass/http.scm (url-handler): Add /api/evaluations route. > * tests/http.scm ("http"): Add /api/evaluations test route. > --- > Hi Guix, > > Here's a patch to add /api/evaluations route. It allows to know which > guix commit have been fully evaluated and builded by cuirass before > checkouting them. Awesome, I had been missing it. :-) Hydra doesn=E2=80=99t have such a thing apparently. We should discuss with= Alex Kost to add support for it in Emacs-Guix. > +(define (db-get-evaluations db) > + (let loop ((rows (sqlite-exec db "SELECT * FROM Evaluations;")) > + (evaluations '())) I think we should add a LIMIT and ORDER, like we do for =E2=80=98db-get-bui= lds=E2=80=99, to avoid sending too much data to clients and consing too much. Could you try that? Later we could add =E2=80=9Cfilters=E2=80=9D to select evaluations from one= project or branch. > + (match rows > + (() evaluations) Rather (reverse evaluations). > + (with-critical-section db-channel (db) > + (db-get-evaluations db))))) Rather: (with-critical-section db-channel (db) (db-get-evaluations db)) Normally, =E2=80=98dir-locals.el=E2=80=99 has the right rule for this. Thanks! Ludo=E2=80=99. From debbugs-submit-bounces@debbugs.gnu.org Thu Apr 19 05:20:56 2018 Received: (at 31197) by debbugs.gnu.org; 19 Apr 2018 09:20:56 +0000 Received: from localhost ([127.0.0.1]:60071 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f95kO-0005Oj-B3 for submit@debbugs.gnu.org; Thu, 19 Apr 2018 05:20:56 -0400 Received: from mail-wr0-f172.google.com ([209.85.128.172]:42912) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f95kM-0005OU-EP for 31197@debbugs.gnu.org; Thu, 19 Apr 2018 05:20:54 -0400 Received: by mail-wr0-f172.google.com with SMTP id s18-v6so12028404wrg.9 for <31197@debbugs.gnu.org>; Thu, 19 Apr 2018 02:20:54 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=references:user-agent:from:to:cc:subject:in-reply-to:date :message-id:mime-version; bh=iM/30JeoRnO+OeC49FMMoex8L0XqNgevQR6txPCUi2Y=; b=l0xX0d5pYg8w2NfXBqq6DsfGCK5sJVg5A9Uawz17ssnl46hSVrpmwbOfHGrHZ+qrnu 3fzhw2Pn/phrnVQ4PMxuPgPGppWX7WakXlAcz4si+wPOUUofIhKS9Emuo/mmSYh+dYxv 0y/jv5x6miibRgEIBYoUdpXi9TJn58oOilujBaqpt6eseNwDZK/uaThTJymyYo+Gqwr1 uSWb1ti0M/ljFx3TAXs+kz1v5nyECZKANS7ndYd6+a7LiFY1CMuv60Jz5F2pIYKA2hLU vadmnkjp6P+nLW3y65wlUcsMyceuKD7reUIh6EWWYRGLr1uE+2Ayh5z7w6KnIRa/d4K5 tbtA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:references:user-agent:from:to:cc:subject :in-reply-to:date:message-id:mime-version; bh=iM/30JeoRnO+OeC49FMMoex8L0XqNgevQR6txPCUi2Y=; b=LRlBY1rwIs0NDLjkciBc3a7W2pkWWjhf6fxixUSp3lqpQeRYmlSjqpbjzsz9StqW9B fydioKJr0HF3acls29GUppLRjVgmxGrbntChQmW80mhdvx9nFkPBwMJFqtO9v45GHXNR wdAl+AXbV9AXHZqsLif4g6lR4Sw0Zl56DkvVVIKLPvgni3gxLApGlxUI1yW/SmSlvdy+ fB/YbWIJvc5tA7f6WJcLdor38z//pd8BsUlUiwZedMXqQKsjetobBFbGgCs1APjXGhHh QkMNZb8V9yw/XD6KKJ3MqWaPrCuJATpAUT0NqAhr9bPflTiL5CZo03nWpZufsyTNPrxJ F0cw== X-Gm-Message-State: ALQs6tAK6uHRKEK0zqdda1Eg571YQ1PRVAQAKN0ugxWBQCgU4vKXCScW vpEv8t5abMVqIU7dYriiPCMaZw== X-Google-Smtp-Source: AIpwx4/G6bkutGrQm7igfw+QmEUzO7VTS7gqzCO/0yrLAvOsOGjJv6eOPOiV7jiI/yMLzatd3QHLtA== X-Received: by 10.28.14.16 with SMTP id 16mr4230415wmo.50.1524129648355; Thu, 19 Apr 2018 02:20:48 -0700 (PDT) Received: from denali ([46.218.109.88]) by smtp.gmail.com with ESMTPSA id d7-v6sm2875856wrj.26.2018.04.19.02.20.47 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Thu, 19 Apr 2018 02:20:47 -0700 (PDT) References: <1523976961-7467-1-git-send-email-m.othacehe@gmail.com> <87po2wtelh.fsf@gnu.org> User-agent: mu4e 1.0; emacs 25.3.1 From: Mathieu Othacehe To: Ludovic =?utf-8?Q?Court=C3=A8s?= , Alex Kost Subject: Re: [bug#31197] [PATCH] http: Add /api/evaluations route. In-reply-to: <87po2wtelh.fsf@gnu.org> Date: Thu, 19 Apr 2018 11:20:44 +0200 Message-ID: <87wox3wo0j.fsf@gmail.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 31197 Cc: 31197@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Hi Ludo, > Hydra doesn’t have such a thing apparently. We should discuss with Alex > Kost to add support for it in Emacs-Guix. I added Alex to make sure he is notified! Here's an updated version adding an ORDER BY and a LIMIT as you suggested. Thanks, Mathieu --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-http-Add-api-evaluations-route.patch >From c40e61bd3e9c4d1ceca53002c7bc21ff0754cfff Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Thu, 19 Apr 2018 11:17:42 +0200 Subject: [PATCH] http: Add /api/evaluations route. * src/cuirass/database.scm (db-get-evaluations): New exported procedure. * src/cuirass/http.scm (url-handler): Add /api/evaluations route. * tests/http.scm ("http"): Add /api/evaluations test route. --- src/cuirass/database.scm | 15 +++++++++++++++ src/cuirass/http.scm | 11 +++++++++++ tests/http.scm | 28 +++++++++++++++++++++++++--- 3 files changed, 51 insertions(+), 3 deletions(-) diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 4dda862..8437475 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -45,6 +45,7 @@ db-update-build-status! db-get-build db-get-builds + db-get-evaluations read-sql-file read-quoted-string sqlite-exec @@ -541,3 +542,17 @@ INSERT INTO Stamps (specification, stamp) VALUES (" (assq-ref spec #:name) ", " commit ");") (sqlite-exec db "UPDATE Stamps SET stamp=" commit "WHERE specification=" (assq-ref spec #:name) ";"))) + +(define (db-get-evaluations db limit) + (let loop ((rows (sqlite-exec db "SELECT id, specification, revision +FROM Evaluations ORDER BY id DESC LIMIT " limit ";")) + (evaluations '())) + (match rows + (() evaluations) + ((#(id specification revision) + . rest) + (loop rest + (cons `((#:id . ,id) + (#:specification . ,specification) + (#:revision . ,revision)) + evaluations)))))) diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 31960ac..e911b9b 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -186,6 +186,17 @@ Hydra format." (#f (respond-build-not-found build-id))) (respond-build-not-found build-id)))) + (("api" "evaluations") + (let* ((params (request-parameters request)) + ;; 'nr parameter is mandatory to limit query size. + (nr (match (assq-ref params 'nr) + ((val) val) + (_ #f)))) + (if nr + (respond-json (object->json-string + (with-critical-section db-channel (db) + (db-get-evaluations db nr)))) + (respond-json-with-error 500 "Parameter not defined!")))) (("api" "latestbuilds") (let* ((params (request-parameters request)) ;; 'nr parameter is mandatory to limit query size. diff --git a/tests/http.scm b/tests/http.scm index 1e1f754..9d460b2 100644 --- a/tests/http.scm +++ b/tests/http.scm @@ -94,6 +94,11 @@ (#:releasename . #nil) (#:buildinputs_builds . #nil))) +(define evaluations-query-result + '((#:id . 2) + (#:specification . "guix") + (#:revision . "fakesha2"))) + (test-group-with-cleanup "http" (test-assert "object->json-string" ;; Note: We cannot compare the strings directly because field ordering @@ -175,15 +180,19 @@ (#:tag . #f) (#:commit . #f) (#:no-compile? . #f))) - (evaluation + (evaluation1 + '((#:specification . "guix") + (#:revision . "fakesha1"))) + (evaluation2 '((#:specification . "guix") - (#:revision . 1)))) + (#:revision . "fakesha2")))) (db-add-build (%db) build1) (db-add-build (%db) build2) (db-add-derivation (%db) derivation1) (db-add-derivation (%db) derivation2) (db-add-specification (%db) specification) - (db-add-evaluation (%db) evaluation))) + (db-add-evaluation (%db) evaluation1) + (db-add-evaluation (%db) evaluation2))) (test-assert "/build/1" (hash-table=? @@ -254,6 +263,19 @@ (list (hash-ref dictionary "nixname") (hash-ref dictionary "buildstatus"))))) + (test-assert "/api/evaluations?nr=1" + (let ((hash-list + (call-with-input-string + (utf8->string + (http-get-body (test-cuirass-uri "/api/evaluations?nr=1"))) + json->scm))) + (and (= (length hash-list) 1) + (hash-table=? + (car hash-list) + (call-with-input-string + (object->json-string evaluations-query-result) + json->scm))))) + (test-assert "db-close" (db-close (%db))) -- 2.7.4 --=-=-=-- From debbugs-submit-bounces@debbugs.gnu.org Thu Apr 19 15:47:38 2018 Received: (at 31197) by debbugs.gnu.org; 19 Apr 2018 19:47:38 +0000 Received: from localhost ([127.0.0.1]:33221 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f9FWs-0002l2-Gt for submit@debbugs.gnu.org; Thu, 19 Apr 2018 15:47:38 -0400 Received: from mail-lf0-f48.google.com ([209.85.215.48]:35268) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f9FWq-0002kp-RQ for 31197@debbugs.gnu.org; Thu, 19 Apr 2018 15:47:37 -0400 Received: by mail-lf0-f48.google.com with SMTP id r125-v6so1889267lfe.2 for <31197@debbugs.gnu.org>; Thu, 19 Apr 2018 12:47:36 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version:content-transfer-encoding; bh=+g/t+QU0VCK9CxeJLD4sSsHwB8jEZrk5RQPGBnuIk8I=; b=sHmpffkNL+UId36DFfQ9x+K34D6rBBmBD+yHzh52PQEhlp+gnaUAofzbOa/b6scanL MHTvuYGKwHdYLAG+a4e9M1DaZ/kNoqHT0bNPNQP2Kl8FZ3pcNYSblbwrnhqgx1kNYIfU mBd9z5Q90qwK46TuStFAYhzrv1FBXyz47qWL5CtymAKWybRBM5qRtruZBkcWVlRYj8Mw 7hdu5brZqqZ2YuY0UkRTO0xG61Y0sn4QbOt0eQ85l8c5Sem5hOah/VzGfskeJ2kpXd3r zIeJTM7Fmjbgfme9tTtZnyE1XzkWRy0jHd5nTi2NsT3eXMgtEYQOQkyvUNssmSiGYKid /liw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version:content-transfer-encoding; bh=+g/t+QU0VCK9CxeJLD4sSsHwB8jEZrk5RQPGBnuIk8I=; b=AwkUw+3AEUXZDOjamThBxjCUx5Y6ZP+V6tP8d1hayjmmxVDFTOmpyOltP42iC9LfeF 8kf8vZA/xM8Xvxfj++fUc1dy5IeJeOMkwmSOAR7BLZgAaTn57kR9yTDPHbtPnss4CiKh Vwndl1kT91KAzKUSVE0kMGawCcPPppSLuGvxFwy9MBq73uQz/1s0aPbm6u8ZyRquY774 jI0H1Iq3kzoY9QHqK11BsTSOOEfHXAkZ6OCb2S8P9HQr8NWwrGx9ja+FQ0+WWt09MogK YnpqUhZW/zyhtF8x49uKFZCwHj2j2sEGJqRp1ME+dlS6+0qpXVnKDbc/SkKSa8UxNa6N xMyw== X-Gm-Message-State: ALQs6tDiZYtl45kkHcuYkMh/L7hflTdMdvvk7he+MTKZUb5XFDlSdqwI s9jhgtc5p+/KCP/vObbxpUhXhQ== X-Google-Smtp-Source: AIpwx4873znL8sUKdG/zq5KjOAcpqitDUEerC/uVbPHc6doH6dt9TznWYHHcgCDzoqBaFG6EtsZonw== X-Received: by 10.46.151.5 with SMTP id r5mr4943269lji.5.1524167250835; Thu, 19 Apr 2018 12:47:30 -0700 (PDT) Received: from leviafan ([217.107.194.8]) by smtp.gmail.com with ESMTPSA id d2-v6sm907947lfk.2.2018.04.19.12.47.29 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Thu, 19 Apr 2018 12:47:29 -0700 (PDT) From: Alex Kost To: Mathieu Othacehe Subject: Re: [bug#31197] [PATCH] http: Add /api/evaluations route. References: <1523976961-7467-1-git-send-email-m.othacehe@gmail.com> <87po2wtelh.fsf@gnu.org> <87wox3wo0j.fsf@gmail.com> Date: Thu, 19 Apr 2018 22:47:31 +0300 In-Reply-To: <87wox3wo0j.fsf@gmail.com> (Mathieu Othacehe's message of "Thu, 19 Apr 2018 11:20:44 +0200") Message-ID: <87o9ifdlm4.fsf@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -0.0 (/) X-Debbugs-Envelope-To: 31197 Cc: Ludovic =?utf-8?Q?Court=C3=A8s?= , 31197@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) Mathieu Othacehe (2018-04-19 11:20 +0200) wrote: > Hi Ludo, > >> Hydra doesn=E2=80=99t have such a thing apparently. We should discuss w= ith Alex >> Kost to add support for it in Emacs-Guix. > > I added Alex to make sure he is notified! Thank you! If an API for the evaluations will be added to cuirass, I will surely add a support for it to Emacs-Guix. Thanks for letting me know! --=20 Alex From debbugs-submit-bounces@debbugs.gnu.org Fri Apr 20 08:11:31 2018 Received: (at 31197) by debbugs.gnu.org; 20 Apr 2018 12:11:31 +0000 Received: from localhost ([127.0.0.1]:33563 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f9Ut0-0003sZ-QI for submit@debbugs.gnu.org; Fri, 20 Apr 2018 08:11:31 -0400 Received: from hera.aquilenet.fr ([185.233.100.1]:60226) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f9Usz-0003sQ-3N for 31197@debbugs.gnu.org; Fri, 20 Apr 2018 08:11:29 -0400 Received: from localhost (localhost [127.0.0.1]) by hera.aquilenet.fr (Postfix) with ESMTP id BAF69114BD; Fri, 20 Apr 2018 14:11:27 +0200 (CEST) X-Virus-Scanned: Debian amavisd-new at aquilenet.fr Received: from hera.aquilenet.fr ([127.0.0.1]) by localhost (hera.aquilenet.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 1P0XgR33kwqm; Fri, 20 Apr 2018 14:11:27 +0200 (CEST) Received: from ribbon (vpn-0-27.aquilenet.fr [IPv6:2a0c:e300:4:27::]) by hera.aquilenet.fr (Postfix) with ESMTPSA id E40FD11864; Fri, 20 Apr 2018 14:11:26 +0200 (CEST) From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=) To: Mathieu Othacehe Subject: Re: [bug#31197] [PATCH] http: Add /api/evaluations route. References: <1523976961-7467-1-git-send-email-m.othacehe@gmail.com> <87po2wtelh.fsf@gnu.org> <87wox3wo0j.fsf@gmail.com> X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 1 =?utf-8?Q?Flor=C3=A9al?= an 226 de la =?utf-8?Q?R?= =?utf-8?Q?=C3=A9volution?= X-PGP-Key-ID: 0x090B11993D9AEBB5 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5 X-OS: x86_64-pc-linux-gnu Date: Fri, 20 Apr 2018 14:11:25 +0200 In-Reply-To: <87wox3wo0j.fsf@gmail.com> (Mathieu Othacehe's message of "Thu, 19 Apr 2018 11:20:44 +0200") Message-ID: <87efjahyc2.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: 1.0 (+) X-Debbugs-Envelope-To: 31197 Cc: Alex Kost , 31197@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.0 (/) Mathieu Othacehe skribis: > From c40e61bd3e9c4d1ceca53002c7bc21ff0754cfff Mon Sep 17 00:00:00 2001 > From: Mathieu Othacehe > Date: Thu, 19 Apr 2018 11:17:42 +0200 > Subject: [PATCH] http: Add /api/evaluations route. > > * src/cuirass/database.scm (db-get-evaluations): New exported procedure. > * src/cuirass/http.scm (url-handler): Add /api/evaluations route. > * tests/http.scm ("http"): Add /api/evaluations test route. Perfect, go for it! Thanks, Ludo=E2=80=99. From debbugs-submit-bounces@debbugs.gnu.org Fri Apr 20 09:14:48 2018 Received: (at 31197) by debbugs.gnu.org; 20 Apr 2018 13:14:48 +0000 Received: from localhost ([127.0.0.1]:33593 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f9VsG-0007Ft-5K for submit@debbugs.gnu.org; Fri, 20 Apr 2018 09:14:48 -0400 Received: from mail-wr0-f177.google.com ([209.85.128.177]:35257) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1f9VsE-0007Fg-Rg for 31197@debbugs.gnu.org; Fri, 20 Apr 2018 09:14:47 -0400 Received: by mail-wr0-f177.google.com with SMTP id w3-v6so22915643wrg.2 for <31197@debbugs.gnu.org>; Fri, 20 Apr 2018 06:14:46 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=references:user-agent:from:to:cc:subject:in-reply-to:date :message-id:mime-version; bh=5s4ckfZlmjbGUXSJf9GPI+5g4gulIRLtSaqS8iTFiZo=; b=eDl450eQBn/UMbrHW6P9ROP+u9EbLkjQdSLTqlqimP/WsuMQk40Yfk1imX0CtVYd9U wgQyOEwG2iuV4ElPl47ya3y39z5X+bUgUN9Kyo9JgvKFsH5zHP1Pt+a4Z6YpXWYrUq/m 0od/8VVVZV7eMxfROLINL5Z1ixkwOveYaqfOWEWFgecxaHwcdkGg1EmPhu496/IjtnvS YpsORXhHULqebbBxwaM1jyBYIYa6x5N9dVHUwQQUz7L04nojiFF0ZxBLKFMYskj4AUfm d2RRmFDceZme4uRcSqlW5Ur2G40itB/Yg3kBSyZUtMsVmxuI/faFHjPWcTJ1QEx7mgOj ZvCg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:references:user-agent:from:to:cc:subject :in-reply-to:date:message-id:mime-version; bh=5s4ckfZlmjbGUXSJf9GPI+5g4gulIRLtSaqS8iTFiZo=; b=AZG/uy4O1UkTS4Xg8Jt6YEGx/2i3d8GG8Qz8f025FbvkGJh+L/dUQILvHPZrktND5D uWa2IcIIZTetqF2aO8EaCWNxnh8gjF0lgOfMQs606cUb6njqzahS9ggkYEcd78EwvFE4 ADiqdh6wJknlJ63Hwl9S2a+Jmbh+y10hMIOxBV8mqq1KgoYD31hlsciTDo7xuoOdUi1c deFlk3mJ/2uAnEKNkyx3+Y1X1TbGYaUg6XmLJjjigf5+CWb237OgHCYZjOHhoiX98zHM 5ESJeN5eHUXW62XIRwUeiH/CCdEKMTOyzWw37TitJCO+axRdzQZ+b9xz7YkYR9Jpzoot gqqg== X-Gm-Message-State: ALQs6tBORdV/Lv9JRVPzli37V+Q2i2Vk/ht43xThG7GnS/giOr2v4ydX QdlHVvNYnwm+oCLOnFkaRgdTPw== X-Google-Smtp-Source: AIpwx48TDRruSowP0DHEjRLON8YDJZ/7T+e1G9xotavT2GOkBPCh9i0pT2hDk1aeI4Lu5S1dgvPAWQ== X-Received: by 10.28.46.14 with SMTP id u14mr1990232wmu.98.1524230080959; Fri, 20 Apr 2018 06:14:40 -0700 (PDT) Received: from denali ([46.218.109.88]) by smtp.gmail.com with ESMTPSA id w62sm1472064wmb.6.2018.04.20.06.14.40 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Fri, 20 Apr 2018 06:14:40 -0700 (PDT) References: <1523976961-7467-1-git-send-email-m.othacehe@gmail.com> <87po2wtelh.fsf@gnu.org> <87wox3wo0j.fsf@gmail.com> <87efjahyc2.fsf@gnu.org> User-agent: mu4e 1.0; emacs 25.3.1 From: Mathieu Othacehe To: Ludovic =?utf-8?Q?Court=C3=A8s?= Subject: Re: [bug#31197] [PATCH] http: Add /api/evaluations route. In-reply-to: <87efjahyc2.fsf@gnu.org> Date: Fri, 20 Apr 2018 15:14:39 +0200 Message-ID: <87d0yu6mv4.fsf@gmail.com> MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 31197 Cc: Alex Kost , 31197@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) Hey Ludo, > Perfect, go for it! Thanks, pushed :) Mathieu From debbugs-submit-bounces@debbugs.gnu.org Mon Apr 23 05:35:55 2018 Received: (at control) by debbugs.gnu.org; 23 Apr 2018 09:35:55 +0000 Received: from localhost ([127.0.0.1]:36491 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fAXt5-0001xb-BU for submit@debbugs.gnu.org; Mon, 23 Apr 2018 05:35:55 -0400 Received: from mail-wr0-f176.google.com ([209.85.128.176]:40285) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fAXt3-0001xN-JO for control@debbugs.gnu.org; Mon, 23 Apr 2018 05:35:53 -0400 Received: by mail-wr0-f176.google.com with SMTP id v60-v6so39267919wrc.7 for ; Mon, 23 Apr 2018 02:35:53 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=date:message-id:to:from:subject; bh=i6MROGdomWWNxR9zz9dKcZrDpaUN4pjvj/CTCbUik6Q=; b=Vekunats2ZTtb0b2mnNhNcS1VcvyA+0rgjVbO2nYvi/OhtlYJ4+GUdbf0p016SK4yo DULAPb8oZrotrxCrLdSMBrNE+9Hi/EoMGa6wYT9QoZM218t+xtIEctRYRyFusI7WpIb8 OZkxSnLEsvNj/j+Z8ahp8EtGIS2gt8fFRFO4AJcr8pFtrxH96NqzM9EG7RJAU/hsA+eK ODWrbBJPHTvkPnYmkW9eVZOk94VVwx5+YpAEDMffqgyJ4pVAXrpFENx9nnDjFtHuoBt5 f1/JP7A2zd11xI3aEyp8Tc1Szr3512nfyy8v9dH2ghDokX5iOlxlJnNrTeqiwFhrB+PN XKzA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:date:message-id:to:from:subject; bh=i6MROGdomWWNxR9zz9dKcZrDpaUN4pjvj/CTCbUik6Q=; b=G62tG94/lRfYRxF2oJ4NmMVYxyNh8+C3ox28hm5evihxPqVQDuTdWvn9ZONyRZr0Jy CE7c+OT4Esydf7wChQERJFQXXFU20P0LK0uLTcRby7mXoygFdXtcbmQ5mbE7lQ+J39uO 6m5x90wdw5SvdaHayzaM2B0ZMUelhpcFoGHrUxozlGF2No4a4XvteusDkL3ib2I1Oflc YpJLNNqR+JAj6F3etuxjKe3Jo6gMRB7KxpMy1fWaMpDhmb++yUV8ADeWUqog79g+bvyH FgM/scwcP7wtFXMVZ+16fMIDNZA35MoXuDzLWhz0M2FU+gDHl5H7zQGmTSMYr9rR4rXP lxTA== X-Gm-Message-State: ALQs6tBgFGtSyUUnAKnvIEFQjh9bUgwfDQ+/dtb+lk616zvQxI+TrfZJ MxeTd3+lZZkan9G+Kao2NoAThg== X-Google-Smtp-Source: AIpwx4+QqHZ4+g7mfMBI43Rq+vvtJjQCET0M0vmY9UJCw0CHs1UjUM2glA1ItzsHCJMN74uLEX5rmw== X-Received: by 2002:adf:c5d1:: with SMTP id v17-v6mr17288838wrg.45.1524476147229; Mon, 23 Apr 2018 02:35:47 -0700 (PDT) Received: from denali ([46.218.109.88]) by smtp.gmail.com with ESMTPSA id y45-v6sm12235173wrd.97.2018.04.23.02.35.46 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Mon, 23 Apr 2018 02:35:46 -0700 (PDT) Date: Mon, 23 Apr 2018 11:35:45 +0200 Message-Id: <8736zmxo26.fsf@gmail.com> To: control@debbugs.gnu.org From: Mathieu Othacehe Subject: control message for bug #31197 X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) close 31197 From unknown Sun Jun 22 04:11:32 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Mon, 21 May 2018 11:24:04 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator