Add pnpm monorepo test

Author: nojaf

repos/pnpm/monorepo/package.json

@@ -1,11 +1,13 @@
 {
-  "name": "monorepo",
+  "name": "pnpm-monorepo",
   "version": "1.0.0",
   "private": true,
   "description": "",
   "main": "index.js",
   "scripts": {
-    "test": "echo \"Error: no test specified\" && exit 1"
+    "test": "echo \"Error: no test specified\" && exit 1",
+    "build": "rescript",
+    "clean": "rescript clean"
   },
   "keywords": [],
   "author": "",

repos/pnpm/monorepo/packages/a/src/A.res.mjs

@@ -3,7 +3,10 @@
 
 let a = 1;
 
+let x = "e";
+
 export {
   a,
+  x,
 }
 /* No side effect */

tests/PnpmMonorepo.test.js

@@ -0,0 +1,40 @@
+open RescriptBun.Test
+
+/*
+
+
+
+ */
+
+let repo = Path.resolve([import.meta.dir, "../repos/pnpm/monorepo"])
+
+describe("A monorepo ReScript project using pnpm as package manager", () => {
+  let orginalCwd: string = Process.cwd(Process.process)
+
+  beforeAllAsync(async () => {
+    await changeCwdToRepository(
+      repo,
+      async () => {
+        let _ = await sh`pnpm install`
+      },
+    )
+  })
+
+  afterAllAsync(async () => {
+    Process.chdir(Process.process, orginalCwd)
+  })
+
+  testAsync("should clean", async () => {
+    let _ = await sh`pnpm run clean`
+  })
+
+  testAsync("should build", async () => {
+    let _ = await sh`pnpm run build`
+  })
+
+  testAsync("should clean/build individual project", async () => {
+    let packageAPath = Path.resolve([repo, "packages", "a"])
+    let _ = await (sh`npx rescript clean`)->ShellPromise.cwd(packageAPath)
+    let _ = await (sh`npx rescript build`)->ShellPromise.cwd(packageAPath)
+  })
+})