diff --git a/tests/testthat/test-http.R b/tests/testthat/test-http.R
index 6827b7c8..3bafc9e3 100644
--- a/tests/testthat/test-http.R
+++ b/tests/testthat/test-http.R
@@ -16,7 +16,7 @@ input <- tempfile(fileext = ".rds")
 datafile <- tempfile("rsconnect-tmp")
 
 # Configure the test service we'll be connecting to
-port <- 4072L
+port <- 14072L
 service <- list(
   protocol = "http",
   host = "localhost",