chore: improve test

tests/bench/dag_hassorry_issue.lean

@@ -49,4 +49,9 @@ def test (n : Nat) : CoreM Unit := do
   }
   return ()
 
-#eval test 10000
+def main (args : List String) : IO Unit := do
+  let [size] := args | throw (IO.userError s!"unexpected number of arguments, numeral expected")
+  initSearchPath (← findSysroot)
+  let env ← importModules [{ module := `Init.Prelude }] {} 0
+  discard <| test size.toNat! |>.toIO { fileName := "<test>", fileMap := default } { env }
+  IO.println "ok"

tests/bench/dag_hassorry_issue.lean.args

@@ -0,0 +1 @@
+10000

tests/bench/dag_hassorry_issue.lean.expected.out

@@ -0,0 +1 @@
+ok