Subject: [PATCH] gnu: Add sipp.

From: Ivan Gankevich <[email-masked]>
Date: Sun, 16 Apr 2023 11:47:27 +0200

* gnu/packages/telephony.scm (sipp): New variable.
---

Hello.

I've packaged SIPp — a popular SIP benchmarking and load testing tool.

Best regards,
Ivan

 gnu/packages/telephony.scm | 62 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)

diff --git a/gnu/packages/telephony.scm b/gnu/packages/telephony.scm
index c921507fd3..f717b100d7 100644
--- a/gnu/packages/telephony.scm
+++ b/gnu/packages/telephony.scm
@@ -23,6 +23,7 @@
 ;;; Copyright © 2021 Sarah Morgensen <[email-masked]>
 ;;; Copyright © 2021 Demis Balbach <[email-masked]>
 ;;; Copyright © 2022 Thomas Albers Raviola <[email-masked]>
+;;; Copyright © 2023 Ivan Gankevich <[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -70,6 +71,7 @@ (define-module (gnu packages telephony)
   #:use-module (gnu packages libusb)
   #:use-module (gnu packages linphone)
   #:use-module (gnu packages linux)
+  #:use-module (gnu packages maths)
   #:use-module (gnu packages multiprecision)
   #:use-module (gnu packages ncurses)
   #:use-module (gnu packages netpbm)
@@ -1033,3 +1035,63 @@ (define-public xgoldmon
 @end itemize")
       (home-page "https://github.com/2b-as/xgoldmon")
       (license license:gpl2+))))
+
+(define-public sipp
+  (package
+    (name "sipp")
+    (version "3.7.0")
+    (source
+      (origin
+        (method git-fetch)
+        (uri (git-reference
+               (url "https://github.com/SIPp/sipp")
+               (commit (string-append "v" version))))
+        (file-name (git-file-name name version))
+        (sha256 (base32 "0vplccia9zdva1wwny2xgs0b6rzmq4abxvw8lyz61wfw7jjmvin0"))))
+    (build-system cmake-build-system)
+    (arguments
+      `(#:configure-flags
+        (list "-DUSE_GSL=1" "-DUSE_PCAP=1" "-DUSE_SSL=1" "-DUSE_SCTP=1")
+        #:phases
+        (modify-phases %standard-phases
+          ; Here we modify build instructions to use external gtest and gmock.
+          (add-before 'configure 'unbundle-gtest
+            (lambda _
+              (rmdir "gtest")
+              (symlink (assoc-ref %build-inputs "googletest") "gtest")
+              (substitute* "CMakeLists.txt"
+                ((".*gtest-all.*") "")
+                ((".*gmock-all.*") "")
+                (("target_compile_features\\(sipp_unittest" all)
+                 (string-append "target_link_libraries(sipp_unittest gtest gmock)\n"
+                                all)))))
+          ; Here we generate version.h without git.
+          (add-before 'configure 'fix-version
+            (lambda _
+              (copy-file "include/version.h.in" "include/version.h")
+              (substitute* "include/version.h" (("@VERSION@") ,version))
+              (substitute* "CMakeLists.txt" (("find_package\\(Git\\)") ""))))
+          (add-after 'build 'build-tests
+            (lambda* (#:key parallel-build? #:allow-other-keys)
+              (invoke "make"
+                      (string-append
+                        "-j" (if parallel-build?
+                               (number->string (parallel-job-count))
+                               "1"))
+                      "sipp_unittest")))
+          (replace 'check
+            (lambda* (#:key tests? #:allow-other-keys)
+              (when tests?
+                (invoke "./sipp_unittest")))))))
+    (inputs
+      (list ncurses/tinfo libpcap lksctp-tools openssl gsl))
+    (native-inputs
+      (list googletest pkg-config))
+    (synopsis "Performance testing tool for the SIP protocol")
+    (description "SIPp can be used to test many real SIP equipements like SIP proxies,
+B2BUAs, SIP media servers, SIP/x gateways, and SIP PBXes.
+It is also very useful to emulate thousands of user agents calling your SIP system.")
+    (home-page "https://sipp.readthedocs.io/")
+    (license (list license:gpl2+ ; sipp's main license
+                   license:bsd-3 ; send_packets.c, send_packets.h
+                   license:zlib)))) ; md5.c, md5.h
-- 
2.38.0