[Windows] Fix TestURL/test_URLStrings

Since '|' is a valid character in a url on Windows as implemented by
CoreFoundation, on Windows, we should expect that `unescaped|pipe`
should be properly parsed.

This is hacky, but adds a test case on Windows, and disables it on other
platforms and vice versa.

Author: gmittert

TestFoundation/Resources/NSURLTestData.plist

@@ -3501,6 +3501,60 @@
 			<key>Out-NSResults</key>
 			<string>&lt;null url&gt;</string>
 		</dict>
+		<dict>
+			<key>In-Title</key>
+			<string>NSURLWithString-parse-absolute-escape-006-Windows</string>
+			<key>In-URLCreator</key>
+			<string>NSURLWithString</string>
+			<key>In-Url</key>
+			<string>http://test.com/unescaped|pipe</string>
+			<key>Out-NSResults</key>
+			<dict>
+				<key>absoluteString</key>
+				<string>http://test.com/unescaped%7Cpipe</string>
+				<key>absoluteURLString</key>
+				<string>http://test.com/unescaped%7Cpipe</string>
+				<key>baseURLString</key>
+				<string>&lt;null&gt;</string>
+				<key>deletingLastPathComponent</key>
+				<string>http://test.com/</string>
+				<key>deletingLastPathExtension</key>
+				<string>http://test.com/unescaped%7Cpipe</string>
+				<key>fragment</key>
+				<string>&lt;null&gt;</string>
+				<key>host</key>
+				<string>test.com</string>
+				<key>isFileURL</key>
+				<string>NO</string>
+				<key>lastPathComponent</key>
+				<string>unescaped|pipe</string>
+				<key>password</key>
+				<string>&lt;null&gt;</string>
+				<key>path</key>
+				<string>/unescaped|pipe</string>
+				<key>pathComponents</key>
+				<array>
+					<string>/</string>
+					<string>unescaped|pipe</string>
+				</array>
+				<key>pathExtension</key>
+				<string></string>
+				<key>port</key>
+				<string>&lt;null&gt;</string>
+				<key>query</key>
+				<string>&lt;null&gt;</string>
+				<key>relativePath</key>
+				<string>/unescaped|pipe</string>
+				<key>relativeString</key>
+				<string>http://test.com/unescaped%7Cpipe</string>
+				<key>scheme</key>
+				<string>http</string>
+				<key>standardizedURL</key>
+				<string>http://test.com/unescaped%7Cpipe</string>
+				<key>user</key>
+				<string>&lt;null&gt;</string>
+		    </dict>
+		</dict>
 		<dict>
 			<key>In-Title</key>
 			<string>NSURLWithString-parse-absolute-escape-007</string>

TestFoundation/TestURL.swift

@@ -248,25 +248,35 @@ class TestURL : XCTestCase {
             default:
                 XCTFail()
             }
-            if title == "NSURLWithString-parse-ambiguous-url-001" {
-                // TODO: Fix this test
-            } else {
-                if let url = url {
-                        let results = generateResults(url, pathComponent: inPathComponent, pathExtension: inPathExtension)
-                        if let expected = expectedNSResult as? [String: Any] {
-                            let (isEqual, differences) = compareResults(url, expected: expected, got: results)
-                            XCTAssertTrue(isEqual, "\(title): \(differences.joined(separator: "\n"))")
-                        } else {
-                            XCTFail("\(url) should not be a valid url")
-                        }
+
+#if os(Windows)
+            // On Windows, pipes are valid charcters which can be used
+            // to replace a ':'. See RFC 8089 Section E.2.2 for
+            // details.
+            let skippedPipeTest = "NSURLWithString-parse-absolute-escape-006"
+#else
+            let skippedPipeTest = "NSURLWithString-parse-absolute-escape-006-Windows"
+#endif
+            let skippedTests = [
+                "NSURLWithString-parse-ambiguous-url-001", // TODO: Fix Test
+                skippedPipeTest,
+            ]
+            if skippedTests.contains(title) { continue }
+
+            if let url = url {
+                let results = generateResults(url, pathComponent: inPathComponent, pathExtension: inPathExtension)
+                if let expected = expectedNSResult as? [String: Any] {
+                    let (isEqual, differences) = compareResults(url, expected: expected, got: results)
+                    XCTAssertTrue(isEqual, "\(title): \(differences.joined(separator: "\n"))")
                 } else {
-                    XCTAssertEqual(expectedNSResult as? String, kNullURLString)
+                    XCTFail("\(url) should not be a valid url")
                 }
+            } else {
+                XCTAssertEqual(expectedNSResult as? String, kNullURLString)
             }
         }
-        
     }
-    
+
     static let gBaseTemporaryDirectoryPath = (NSTemporaryDirectory() as NSString).appendingPathComponent("org.swift.foundation.TestFoundation.TestURL.\(ProcessInfo.processInfo.processIdentifier)")
     static var gBaseCurrentWorkingDirectoryPath : String {
         return FileManager.default.currentDirectoryPath