aboutsummaryrefslogtreecommitdiff
-rw-r--r--
gnu/packages/golang.scm25
1 files changed, 25 insertions, 0 deletions
diff --git a/gnu/packages/golang.scm b/gnu/packages/golang.scm
index e492c6077f..4cdd6d4e57 100644
--- a/gnu/packages/golang.scm
+++ b/gnu/packages/golang.scm
@@ -507,6 +507,31 @@ jar struct to manage the cookies added to the cookie jar.")
(description "This package provides additions to Go's stdlib @code{fmt}.")
(license license:bsd-3)))
+(define-public go-github-com-motemen-go-colorine
+ (let ((commit "45d19169413a019e4e2be69629dde5c7d92f8706")
+ (revision "0"))
+ (package
+ (name "go-github-com-motemen-go-colorine")
+ (version (git-version "0.0.0" revision commit))
+ (home-page "https://github.com/motemen/go-colorine")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url home-page)
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "1mdy6q0926s1frj027nlzlvm2qssmkpjis7ic3l2smajkzh07118"))))
+ (build-system go-build-system)
+ (arguments
+ '(#:import-path "github.com/motemen/go-colorine"))
+ (inputs
+ `(("github.com/daviddengcn/go-colortext" ,go-github-com-daviddengcn-go-colortext)))
+ (synopsis "Simple colorized console logger for golang")
+ (description
+ "This package provides simple colorized console logger for golang.")
+ (license license:expat))))
+
(define-public go-github-com-daviddengcn-go-colortext
(package
(name "go-github-com-daviddengcn-go-colortext")
t ((libraries '(#$guile-ac-d-bus #$guile-packrat))) ;used by ac-d-bus (setenv "DBUS_SESSION_BUS_ADDRESS" "unix:path=/var/run/jami/bus") (set! %load-path (append %load-path (map (lambda (directory) (string-append directory "/share/guile/site/" (effective-version))) libraries))) (set! %load-compiled-path (append %load-compiled-path (map (lambda (directory) (string-append directory "/lib/guile/3.0/site-ccache")) libraries))) %load-path) marionette)) (test-assert "dbus session is up" (and (marionette-eval '(begin (use-modules (gnu services herd)) (wait-for-service 'jami-dbus-session #:timeout 40)) marionette) (wait-for-unix-socket "/var/run/jami/bus" marionette))) (test-assert "service is running" (marionette-eval '(begin (use-modules (gnu build jami-service) (gnu services herd)) (wait-for-service 'jami #:timeout 40) (jami-service-available?)) marionette)) (test-assert "service can be stopped" (marionette-eval '(begin (use-modules (gnu build dbus-service) (gnu build jami-service) (gnu services herd) (rnrs base)) (assert (jami-service-available?)) (stop-service 'jami) (with-retries 20 1 (not (jami-service-available?)))) marionette)) (test-assert "service can be restarted" (marionette-eval '(begin (use-modules (gnu build dbus-service) (gnu build jami-service) (gnu services herd) (rnrs base) ) ;; Start the service. (start-service 'jami) (with-retries 40 1 (jami-service-available?)) ;; Restart the service. (restart-service 'jami) (with-retries 40 1 (jami-service-available?))) marionette)) (unless #$provisioning? (test-skip 1)) (test-assert "jami accounts provisioning, account present" (marionette-eval '(begin (use-modules (gnu build dbus-service) (gnu services herd) (rnrs base)) ;; Accounts take some time to appear after being added. (with-retries 40 1 (with-shepherd-action 'jami ('list-accounts) results (let ((account (assoc-ref (car results) #$username))) (assert (string=? #$username (assoc-ref account "Account.username"))))))) marionette)) (unless #$(and provisioning? (not partial?)) (test-skip 1)) (test-assert "jami accounts provisioning, allowed-contacts" (marionette-eval '(begin (use-modules (gnu services herd) (rnrs base) (srfi srfi-1)) ;; Public mode is disabled. (with-shepherd-action 'jami ('list-account-details) results (let ((account (assoc-ref (car results) #$username))) (assert (string=? "false" (assoc-ref account "DHT.PublicInCalls"))))) ;; Allowed contacts match those declared in the configuration. (with-shepherd-action 'jami ('list-contacts) results (let ((contacts (assoc-ref (car results) #$username))) (assert (lset= string-ci=? contacts '#$%allowed-contacts))))) marionette)) (unless #$(and provisioning? (not partial?)) (test-skip 1)) (test-assert "jami accounts provisioning, moderators" (marionette-eval '(begin (use-modules (gnu services herd) (rnrs base) (srfi srfi-1)) ;; Moderators match those declared in the configuration. (with-shepherd-action 'jami ('list-moderators) results (let ((moderators (assoc-ref (car results) #$username))) (assert (lset= string-ci=? moderators '#$%moderators)))) ;; Moderators can be added via the Shepherd action. (with-shepherd-action 'jami ('add-moderator "cccccccccccccccccccccccccccccccccccccccc" #$username) results (let ((moderators (car results))) (assert (lset= string-ci=? moderators (cons "cccccccccccccccccccccccccccccccccccccccc" '#$%moderators)))))) marionette)) (unless #$provisioning? (test-skip 1)) (test-assert "jami service actions, ban/unban contacts" (marionette-eval '(begin (use-modules (gnu services herd) (ice-9 match) (rnrs base) (srfi srfi-1)) ;; Globally ban a contact. (with-shepherd-action 'jami ('ban-contact "1dbcb0f5f37324228235564b79f2b9737e9a008f") _ (with-shepherd-action 'jami ('list-banned-contacts) results (every (match-lambda ((username . banned-contacts) (member "1dbcb0f5f37324228235564b79f2b9737e9a008f" banned-contacts))) (car results)))) ;; Ban a contact for a single account. (with-shepherd-action 'jami ('ban-contact "dddddddddddddddddddddddddddddddddddddddd" #$username) _ (with-shepherd-action 'jami ('list-banned-contacts) results (every (match-lambda ((username . banned-contacts) (let ((found? (member "dddddddddddddddddddddddddddddddddddddddd" banned-contacts))) (if (string=? #$username username) found? (not found?))))) (car results))))) marionette)) (unless #$provisioning? (test-skip 1)) (test-assert "jami service actions, enable/disable accounts" (marionette-eval '(begin (use-modules (gnu services herd) (rnrs base)) (with-shepherd-action 'jami ('disable-account #$username) _ (with-shepherd-action 'jami ('list-accounts) results (let ((account (assoc-ref (car results) #$username))) (assert (string= "false" (assoc-ref account "Account.enable")))))) (with-shepherd-action 'jami ('enable-account #$username) _ (with-shepherd-action 'jami ('list-accounts) results (let ((account (assoc-ref (car results) #$username))) (assert (string= "true" (assoc-ref account "Account.enable"))))))) marionette)) (unless #$provisioning? (test-skip 1)) (test-assert "jami account parameters" (marionette-eval '(begin (use-modules (gnu services herd) (rnrs base) (srfi srfi-1)) (with-shepherd-action 'jami ('list-account-details) results (let ((account-details (assoc-ref (car results) #$username))) (assert (lset<= equal? '(("Account.hostname" . "bootstrap.me;fallback.another.host") ("Account.peerDiscovery" . "false") ("Account.rendezVous" . "true") ("RingNS.uri" . "https://my.name.server")) account-details))))) marionette)) (test-end)))) (gexp->derivation (if provisioning? (if partial? "jami-provisioning-partial-test" "jami-provisioning-test") "jami-test") test)) (define %test-jami (system-test (name "jami") (description "Basic tests for the jami service.") (value (run-jami-test)))) (define %test-jami-provisioning (system-test (name "jami-provisioning") (description "Provisioning test for the jami service.") (value (run-jami-test #:provisioning? #t)))) ;;; This test verifies that <jami-account> values can be left unspecified ;;; without causing any issue (see: https://issues.guix.gnu.org/56799). (define %test-jami-provisioning-partial (system-test (name "jami-provisioning-partial") (description "Provisioning test for the jami service, when some of the 'maybe' fields aren't provided (such that their value end up being *unspecified*.") (value (run-jami-test #:provisioning? #t #:partial? #t)))) n script. * gnu/services/web.scm (nginx-activation): Add "-p" flag. Signed-off-by: Ludovic Courtès <ludo@gnu.org> Robert Vollmert 2019-05-31services: Add patchwork....* gnu/service/web.scm (<patchwork-database-configuration> <patchwork-settings-module>, <patchwork-configuration>): New record types. (patchwork-virtualhost): New procedure. (patchwork-service-type): New variable. * gnu/tests/web.scm (%test-patchwork): New variable. * doc/guix.text (Web Services): Document it. Christopher Baines 2019-04-28gnu: Remove unused module reference....* gnu/services/web.scm: Remove reference to (gnu packages guile). Ricardo Wurmus 2019-03-18Correct name and email address for ng0....* .mailmap, Makefile.am, doc/guix.de.texi, doc/guix.fr.texi, doc/guix.texi, etc/completion/fish/guix.fish, gnu/packages/accessibility.scm, gnu/packages/admin.scm, gnu/packages/audio.scm, gnu/packages/autotools.scm, gnu/packages/cdrom.scm, gnu/packages/check.scm, gnu/packages/cinnamon.scm, gnu/packages/compression.scm, gnu/packages/crypto.scm, gnu/packages/databases.scm, gnu/packages/django.scm, gnu/packages/dns.scm, gnu/packages/elixir.scm, gnu/packages/emacs-xyz.scm, gnu/packages/emacs.scm, gnu/packages/enlightenment.scm, gnu/packages/erlang.scm, gnu/packages/fonts.scm, gnu/packages/fontutils.scm, gnu/packages/forth.scm, gnu/packages/fvwm.scm, gnu/packages/games.scm, gnu/packages/gl.scm, gnu/packages/gnome.scm, gnu/packages/gnunet.scm, gnu/packages/gnupg.scm, gnu/packages/gnuzilla.scm, gnu/packages/gtk.scm, gnu/packages/guile-wm.scm,gnu/packages/guile-xyz.scm, gnu/packages/haskell-check.scm, gnu/packages/haskell-crypto.scm, gnu/packages/haskell.scm, gnu/packages/image-viewers.scm, gnu/packages/image.scm, gnu/packages/irc.scm, gnu/packages/language.scm, gnu/packages/libcanberra.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm, gnu/packages/lolcode.scm, gnu/packages/lxde.scm, gnu/packages/lxqt.scm, gnu/packages/mail.scm, gnu/packages/markup.scm, gnu/packages/mate.scm, gnu/packages/maths.scm, gnu/packages/mc.scm, gnu/packages/messaging.scm, gnu/packages/music.scm, gnu/packages/ncurses.scm, gnu/packages/networking.scm, gnu/packages/nickle.scm, gnu/packages/openbox.scm, gnu/packages/pdf.scm, gnu/packages/perl-check.scm, gnu/packages/perl.scm, gnu/packages/python-compression.scm, gnu/packages/python-crypto.scm, gnu/packages/python-web.scm, gnu/packages/python-xyz.scm, gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/ruby.scm, gnu/packages/rust.scm, gnu/packages/scheme.scm, gnu/packages/serialization.scm, gnu/packages/shells.scm, gnu/packages/ssh.scm, gnu/packages/suckless.scm, gnu/packages/tbb.scm, gnu/packages/telephony.scm, gnu/packages/text-editors.scm, gnu/packages/textutils.scm, gnu/packages/time.scm, gnu/packages/tls.scm, gnu/packages/tor.scm, gnu/packages/version-control.scm, gnu/packages/video.scm, gnu/packages/vim.scm, gnu/packages/web.scm, gnu/packages/wm.scm, gnu/packages/xdisorg.scm, gnu/packages/xfce.scm, gnu/packages/xml.scm, gnu/packages/xorg.scm, gnu/services/certbot.scm, gnu/services/desktop.scm, gnu/services/version-control.scm, gnu/services/web.scm, guix/import/hackage.scm, guix/licenses.scm: Correct name and email address for ng0. Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr> ng0