From 7f1b8c3142d9c7fab3099e36b04d115c9a11dbda Mon Sep 17 00:00:00 2001
From: fpi
Date: Mon, 16 Sep 2024 10:55:42 +0200
Subject: Update PRODID

---
 gnus-icalendar-request-tests.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'gnus-icalendar-request-tests.el')

diff --git a/gnus-icalendar-request-tests.el b/gnus-icalendar-request-tests.el
index c9eab69..09d8198 100644
--- a/gnus-icalendar-request-tests.el
+++ b/gnus-icalendar-request-tests.el
@@ -48,11 +48,13 @@ SEQUENCE:0
 END:VEVENT"))
     (setenv "TZ" "CET-1CEST,M3.5.0/2,M10.5.0/3")
     (let ((vcalendar (gnus-icalendar--build-vcalendar-from-vevent event)))
-      ;; Ensure there is exactly one of version and prodid
+      ;; Ensure there is exactly one of VERSION and PRODID
       (should (string-match "^VERSION:2.0\\(\n\\|.\\)*END:VCALENDAR" vcalendar))
       (should-not (string-match "^VERSION:" (match-string 1 vcalendar)))
       (should (string-match "^PRODID:\\(\n\\|.\\)*END:VCALENDAR" vcalendar))
       (should-not (string-match "^PRODID:" (match-string 1 vcalendar)))
+      ;; METHOD should be REQUEST
+      (should (string-match "^METHOD:REQUEST$" vcalendar))
       ;; Ensure the vevent remains intact
       (should (string-match "^\\(BEGIN:VEVENT\\(\n\\|.\\)*\nEND:VEVENT\\)" vcalendar))
       (should (string-match (match-string 1 vcalendar) event)))
-- 
cgit v1.2.3