tests :: [Test]
tests =
    [ testGroup "URI serialization tests"
        [ testCase "URI with no user and port"
            . testUri "sip:10.10.10.10" $ Uri SIP Nothing "10.10.10.10" Nothing
        , testCase "URI with user and port"
            . testUri "sips:user@10.10.10.10:1234"
            $ Uri SIPS (Just "user") "10.10.10.10" (Just 1234)
        , testCase "URI with no user and with port"
            . testUri "sips:10.10.10.10:1234"
            $ Uri SIPS Nothing "10.10.10.10" (Just 1234)
        , testCase "URI with user and with no port"
            . testUri "sips:user@10.10.10.10"
            $ Uri SIPS (Just "user") "10.10.10.10" Nothing
        ]
    ]
tests :: [Test]
tests =
    [ testGroup "URI serialization tests"
        [ testCase "URI with no user and port"
            . testUri "sip:10.10.10.10" $ Uri SIP Nothing "10.10.10.10" Nothing
        , testCase "URI with user and port"
            . testUri "sips:user@10.10.10.10:1234"
            $ Uri SIPS (Just "user") "10.10.10.10" (Just 1234)
        , testCase "URI with no user and with port"
            . testUri "sips:10.10.10.10:1234"
            $ Uri SIPS Nothing "10.10.10.10" (Just 1234)
        , testCase "URI with user and with no port"
            . testUri "sips:user@10.10.10.10"
            $ Uri SIPS (Just "user") "10.10.10.10" Nothing
        ]
    ]
tests =
    [ testGroup "URI serialization tests"
        [ testCase "URI with no user and port"
            . testUri "sip:10.10.10.10" $ Uri SIP Nothing "10.10.10.10" Nothing
        , testCase "URI with user and port"
            . testUri "sips:user@10.10.10.10:1234"
            $ Uri SIPS (Just "user") "10.10.10.10" (Just 1234)
        , testCase "URI with no user and with port"
            . testUri "sips:10.10.10.10:1234"
            $ Uri SIPS Nothing "10.10.10.10" (Just 1234)
        , testCase "URI with user and with no port"
            . testUri "sips:user@10.10.10.10"
            $ Uri SIPS (Just "user") "10.10.10.10" Nothing
        ]
    ]