gnu: imgui: Update to 1.91.4. - guix - Wojtek's customized Guix

diff options

author	Maxim Cournoyer <maxim.cournoyer@gmail.com>	2024-10-28 23:08:56 +0900
committer	Maxim Cournoyer <maxim.cournoyer@gmail.com>	2024-12-18 23:28:17 +0900
commit	3125239d94a7c765107166f50fd46d9fd8d76e3c (patch)
tree	4c9553d679651dc63219d6a48b9131230984e48d /gnu/home/services/utils.scm
parent	bff32e20e72cd4d74f294e2f6d87512921554d3d (diff)
download	guix-3125239d94a7c765107166f50fd46d9fd8d76e3c.tar.gz guix-3125239d94a7c765107166f50fd46d9fd8d76e3c.zip

gnu: imgui: Update to 1.91.4.

* gnu/packages/toolkits.scm (imgui): Update to 1.91.4. Change-Id: I9a8f03db59fc795e065ebe4eaee60ca994164349

Diffstat (limited to 'gnu/home/services/utils.scm')

0 files changed, 0 insertions, 0 deletions

nads %monad-run)) (test-assert "mparameterize" (let ((parameter (make-parameter 'outside))) (every (lambda (monad run) (equal? (run (mlet monad ((outer (return (parameter))) (inner (mparameterize monad ((parameter 'inside)) (return (parameter))))) (return (list outer inner (parameter))))) '(outside inside outside))) %monads %monad-run))) (test-assert "mlet* + text-file + package-file" (run-with-store %store (mlet* %store-monad ((guile (package-file %bootstrap-guile "bin/guile")) (file (text-file "monadic" guile))) (return (equal? (call-with-input-file file get-string-all) guile))) #:guile-for-build (package-derivation %store %bootstrap-guile))) (test-assert "package-file, default system" ;; The default system should be the one at '>>=' time, not the one at ;; invocation time. See <http://bugs.gnu.org/18002>. (run-with-store %store (mlet* %store-monad ((system -> (%current-system)) (file (parameterize ((%current-system "foobar64-linux")) (package-file coreutils "bin/ls"))) (cu (package->derivation coreutils))) (return (string=? file (string-append (derivation->output-path cu) "/bin/ls")))) #:guile-for-build (package-derivation %store %bootstrap-guile))) (test-assert "package-file + package->cross-derivation" (run-with-store %store (mlet* %store-monad ((target -> "mips64el-linux-gnu") (file (package-file coreutils "bin/ls" #:target target)) (xcu (package->cross-derivation coreutils target))) (let ((output (derivation->output-path xcu))) (return (string=? file (string-append output "/bin/ls"))))) #:guile-for-build (package-derivation %store %bootstrap-guile))) (test-assert "interned-file" (run-with-store %store (mlet* %store-monad ((file -> (search-path %load-path "guix.scm")) (a (interned-file file)) (b (interned-file file "b"))) (return (equal? (call-with-input-file file get-string-all) (call-with-input-file a get-string-all) (call-with-input-file b get-string-all)))) #:guile-for-build (package-derivation %store %bootstrap-guile))) (test-assert "mapm" (every (lambda (monad run) (with-monad monad (equal? (run (mapm monad (lift1 1+ monad) (iota 10))) (map 1+ (iota 10))))) %monads %monad-run)) (test-assert "sequence" (every (lambda (monad run) (let* ((input (iota 100)) (order '())) (define (frob i) (mlet monad ((foo (return 'foo))) ;; The side effect here is used to keep track of the order in ;; which monadic values are bound. Perform the side effect ;; within a '>>=' so that it is performed when the return ;; value is actually bound. (set! order (cons i order)) (return i))) (and (equal? input (run (sequence monad (map frob input)))) ;; Make sure this is from left to right. (equal? order (reverse input))))) %monads %monad-run)) (test-assert "listm" (every (lambda (monad run) (run (with-monad monad (let ((lst (listm monad (return 1) (return 2) (return 3)))) (mlet monad ((lst lst)) (return (equal? '(1 2 3) lst))))))) %monads %monad-run)) (test-assert "anym" (every (lambda (monad run) (eq? (run (with-monad monad (anym monad (lift1 (lambda (x) (and (odd? x) 'odd!)) monad) (append (make-list 1000 0) (list 1 2))))) 'odd!)) %monads %monad-run)) (test-equal "set-current-state" (list '(a a d) 'd) (values->list (run-with-state (mlet* %state-monad ((init (current-state)) (init2 (set-current-state 'b))) (mbegin %state-monad (set-current-state 'c) (set-current-state 'd) (mlet %state-monad ((last (current-state))) (return (list init init2 last))))) 'a))) (test-equal "state-push etc." (list '((z . 2) (p . (1)) (a . (1))) '(2 1)) (values->list (run-with-state (mbegin %state-monad (state-push 1) ;(1) (state-push 2) ;(2 1) (mlet* %state-monad ((z (state-pop)) ;(1) (p (current-state)) (a (state-push z))) ;(2 1) (return `((z . ,z) (p . ,p) (a . ,a))))) '()))) (test-end "monads")


context:
space:
mode: