tier3: contracts + tests for 12 remaining modules (all 39 files now have Contracts)

lisp/gateway-messaging.lisp

@@ -214,3 +214,22 @@
 
 (gateway-registry-initialize)
 (gateway-start-all)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (ql:quickload :fiveam :silent t))
+
+(defpackage :passepartout-gateway-messaging-tests
+  (:use :cl :fiveam :passepartout)
+  (:export #:messaging-suite))
+
+(in-package :passepartout-gateway-messaging-tests)
+
+(def-suite messaging-suite :description "Verification of Gateway Messaging")
+(in-suite messaging-suite)
+
+(test test-gateway-registry-initialize
+  "Contract 1: gateway-registry-initialize populates the registry."
+  (clrhash passepartout::*gateway-registry*)
+  (gateway-registry-initialize)
+  (is (not (zerop (hash-table-count passepartout::*gateway-registry*))))
+  (is (getf (gethash "telegram" passepartout::*gateway-registry*) :configured)))