%%%% Starting test union
Group begin: union
Test begin:
  test-name: "tree-union, empty"
Test end:
  result-kind: pass
  actual-value: ()
  expected-value: ()
Test begin:
  test-name: "tree-union, leaves only"
Test end:
  result-kind: pass
  actual-value: (a b c d)
  expected-value: (a b c d)
Test begin:
  test-name: "tree-union, simple"
Test end:
  result-kind: pass
  actual-value: ((bin ls touch make awk gawk))
  expected-value: ((bin ls touch make awk gawk))
Test begin:
  test-name: "tree-union, several levels"
Test end:
  result-kind: pass
  actual-value: ((share (doc (make README) (coreutils README))) (bin ls touch make))
  expected-value: ((share (doc (make README) (coreutils README))) (bin ls touch make))
Test begin:
  test-name: "delete-duplicate-leaves, default"
Test end:
  result-kind: pass
  actual-value: (bin make touch ls)
  expected-value: (bin make touch ls)
Test begin:
  test-name: "delete-duplicate-leaves, file names"
Test end:
  result-kind: pass
  actual-value: ("doc" ("info" "/binutils/ld.info" "/gcc/gcc.info" "/binutils/standards.info"))
  expected-value: ("doc" ("info" "/binutils/ld.info" "/gcc/gcc.info" "/binutils/standards.info"))
Test begin:
  test-name: "union-build"
Test end:
  result-kind: fail
  actual-value: #f
Group end: union
# of expected passes      6
# of unexpected failures  1