%%%% Starting test build-utils
Group begin: build-utils
Test begin:
  test-name: "alist-cons-before"
Test end:
  result-kind: pass
  actual-value: ((a . 1) (x . 42) (b . 2) (c . 3))
  expected-value: ((a . 1) (x . 42) (b . 2) (c . 3))
Test begin:
  test-name: "alist-cons-before, reference not found"
Test end:
  result-kind: pass
  actual-value: ((a . 1) (b . 2) (c . 3) (x . 42))
  expected-value: ((a . 1) (b . 2) (c . 3) (x . 42))
Test begin:
  test-name: "alist-cons-after"
Test end:
  result-kind: pass
  actual-value: ((a . 1) (b . 2) (x . 42) (c . 3))
  expected-value: ((a . 1) (b . 2) (x . 42) (c . 3))
Test begin:
  test-name: "alist-cons-after, reference not found"
Test end:
  result-kind: pass
  actual-value: ((a . 1) (b . 2) (c . 3) (x . 42))
  expected-value: ((a . 1) (b . 2) (c . 3) (x . 42))
Test begin:
  test-name: "alist-replace"
Test end:
  result-kind: pass
  actual-value: ((a . 1) (b . 77) (c . 3))
  expected-value: ((a . 1) (b . 77) (c . 3))
Test begin:
  test-name: "alist-replace, key not found"
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "fold-port-matches"
Test end:
  result-kind: pass
  actual-value: ("Guix" "Guix" "Guix")
  expected-value: ("Guix" "Guix" "Guix")
Test begin:
  test-name: "fold-port-matches, trickier"
Test end:
  result-kind: pass
  actual-value: ("Guix" "guiX" "Guix" "guix" "Guix")
  expected-value: ("Guix" "guiX" "Guix" "guix" "Guix")
Test begin:
  test-name: "fold-port-matches, with unmatched chars"
Test end:
  result-kind: pass
  actual-value: ("Guix" #\, #\space "guix" #\, #\space #\G #\u #\i "Guix" "guiX" #\, #\space "Guix")
  expected-value: ("Guix" #\, #\space "guix" #\, #\space #\G #\u #\i "Guix" "guiX" #\, #\space "Guix")
Group end: build-utils
# of expected passes      9