tonyfettes-raylib/window_test.mbt at main · moonbit-community/tonyfettes-raylib · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
///|
test "get_random_value returns value in range" {
  let v = get_random_value(10, 20)
  assert_true(v >= 10 && v <= 20)
}

///|
test "set_random_seed + get_random_value determinism" {
  set_random_seed(42)
  let a1 = get_random_value(0, 1000)
  let a2 = get_random_value(0, 1000)
  set_random_seed(42)
  let b1 = get_random_value(0, 1000)
  let b2 = get_random_value(0, 1000)
  assert_eq(a1, b1)
  assert_eq(a2, b2)
}

///|
test "set_target_fps does not crash" {
  set_target_fps(60)
  // If we reach here, no crash occurred
  assert_true(true)
}

///|
test "get_time returns non-negative" {
  let t = get_time()
  assert_true(t >= 0.0)
}

///|
test "get_frame_time returns non-negative" {
  let dt = get_frame_time()
  assert_true(dt >= 0.0)
}

///|
test "set_trace_log_level does not crash" {
  set_trace_log_level(LogNone)
  // If we reach here, no crash occurred
  assert_true(true)
}

///|
test "Constants: key codes sample" {
  assert_eq(KeySpace, 32)
  assert_eq(KeyEscape, 256)
}

///|
test "Constants: flags and modes" {
  assert_eq(FlagWindowHidden, 0x80)
  assert_eq(CameraPerspective, 0)
  assert_eq(BlendAlpha, 0)
  assert_eq(MouseButtonLeft, 0)
}