Implement SSH upload-pack fetches

crates/storage/src/config.rs

@@ -1343,6 +1343,13 @@ impl GitRemote {
             GitRemoteCredentials::Https { .. } => None,
         }
     }
+
+    #[cfg(all(test, feature = "ssh"))]
+    pub(crate) fn set_ssh_test_port(&mut self, port: u16) {
+        if let RemoteEndpoint::Ssh(endpoint) = &mut self.endpoint {
+            endpoint.port = port;
+        }
+    }
 }
 
 /// An executable and arguments. It is never interpreted by a shell.