Another test.

Author: bryanedds

Nu/Nu.Tests/AddressTests.fs

@@ -39,17 +39,23 @@ module AddressTests =
         let relative = Address.relate address address2
         Assert.Equal (stoa "B/C/D/F/A", relative)
 
-    let [<Test>] ``Address.resolve relative simple works properly.`` () =
+    let [<Test>] ``Address.resolve relative simple ancestor works properly.`` () =
         let address = stoa "A/B/C/D/E"
         let address2 = stoa "^/^"
         let resolved = Address.resolve address address2
         Assert.Equal (stoa "A/B/C", resolved)
 
+    let [<Test>] ``Address.resolve relative simple successor properly.`` () =
+        let address = stoa "A/B/C"
+        let address2 = stoa "~/D/E"
+        let resolved = Address.resolve address address2
+        Assert.Equal (stoa "A/B/C/D/E", resolved)
+
     let [<Test>] ``Address.resolve relative complex works properly.`` () =
         let address = stoa "A/B/C/D/E"
-        let address2 = stoa "^/^/D/^"
+        let address2 = stoa "^/~/^/D/^/X"
         let resolved = Address.resolve address address2
-        Assert.Equal (stoa "A/B/C", resolved)
+        Assert.Equal (stoa "A/B/C/X", resolved)
 
     let [<Test>] ``Address.resolve empty works properly.`` () =
         let address = stoa "A/B/C/D/E"