Author: ludo
Date: Mon Aug 22 17:38:04 2011
New Revision: 28743
URL: https://svn.nixos.org/websvn/nix/?rev=28743&sc=1
Log:
GnuTLS 3.0.1.
Added:
nixpkgs/trunk/pkgs/development/libraries/gnutls/fix-guile-priorities-test.patch
Modified:
nixpkgs/trunk/pkgs/development/libraries/gnutls/default.nix
Modified: nixpkgs/trunk/pkgs/development/libraries/gnutls/default.nix
==============================================================================
--- nixpkgs/trunk/pkgs/development/libraries/gnutls/default.nix Mon Aug 22
17:37:59 2011 (r28742)
+++ nixpkgs/trunk/pkgs/development/libraries/gnutls/default.nix Mon Aug 22
17:38:04 2011 (r28743)
@@ -1,27 +1,30 @@
-{ fetchurl, stdenv, zlib, lzo, libtasn1, nettle
+{ fetchurl, stdenv, xz, zlib, lzo, libtasn1, nettle
, guileBindings, guile }:
assert guileBindings -> guile != null;
stdenv.mkDerivation rec {
- name = "gnutls-2.12.7";
+ name = "gnutls-3.0.1";
src = fetchurl {
- url = "mirror://gnu/gnutls/${name}.tar.bz2";
- sha256 = "09vmm1b2iypwk5vh0adyqzra7sgx5hb9xyr1wjncv7947bk4zn3p";
+ url = "mirror://gnu/gnutls/${name}.tar.xz";
+ sha256 = "1z3dqjv8zvma2adbwbcw704zf91hazz8ilmxy91gkrdpi5z2kpz2";
};
+ patches = [ ./fix-guile-priorities-test.patch ];
+
configurePhase = ''
./configure --prefix="$out" \
--disable-dependency-tracking --enable-fast-install \
+ --without-p11-kit \
--with-lzo --with-libtasn1-prefix="${libtasn1}" \
${if guileBindings
then "--enable-guile --with-guile-site-dir=\"$out/share/guile/site\""
else ""}
'';
- buildInputs = [ zlib lzo libtasn1 ]
+ buildInputs = [ xz zlib lzo libtasn1 ]
++ stdenv.lib.optional guileBindings guile;
propagatedBuildInputs = [ nettle ];
Added:
nixpkgs/trunk/pkgs/development/libraries/gnutls/fix-guile-priorities-test.patch
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++
nixpkgs/trunk/pkgs/development/libraries/gnutls/fix-guile-priorities-test.patch
Mon Aug 22 17:38:04 2011 (r28743)
@@ -0,0 +1,80 @@
+commit 10115e3fb9c36abcce95bd8f74d212d068cbddce (HEAD, refs/heads/gnutls_3_0_x)
+Author: Ludovic Courtès <[email protected]>
+Date: Mon Aug 22 18:17:10 2011 +0200
+
+ guile: Fix `priorities' test to use `run-test'.
+
+ This is a followup to commit cd7b8102316cd4151356c4b2b7909c7435593890
+ ("guile: Fix tests to match the `exit' behavior introduced in Guile
+ 2.0.1.").
+
+ Modified guile/tests/priorities.scm
+diff --git a/guile/tests/priorities.scm b/guile/tests/priorities.scm
+index 1ee072b..2af837e 100644
+--- a/guile/tests/priorities.scm
++++ b/guile/tests/priorities.scm
+@@ -24,6 +24,8 @@
+ ;;;
+
+ (use-modules (gnutls)
++ (gnutls build tests)
++ (srfi srfi-1)
+ (srfi srfi-26))
+
+ (define %valid-priority-strings
+@@ -41,10 +43,7 @@
+ ("NONE:+VERS-TLS-ALL:+AES-128-CBC:"
+ . "+FAIL-HERE:+SHA1:+COMP-NULL:+SIGN-RSA-SHA1")))
+
+-(dynamic-wind
+-
+- (lambda ()
+- #t)
++(run-test
+
+ (lambda ()
+ (let ((s (make-session connection-end/client)))
+@@ -52,25 +51,20 @@
+ (for-each (cut set-session-priorities! s <>)
+ %valid-priority-strings)
+
+- (for-each (lambda (prefix+suffix)
+- (let* ((prefix (car prefix+suffix))
+- (suffix (cdr prefix+suffix))
+- (pos (string-length prefix))
+- (string (string-append prefix suffix)))
+- (catch 'gnutls-error
+- (lambda ()
+- (let ((s (make-session connection-end/client)))
+- (set-session-priorities! s string)))
+- (lambda (key err function error-location . unused)
+- (or (and (eq? key 'gnutls-error)
+- (eq? err error/invalid-request)
+- (eq? function 'set-session-priorities!)
+- (= error-location pos))
+- (exit 1))))))
+- %invalid-priority-strings)
+-
+- (exit 0)))
+-
+- (lambda ()
+- ;; failure
+- (exit 1)))
++ (every (lambda (prefix+suffix)
++ (let* ((prefix (car prefix+suffix))
++ (suffix (cdr prefix+suffix))
++ (pos (string-length prefix))
++ (string (string-append prefix suffix)))
++ (catch 'gnutls-error
++ (lambda ()
++ (let ((s (make-session connection-end/client)))
++ ;; The following call should raise an exception.
++ (set-session-priorities! s string)
++ #f))
++ (lambda (key err function error-location . unused)
++ (and (eq? key 'gnutls-error)
++ (eq? err error/invalid-request)
++ (eq? function 'set-session-priorities!)
++ (= error-location pos))))))
++ %invalid-priority-strings))))
+
_______________________________________________
nix-commits mailing list
[email protected]
http://mail.cs.uu.nl/mailman/listinfo/nix-commits
