Stripe API client for OCaml
ocaml-stripe: drop Loc.Error.to_string wrapper around verify_signature errors
+1
-2
+1
-2
test/test_stripe.ml
+1
-2
test/test_stripe.ml
···
114
114
~payload:sample_event_json ~signature:sig_header
115
115
with
116
116
| Ok event -> Alcotest.(check string) "event id" "evt_test_123" event.id
117
-
| Error e ->
118
-
Alcotest.failf "should accept any valid v1: %s" (Loc.Error.to_string e)
117
+
| Error e -> Alcotest.failf "should accept any valid v1: %s" e
119
118
120
119
(* {1 JSON codec tests} *)
121
120