test - start storing test file requiring quarto serve

Like `server: shiny` example

Author: cderv

tests/docs/playwright/serve/shiny-r/tabby-html.qmd

@@ -0,0 +1,44 @@
+---
+title: "Title"
+format: html
+server: shiny
+_quarto:
+  playwright-test: serve/shiny-r/shiny-tabby-html.spec.ts
+---
+
+```{r}
+#| context: server
+output$text1 <- renderText({
+  "hi, it's tab 1"
+})
+output$text2 <- renderText({
+  "hi, it's tab 2"
+})
+output$text3 <- renderText({
+  "hi, it's tab 3"
+})
+```
+
+## Slide
+
+::: {.panel-tabset}
+
+### tab1
+
+```{r}
+textOutput("text1")
+```
+
+### tab2
+
+```{r}
+textOutput("text2")
+```
+
+### tab3
+
+```{r}
+textOutput("text3")
+```
+
+:::

tests/docs/playwright/serve/shiny-r/tabby-reveal.qmd

@@ -0,0 +1,44 @@
+---
+title: "Title"
+format: revealjs
+server: shiny
+_quarto:
+  playwright-test: serve/shiny-r/shiny-tabby-reveal.spec.ts
+---
+
+```{r}
+#| context: server
+output$text1 <- renderText({
+  "hi, it's tab 1"
+})
+output$text2 <- renderText({
+  "hi, it's tab 2"
+})
+output$text3 <- renderText({
+  "hi, it's tab 3"
+})
+```
+
+## Slide
+
+::: {.panel-tabset}
+
+### tab1
+
+```{r}
+textOutput("text1")
+```
+
+### tab2
+
+```{r}
+textOutput("text2")
+```
+
+### tab3
+
+```{r}
+textOutput("text3")
+```
+
+:::

tests/integration/playwright-tests.test.ts

@@ -24,7 +24,7 @@ async function fullInit() {
 const globOutput = Deno.args.length
   ? expandGlobSync(Deno.args[0])
   : expandGlobSync(
-    "docs/playwright/**/*.qmd",
+    "docs/playwright/!(serve|shiny)/**/*.qmd",
   );
 
 setInitializer(fullInit);