try a test Site wrapper to run with profile

Running a render with profile is tricky as it needs to be done using environment variable, which is tricky in async tests. So probably not enough

Author: cderv

tests/smoke/site/site.ts

@@ -5,15 +5,16 @@
  */
 import { existsSync } from "../../../src/deno_ral/fs.ts";
 import { dirname } from "../../../src/deno_ral/path.ts";
-import { testQuartoCmd, Verify } from "../../test.ts";
-import { projectOutputForInput } from "../../utils.ts";
+import { testQuartoCmd, Verify, TestContext, mergeTestContexts } from "../../test.ts";
+import { projectOutputForInput, restoreEnvVar, setEnvVar } from "../../utils.ts";
 import { ensureHtmlElements, noErrorsOrWarnings } from "../../verify.ts";
 
 export const testSite = (
   input: string,
   renderTarget: string,
   includeSelectors: string[],
   excludeSelectors: string[],
+  additionalContext?: TestContext,
   ...verify: Verify[]
 ) => {
   const output = projectOutputForInput(input);
@@ -24,18 +25,42 @@ export const testSite = (
     excludeSelectors,
   );
 
+  const baseContext: TestContext = {
+    teardown: async () => {
+      const siteDir = dirname(output.outputPath);
+      if (existsSync(siteDir)) {
+        await Deno.remove(siteDir, { recursive: true });
+      }
+    },
+  };
+
   // Run the command
   testQuartoCmd(
     "render",
     [renderTarget],
     [noErrorsOrWarnings, verifySel, ...verify],
-    {
-      teardown: async () => {
-        const siteDir = dirname(output.outputPath);
-        if (existsSync(siteDir)) {
-          await Deno.remove(siteDir, { recursive: true });
-        }
-      },
-    },
+    mergeTestContexts(baseContext, additionalContext),
   );
 };
+
+export function testSiteWithProfile(profile: string) {
+  return (
+    input: string,
+    renderTarget: string,
+    includeSelectors: string[],
+    excludeSelectors: string[],
+    ...verify: Verify[]
+  ) => {
+    let profileEnv: string | undefined;
+    const additionalContext: TestContext = {
+      name: `with profile: ${profile}`,
+      setup: async () => {
+        profileEnv = setEnvVar("QUARTO_PROFILE", profile);
+      },
+      teardown: async () => {
+        restoreEnvVar("QUARTO_PROFILE", profileEnv);
+      }
+    }
+      testSite(input, renderTarget, includeSelectors, excludeSelectors, additionalContext, ...verify);
+  };
+}