Commits

Paweł Wieczorek committed a89604d Draft

cleaning

Comments (0)

Files changed (3)

 
 let sip_cseq_of_string = function
     | s -> SipCseq s
+
+let sip_call_id_of_string = function
+    | s -> SipCallId s
+
+let string_of_sip_call_id = function
+    | SipCallId s -> s
+
 
 
 let test_suite = "SIP" >:::
-    [ Test_monadic_parser.test_suite
-    ; Test_parser.test_suite
+    [ Test_parser.test_suite
     ]
 ;;
 

tests/data/Testdata_messages.ml

                 INVITE
 
             ; descr_uri
-                (SipUri "sip:bob@biloxi.com")
+                (sip_uri_of_string "sip:bob@biloxi.com")
 
             ; descr_sip_version
                 SIP_2_0
 
             ; descr_cseq
-                (SipCseq "314159 INVITE")
+                (sip_cseq_of_string "314159 INVITE")
 
             ; descr_call_id
-                (SipCallId "a84b4c76e66710@pc33.atlanta.com")
+                (sip_call_id_of_string "a84b4c76e66710@pc33.atlanta.com")
 
             ; descr_max_forwards
                 70
                 INVITE
 
             ; descr_uri
-                (SipUri "sip:bob@biloxi.com")
+                (sip_uri_of_string "sip:bob@biloxi.com")
 
             ; descr_sip_version
                 SIP_2_0
 
             ; descr_call_id
-                (SipCallId "a84b4c76e66710")
+                (sip_call_id_of_string "a84b4c76e66710")
 
             ; descr_cseq
-                (SipCseq "314159 INVITE")
+                (sip_cseq_of_string "314159 INVITE")
 
             ; descr_max_forwards 70
 
                 OPTIONS
 
             ; descr_uri
-                (SipUri "sip:carol@chicago.com")
+                (sip_uri_of_string "sip:carol@chicago.com")
 
             ; descr_sip_version
                 SIP_2_0
                 REGISTER
 
             ; descr_uri
-                (SipUri "sip:registrar.biloxi.com")
+                (sip_uri_of_string "sip:registrar.biloxi.com")
 
             ; descr_sip_version
                 SIP_2_0
                 70
 
             ; descr_call_id
-                (SipCallId "843817637684230@998sdasdh09")
+                (sip_call_id_of_string "843817637684230@998sdasdh09")
 
             ; descr_cseq
-                (SipCseq "1826 REGISTER")
+                (sip_cseq_of_string "1826 REGISTER")
 
             ; descr_content_length
                 0