From ebcc7f74ce4b0a713b64c5ab7935999bd2c91cd3 Mon Sep 17 00:00:00 2001
From: Benedetta <bparodi@lezzo.org>
Date: Tue, 23 Apr 2024 09:52:25 +0200
Subject: [PATCH] burrodiarachidi

---
 pam/test/test_pam.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/pam/test/test_pam.ml b/pam/test/test_pam.ml
index fa16fbb..3cd56c0 100644
--- a/pam/test/test_pam.ml
+++ b/pam/test/test_pam.ml
@@ -20,8 +20,10 @@ let test1 () =
     | Error e -> failwith e
     | Ok (Some ar) ->
       let _ = ar 
-              |> List.map (fun n -> n |> Pam.Issue_parser.to_exact_date |> Option.get |> Ptime.to_rfc3339)|> List.iter print_endline in
-      failwith "MAnca +2 offset"
+              |> List.map (Ptime.to_rfc3339)|> List.iter print_endline in
+      let _ = Ptime_clock.now () |> Ptime.to_rfc3339 |> print_endline in
+      failwith "MAnca +2 offset";
+      failwith "MAnca giorni negativi o positive '+'/'-'"