gnu: Add ipset. - guix - Wojtek's customized Guix

diff options

author	Oleg Pykhalov <go.wigust@gmail.com>	2020-09-26 23:09:04 +0300
committer	Oleg Pykhalov <go.wigust@gmail.com>	2020-09-26 23:18:42 +0300
commit	d868655a7d6e09ab47d74d637ab73b43d46147d9 (patch)
tree	15920835d4601066e9d08eb2aa78c611a93a9c6b /gnu/system/install.scm
parent	3876ed32f25e160c47ba046d987ad9097b2bf0cb (diff)
download	guix-d868655a7d6e09ab47d74d637ab73b43d46147d9.tar.gz guix-d868655a7d6e09ab47d74d637ab73b43d46147d9.zip

gnu: Add ipset.

* gnu/packages/linux.scm (ipset): New variable.

Diffstat (limited to 'gnu/system/install.scm')

0 files changed, 0 insertions, 0 deletions

serialize-integer field-name name) name) (define-configuration configuration-with-prefix (port (integer 10) "The port number.") (prefix custom-prefix-)) (test-assert "serialize-configuration with prefix" (gexp? (let ((config (configuration-with-prefix))) (serialize-configuration config configuration-with-prefix-fields)))) ;;; ;;; define-configuration macro, extra-args literals ;;; (define (eval-gexp x) "Get serialized config as string." (eval (gexp->approximate-sexp x) (current-module))) (define (port? value) (or (string? value) (number? value))) (define (sanitize-port value) (cond ((number? value) value) ((string? value) (string->number value)) (else (raise (formatted-message (G_ "Bad value: ~a") value))))) (test-group "Basic sanitizer literal tests" (define serialize-port serialize-number) (define-configuration config-with-sanitizer (port (port 80) "Lorem Ipsum." (sanitizer sanitize-port))) (test-equal "default value, sanitizer" 80 (config-with-sanitizer-port (config-with-sanitizer))) (test-equal "string value, sanitized to number" 56 (config-with-sanitizer-port (config-with-sanitizer (port "56")))) (define (custom-serialize-port field-name value) (number->string value)) (define-configuration config-serializer (port (port 80) "Lorem Ipsum." (serializer custom-serialize-port))) (test-equal "default value, serializer literal" "80" (eval-gexp (serialize-configuration (config-serializer) config-serializer-fields)))) (test-group "empty-serializer as literal/procedure tests" (define-configuration config-with-literal (port (port 80) "Lorem Ipsum." empty-serializer)) (define-configuration config-with-proc (port (port 80) "Lorem Ipsum." (serializer empty-serializer))) (test-equal "empty-serializer as literal" "" (eval-gexp (serialize-configuration (config-with-literal) config-with-literal-fields))) (test-equal "empty-serializer as procedure" "" (eval-gexp (serialize-configuration (config-with-proc) config-with-proc-fields)))) (test-group "permutation tests" (define-configuration config-san+empty-ser (port (port 80) "Lorem Ipsum." (sanitizer sanitize-port) empty-serializer)) (define-configuration config-san+ser (port (port 80) "Lorem Ipsum." (sanitizer sanitize-port) (serializer (lambda _ "foo")))) (test-equal "default value, sanitizer, permutation" 80 (config-san+empty-ser-port (config-san+empty-ser))) (test-equal "default value, serializer, permutation" "foo" (eval-gexp (serialize-configuration (config-san+ser) config-san+ser-fields))) (test-equal "string value sanitized to number, permutation" 56 (config-san+ser-port (config-san+ser (port "56")))) ;; Ordering tests. (define-configuration config-ser+san (port (port 80) "Lorem Ipsum." (sanitizer sanitize-port) (serializer (lambda _ "foo")))) (define-configuration config-empty-ser+san (port (port 80) "Lorem Ipsum." empty-serializer (sanitizer sanitize-port))) (test-equal "default value, sanitizer, permutation 2" 56 (config-empty-ser+san-port (config-empty-ser+san (port "56")))) (test-equal "default value, serializer, permutation 2" "foo" (eval-gexp (serialize-configuration (config-ser+san) config-ser+san-fields)))) (test-group "duplicated/conflicting entries" (test-error "duplicate sanitizer" #t (macroexpand '(define-configuration dupe-san (foo (list '()) "Lorem Ipsum." (sanitizer (lambda () #t)) (sanitizer (lambda () #t)))))) (test-error "duplicate serializer" #t (macroexpand '(define-configuration dupe-ser (foo (list '()) "Lorem Ipsum." (serializer (lambda _ "")) (serializer (lambda _ "")))))) (test-error "conflicting use of serializer + empty-serializer" #t (macroexpand '(define-configuration ser+empty-ser (foo (list '()) "Lorem Ipsum." (serializer (lambda _ "lorem")) empty-serializer))))) (test-group "Mix of deprecated and new syntax" (test-error "Mix of bare serializer and new syntax" #t (macroexpand '(define-configuration mixed (foo (list '()) "Lorem Ipsum." (sanitizer (lambda () #t)) (lambda _ "lorem"))))) (test-error "Mix of bare serializer and new syntax, permutation)" #t (macroexpand '(define-configuration mixed (foo (list '()) "Lorem Ipsum." (lambda _ "lorem") (sanitizer (lambda () #t))))))) ;;; ;;; define-maybe macro. ;;; (define-maybe number) (define-configuration config-with-maybe-number (port (maybe-number 80) "") (count maybe-number "")) (test-equal "maybe value serialization" "port=80" (serialize-maybe-number "port" 80)) (define (config-with-maybe-number->string x) (eval (gexp->approximate-sexp (serialize-configuration x config-with-maybe-number-fields)) (current-module))) (test-equal "maybe value serialization of the instance" "port=42count=43" (config-with-maybe-number->string (config-with-maybe-number (port 42) (count 43)))) (test-equal "maybe value serialization of the instance, unspecified" "port=42" (config-with-maybe-number->string (config-with-maybe-number (port 42)))) (define (serialize-symbol name value) (format #f "~a=~a~%" name value)) (define-maybe symbol) (define-configuration config-with-maybe-symbol (protocol maybe-symbol "")) (test-equal "symbol maybe value serialization, unspecified" "" (eval-gexp (serialize-configuration (config-with-maybe-symbol) config-with-maybe-symbol-fields))) (define-maybe/no-serialization string) (define-configuration config-with-maybe-string/no-serialization (name (maybe-string) "The name of the item.") (no-serialization)) (test-assert "maybe value without serialization no procedure bound" (not (defined? 'serialize-maybe-string))) (test-assert "maybe type, no default" (eq? %unset-value (config-with-maybe-string/no-serialization-name (config-with-maybe-string/no-serialization)))) (test-assert "maybe type, with default" (equal? "foo" (config-with-maybe-string/no-serialization-name (config-with-maybe-string/no-serialization (name "foo")))))


context:
space:
mode: