Add CI + test

Author: cknitt

.github/workflows/ci.yml

@@ -0,0 +1,56 @@
+name: CI
+
+on:
+  push:
+    branches: [master]
+    # See https://docs.github.com/en/actions/using-workflows/workflow-syntax-for-github-actions#filter-pattern-cheat-sheet
+    tags:
+      - "v[0-9]+.[0-9]+.[0-9]+"
+      - "v[0-9]+.[0-9]+.[0-9]+-*"
+
+  pull_request:
+    branches: [master]
+
+concurrency:
+  group: ci-${{ github.ref }}-1
+  # Cancel previous builds for pull requests only.
+  cancel-in-progress: ${{ github.event_name == 'pull_request' }}
+
+jobs:
+  build:
+    strategy:
+      fail-fast: false
+      matrix:
+        os: [
+            macos-13, # x64
+            macos-14, # ARM
+            ubuntu-latest, # x64
+            buildjet-2vcpu-ubuntu-2204-arm, # ARM
+            windows-latest,
+          ]
+
+    runs-on: ${{matrix.os}}
+
+    steps:
+      - name: Checkout
+        uses: actions/checkout@v4
+
+      - name: Use Node.js
+        uses: actions/setup-node@v4
+        with:
+          node-version: 18
+
+      - name: NPM install
+        run: npm ci
+
+      - name: Build
+        run: npx rescript
+
+      - name: Test
+        env:
+          CI: 1
+        shell: bash
+        run: |
+          npm pack
+          npm i -g ./create-rescript-app-*.tgz
+          npx create-rescript-app

src/CI.res

@@ -0,0 +1,6 @@
+@val @scope("process.env") external ci: string = "CI"
+
+let isRunningInCI = switch ci {
+| "1" | "true" | "TRUE" => true
+| _ => false
+}

src/CI.resi

@@ -0,0 +1 @@
+let isRunningInCI: bool

src/Main.res

@@ -35,7 +35,11 @@ https://rescript-lang.org`,
   let rescriptJsonPath = Path.join2(Process.cwd(), "rescript.json")
   let bsconfigJsonPath = Path.join2(Process.cwd(), "bsconfig.json")
 
-  if Fs.existsSync(rescriptJsonPath) || Fs.existsSync(bsconfigJsonPath) {
+  if CI.isRunningInCI {
+    P.note(~title="CI Mode", ~message="Running in CI, will create a test project")
+    await NewProject.createNewProject()
+    P.outro("CI test completed successfully.")
+  } else if Fs.existsSync(rescriptJsonPath) || Fs.existsSync(bsconfigJsonPath) {
     ExistingRescriptProject.showUpgradeHint()
     P.outro("No changes were made to your project.")
   } else if Fs.existsSync(packageJsonPath) {

src/NewProject.res

@@ -51,21 +51,7 @@ let getTemplateOptions = () =>
     hint: shortDescription,
   })
 
-let createNewProject = async () => {
-  P.note(~title="New Project", ~message=newProjectMessage)
-
-  let projectName = await P.text({
-    message: "What is the name of your new ReScript project?",
-    placeholder: "my-rescript-app",
-    initialValue: ?Process.argv[2],
-    validate: validateProjectName,
-  })->P.resultOrRaise
-
-  let templateName =
-    await P.select({message: "Select a template", options: getTemplateOptions()})->P.resultOrRaise
-
-  let versions = await RescriptVersions.promptVersions()
-
+let createProject = async (~templateName, ~projectName, ~versions) => {
   let templatePath = CraPaths.getTemplatePath(~templateName)
   let projectPath = Path.join2(Process.cwd(), projectName)
 
@@ -85,3 +71,30 @@ let createNewProject = async () => {
 
   s->P.Spinner.stop("Project created.")
 }
+
+let createNewProject = async () => {
+  P.note(~title="New Project", ~message=newProjectMessage)
+
+  if CI.isRunningInCI {
+    // type versions = {rescriptVersion: string, rescriptCoreVersion: string}
+    await createProject(
+      ~templateName="rescript-template-basic",
+      ~projectName="test",
+      ~versions={rescriptVersion: "11.1.1", rescriptCoreVersion: "1.5.0"},
+    )
+  } else {
+    let projectName = await P.text({
+      message: "What is the name of your new ReScript project?",
+      placeholder: "my-rescript-app",
+      initialValue: ?Process.argv[2],
+      validate: validateProjectName,
+    })->P.resultOrRaise
+
+    let templateName =
+      await P.select({message: "Select a template", options: getTemplateOptions()})->P.resultOrRaise
+
+    let versions = await RescriptVersions.promptVersions()
+
+    await createProject(~templateName, ~projectName, ~versions)
+  }
+}