Change port number; try GHA

Author: jcheng5

.github/workflows/R-CMD-check.yaml

@@ -7,7 +7,7 @@ on:
     branches: [main, rc-**]
   pull_request:
   schedule:
-    - cron: '0 6 * * 1' # every monday
+    - cron: "0 6 * * 1" # every monday
 
 name: Package checks
 
@@ -20,3 +20,29 @@ jobs:
     uses: rstudio/shiny-workflows/.github/workflows/R-CMD-check.yaml@v1
     with:
       ubuntu: "ubuntu-20.04 ubuntu-latest"
+  permessage-deflate-test:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v2
+
+      - name: Setup R
+        uses: r-lib/actions/setup-r@v2
+
+      - name: Install R package dependencies
+        uses: r-lib/actions/setup-r-dependencies@v2
+
+      - name: Install R package
+        run: R CMD INSTALL .
+
+      - name: Setup Node.js
+        uses: actions/setup-node@v2
+        with:
+          node-version: "18"
+
+      - name: Install npm dependencies
+        run: npm install
+        working-directory: deflate-client
+
+      - name: Run npm tests
+        run: npm test
+        working-directory: deflate-client

deflate-client/index.mjs

@@ -40,22 +40,22 @@ async function runTest(address, perMessageDeflate) {
 
 async function main() {
   await sleep(1000);
-  await runTest("ws://127.0.0.1:9100/", false);
-  await runTest("ws://127.0.0.1:9100/", true);
-  await runTest("ws://127.0.0.1:9100/", { threshold: 0 });
-  await runTest("ws://127.0.0.1:9100/", { threshold: 0, serverMaxWindowBits: 9 });
-  await runTest("ws://127.0.0.1:9100/", {
+  await runTest("ws://127.0.0.1:14252/", false);
+  await runTest("ws://127.0.0.1:14252/", true);
+  await runTest("ws://127.0.0.1:14252/", { threshold: 0 });
+  await runTest("ws://127.0.0.1:14252/", { threshold: 0, serverMaxWindowBits: 9 });
+  await runTest("ws://127.0.0.1:14252/", {
     threshold: 0,
     serverMaxWindowBits: 9,
     clientMaxWindowBits: 9
   });
-  await runTest("ws://127.0.0.1:9100/", {
+  await runTest("ws://127.0.0.1:14252/", {
     threshold: 0,
     serverMaxWindowBits: 9,
     clientMaxWindowBits: 9,
     serverNoContextTakeover: true
   });
-  await runTest("ws://127.0.0.1:9100/", {
+  await runTest("ws://127.0.0.1:14252/", {
     threshold: 0,
     serverMaxWindowBits: 9,
     clientMaxWindowBits: 9,

deflate-client/server.R

@@ -25,4 +25,4 @@ server <- list(
   }
 )
 
-httpuv::runServer("127.0.0.1", 9100, server)
+httpuv::runServer("127.0.0.1", 14252, server)