Add pinning tests for Url concatenation behavior

Author: bartelink

tests/CallPolly.Acceptance/Scenarios.fs

@@ -257,7 +257,7 @@ type Scenarios(output : Xunit.Abstractions.ITestOutputHelper) =
         let! time, res = List.init 1000 alternateBetweenTwoUpstreams |> Async.Parallel |> Stopwatch.Time
         let counts = res |> Seq.countBy (function Status s -> s) |> Seq.sortBy fst |> List.ofSeq
         test <@ match counts with [200,successCount; 503,rejectCount] -> successCount < 100 && rejectCount > 800 | x -> failwithf "%A" x @>
-        test <@ between 0.3 2. (let t = time.Elapsed in t.TotalSeconds) @>
+        test <@ between 0.3 2.5 (let t = time.Elapsed in t.TotalSeconds) @>
     }
 
     let readDefinitions () =

tests/CallPolly.Tests/ParsingTests.fs

@@ -118,4 +118,35 @@ type ConfigParsing(output : Xunit.Abstractions.ITestOutputHelper) =
 
         let res = Parser.parse(defs).CreatePolicy log
         let effectiveUri = trap <@ res.TryFind("svc","call").Value.Config.EffectiveUri |> Option.get @>
-        test <@ "https://base/api/call" = string effectiveUri @>
+        test <@ "https://base/api/call" = string effectiveUri @>
+
+    let [<Fact>] ``Base Uris with leading and trailing slashes don't yield double-slashed URIs`` () : unit =
+        let defs = """{ "services": { "svc": {
+            "calls": { "call": "default" },
+            "defaultPolicy": null,
+            "policies": {
+                "default" : [
+                    { "rule": "Uri", "base": "https://base/", "path": "/call" }
+                ]
+            }
+}}}"""
+
+        let res = Parser.parse(defs).CreatePolicy log
+        let effectiveUri = trap <@ res.TryFind("svc","call").Value.Config.EffectiveUri |> Option.get @>
+        test <@ "https://base/call" = string effectiveUri @>
+
+
+    let [<Fact>] ``Paths with leading slashes override base paths in a base Uri`` () : unit =
+        let defs = """{ "services": { "svc": {
+            "calls": { "call": "default" },
+            "defaultPolicy": null,
+            "policies": {
+                "default" : [
+                    { "rule": "Uri", "base": "https://base/api/", "path": "/call" }
+                ]
+            }
+}}}"""
+
+        let res = Parser.parse(defs).CreatePolicy log
+        let effectiveUri = trap <@ res.TryFind("svc","call").Value.Config.EffectiveUri |> Option.get @>
+        test <@ "https://base/call" = string effectiveUri @>