repro large variant timeout

for #8039

Author: cristianoc

tests/analysis_tests/perf_test/Makefile

@@ -0,0 +1,7 @@
+SHELL = /bin/bash
+
+build:
+	yarn build
+
+clean:
+	yarn clean

tests/analysis_tests/perf_test/package.json

@@ -0,0 +1,11 @@
+{
+  "name": "perf_test",
+  "private": true,
+  "scripts": {
+    "build": "rescript-legacy build",
+    "clean": "rescript-legacy clean"
+  },
+  "dependencies": {
+    "rescript": "workspace:^"
+  }
+}

tests/analysis_tests/perf_test/rescript.json

@@ -0,0 +1,10 @@
+{
+  "name": "test",
+  "sources": [
+    {
+      "dir": "src",
+      "subdirs": true
+    }
+  ],
+  "suffix": ".res.js"
+}

tests/analysis_tests/perf_test/src/Player.js

@@ -0,0 +1,58 @@
+@unboxed
+type key =
+  // | @as("f2") F2
+  // | @as("f3") F3
+  // | @as("f4") F4
+  // | @as("f5") F5
+  // | @as("f6") F6
+  // | @as("f7") F7
+  // | @as("f8") F8
+  // | @as("f9") F9
+  | @as("f10") F10
+  | @as("l") L
+  | @as("m") M
+  | @as("n") N
+  | @as("o") O
+  | @as("p") P
+  | @as("q") Q
+  | @as("r") R
+  | @as("s") S
+  | @as("t") T
+  | @as("u") U
+  | @as("v") V
+  | @as("w") W
+  | @as("x") X
+  | @as("space") Space
+  | @as("left") Left
+  | @as("right") Right
+  | @as("up") Up
+  | @as("down") Down
+  | @as("escape") Escape
+  | @as("backspace") Backspace
+  | @as("enter") Enter
+  | @as("tab") Tab
+  | @as("control") Control
+  | @as("alt") Alt
+  | @as("meta") Meta
+  | @as("shift") Shift
+  | @as("string") String(string)
+
+@send
+external onKeyRelease: (key => unit) => unit = "onKeyRelease"
+
+let make = () => {
+  let gameObj: Thundershock.t = Obj.magic(3)
+
+  onKeyRelease(key => {
+    let isYAxis = !(gameObj.direction.y == 0.)
+    switch key {
+    | Space =>
+      if isYAxis {
+        Thundershock.cast(gameObj)->ignore
+      }
+    | _ => ()
+    }
+  })
+
+  gameObj
+}

tests/analysis_tests/perf_test/src/Player.res

@@ -0,0 +1,15 @@
+type team = Player | Opponent
+
+type vec2 = {
+  mutable x: float,
+  mutable y: float,
+}
+
+
+type t = {mutable direction: vec2}
+
+
+let cast = (_: t) => {
+  ()
+}
+

tests/analysis_tests/perf_test/src/Thundershock.js

@@ -2415,6 +2415,14 @@ __metadata:
   languageName: node
   linkType: hard
 
+"perf_test@workspace:tests/analysis_tests/perf_test":
+  version: 0.0.0-use.local
+  resolution: "perf_test@workspace:tests/analysis_tests/perf_test"
+  dependencies:
+    rescript: "workspace:^"
+  languageName: unknown
+  linkType: soft
+
 "picocolors@npm:^1.0.0, picocolors@npm:^1.1.1":
   version: 1.1.1
   resolution: "picocolors@npm:1.1.1"