%%%% Starting test pk-crypto
Group begin: pk-crypto
Test begin:
  test-name: "string->gcry-sexp->string"
Test end:
  result-kind: fail
  actual-value: ("(foo bar)" "\"Àÿî\"" "(genkey \n (rsa \n  (nbits \"1024\")\n  )\n )")
  expected-value: ("(foo bar)" "#C0FFEE#" "(genkey \n (rsa \n  (nbits \"1024\")\n  )\n )")
Test begin:
  test-name: "find-sexp-token"
Test end:
  result-kind: pass
  actual-value: ("(foo bar)" "(baz \"123\")" #f)
  expected-value: ("(foo bar)" "(baz \"123\")" #f)
Test begin:
  test-name: "gcry-sexp-car + cdr"
Test end:
  result-kind: pass
  actual-value: ("(b \n (c xyz)\n )")
  expected-value: ("(b \n (c xyz)\n )")
Test begin:
  test-name: "gcry-sexp-nth"
Test end:
  result-kind: pass
  actual-value: (#f "(b pqr)" "(c \"456\")" "(d xyz)" #f #f)
  expected-value: (#f "(b pqr)" "(c \"456\")" "(d xyz)" #f #f)
Test begin:
  test-name: "gcry-sexp-nth-data"
Test end:
  result-kind: pass
  actual-value: ("Name" "Otto" "Meier" #f #f #f)
  expected-value: ("Name" "Otto" "Meier" #f #f #f)
Test begin:
  test-name: "bytevector->hash-data->bytevector"
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "sign + verify"
Test end:
  result-kind: pass
  actual-value: #t
Group end: pk-crypto
# of expected passes      6
# of unexpected failures  1