feat: benchmark utility

Author: waterlens

array/fixedarray.mbt

@@ -297,20 +297,6 @@ test "mapi" {
   assert_eq!(doubled, [2, 5, 8, 11, 14])
 }
 
-///|
-test "makei" {
-  let empty = FixedArray::makei(0, fn(_i) { { val: 3 } })
-  assert_eq!(empty.length(), 0)
-  let simple_arr = FixedArray::makei(1, fn(_i) { { val: 2 } })
-  assert_eq!(simple_arr.length(), 1)
-  assert_eq!(simple_arr[0].val, 2)
-  let arr = FixedArray::makei(2, fn(_i) { { val: 1 } })
-  assert_eq!(arr.length(), 2)
-  @test.is_not!(arr[0], arr[1])
-  assert_eq!(arr[0].val, 1)
-  assert_eq!(arr[1].val, 1)
-}
-
 ///|
 /// Creates a new fixed-size array of the specified length, where each element is
 /// initialized using a function that maps indices to values.

array/fixedarray_test.mbt

@@ -90,3 +90,17 @@ test "FixedArray::arbitrary" {
     content="[[0, 0, 0, 1, 0, -1, 0, -1], [0, 0, 0, 1], [0, 0, 0, -1, -1, -1, 4], [0, 0], [0, 0, -1, 2]]",
   )
 }
+
+///|
+test "FixedArray::makei" {
+  let empty = FixedArray::makei(0, fn(_i) { { val: 3 } })
+  assert_eq!(empty.length(), 0)
+  let simple_arr = FixedArray::makei(1, fn(_i) { { val: 2 } })
+  assert_eq!(simple_arr.length(), 1)
+  assert_eq!(simple_arr[0].val, 2)
+  let arr = FixedArray::makei(2, fn(_i) { { val: 1 } })
+  assert_eq!(arr.length(), 2)
+  @test.is_not!(arr[0], arr[1])
+  assert_eq!(arr[0].val, 1)
+  assert_eq!(arr[1].val, 1)
+}

array/moon.pkg.json

@@ -3,11 +3,11 @@
     "moonbitlang/core/builtin",
     "moonbitlang/core/bytes",
     "moonbitlang/core/string",
-    "moonbitlang/core/test",
     "moonbitlang/core/quickcheck",
     "moonbitlang/core/quickcheck/splitmix"
   ],
   "test-import": [
+    "moonbitlang/core/test",
     "moonbitlang/core/prelude",
     "moonbitlang/core/random",
     "moonbitlang/core/json"

bench/bench.mbt

@@ -144,6 +144,8 @@ impl ArrayView {
 }
 impl[X : ToJson] ToJson for ArrayView[X]
 
+pub(all) type! BenchError String
+
 type BigInt
 impl BigInt {
   #deprecated

bench/bench_test.mbt

@@ -231,6 +231,9 @@ pub fn inspect(
 /// ```
 pub(all) type! SnapshotError String
 
+///|
+pub(all) type! BenchError String
+
 ///|
 test "panic error case of inspect" {
   let x : Int = 42

bench/moon.pkg.json

@@ -11,8 +11,10 @@
 // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 // See the License for the specific language governing permissions and
 // limitations under the License.
+
 ///|
 extern type Timestamp
+
 ///|
 pub extern "js" fn monotonic_clock_start() -> Timestamp =
   #| () => performance.now()

bench/types.mbt

@@ -11,6 +11,7 @@
 // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 // See the License for the specific language governing permissions and
 // limitations under the License.
+
 ///|
 extern type Timestamp
 

builtin/builtin.mbti

@@ -11,17 +11,18 @@
 // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 // See the License for the specific language governing permissions and
 // limitations under the License.
-///|
 
-extern type Instant
+///|
+extern type Timestamp
 
-fn instant_elapsed_as_secs_f64(x : Instant) -> Double = "__moonbit_time_unstable" "instant_elapsed_as_secs_f64"
+///|
+fn instant_elapsed_as_secs_f64(x : Timestamp) -> Double = "__moonbit_time_unstable" "instant_elapsed_as_secs_f64"
 
 ///|
-pub fn monotonic_clock_start() -> Instant = "__moonbit_time_unstable" "instant_now"
+pub fn monotonic_clock_start() -> Timestamp = "__moonbit_time_unstable" "instant_now"
 
 ///|
-pub fn monotonic_clock_end(ts : Instant) -> Double {
-  let elapsed_secs: Double = instant_elapsed_as_secs_f64(ts);
+pub fn monotonic_clock_end(ts : Timestamp) -> Double {
+  let elapsed_secs : Double = instant_elapsed_as_secs_f64(ts)
   elapsed_secs * 1000000.0
 }

builtin/console.mbt

@@ -1,4 +1,14 @@
 {
-  "import": ["moonbitlang/core/builtin"],
+  "targets": {
+    "monotonic_clock_js.mbt": ["js"],
+    "monotonic_clock_wasm.mbt": ["wasm", "wasm-gc"],
+    "monotonic_clock_native.mbt": ["native"]
+  },
+  "import": [
+    "moonbitlang/core/builtin",
+    "moonbitlang/core/double",
+    "moonbitlang/core/array",
+    "moonbitlang/core/json"
+  ],
   "test-import": ["moonbitlang/core/prelude"]
 }