test: add e2e tests for format_js and format_sass

.github/workflows/e2e-test.yml

@@ -94,12 +94,24 @@ jobs:
           cd RhinoApp
           Rscript ../test-lint-js.R
 
+      - name: format_js() should format JS scripts
+        if: always()
+        run: |
+          cd RhinoApp
+          Rscript ../test-format-js.R
+
       - name: lint_sass() should detect lint errors in CSS
         if: always()
         run: |
           cd RhinoApp
           Rscript ../test-lint-sass.R
 
+      - name: format_sass() should format SASS (.scss) scripts
+        if: always()
+        run: |
+          cd RhinoApp
+          Rscript ../test-format-sass.R
+
       - name: build_js() should build app.min.js
         if: always()
         run: |

tests/e2e/test-format-js.R

@@ -0,0 +1,13 @@
+rhino::format_js()
+
+# Create bad scripts and test if formatting returns the expected result
+test_file_path <- fs::path("app", "js", "bad-style.js")
+cat('const  someFunction = (a ,b) => a+ b + "asdf"', file = test_file_path)
+rhino::format_js()
+testthat::expect_identical(
+  readLines(test_file_path),
+  "const someFunction = (a, b) => a + b + 'asdf';"
+)
+
+# Clean up
+file.remove(test_file_path)

tests/e2e/test-format-sass.R

@@ -0,0 +1,18 @@
+rhino::format_sass()
+
+# Create bad scripts and test if formatting returns the expected result
+test_file_path <- fs::path("app", "styles", "bad-style.scss")
+cat("@import 'asdf';\nx+y{ color: red}", file = test_file_path)
+rhino::format_sass()
+testthat::expect_identical(
+  readLines(test_file_path),
+  c(
+    '@import "asdf";',
+    "x + y {",
+    "  color: red;",
+    "}"
+  )
+)
+
+# Clean up
+file.remove(test_file_path)