Merge pull request aiscript-dev#660 from salano-ym/fix-test-genrng

Math:gen_rngのテストを改善

Author: salano-ym

test/index.ts

@@ -3311,18 +3311,32 @@ describe('std', () => {
 		});
 
 		test.concurrent('gen_rng', async () => {
-			const res = await exe(`
-			@test(seed) {
-				let random = Math:gen_rng(seed)
-				return random(0 100)
+			// 2つのシード値から1~maxの乱数をn回生成して一致率を見る
+			const res = await exe(`
+			@test(seed1, seed2) {
+				let n = 100
+				let max = 100000
+				let threshold = 0.05
+				let random1 = Math:gen_rng(seed1)
+				let random2 = Math:gen_rng(seed2)
+				var same = 0
+				for n {
+					if random1(1, max) == random2(1, max) {
+						same += 1
+					}
+				}
+				let rate = same / n
+				if seed1 == seed2 { rate == 1 }
+				else { rate < threshold }
 			}
 			let seed1 = \`{Util:uuid()}\`
 			let seed2 = \`{Date:year()}\`
-			let test1 = if (test(seed1) == test(seed1)) {true} else {false}
-			let test2 = if (test(seed1) == test(seed2)) {true} else {false}
-			<: [test1 test2]
+			<: [
+				test(seed1, seed1)
+				test(seed1, seed2)
+			]
 			`)
-			eq(res, ARR([BOOL(true), BOOL(false)]));
+			eq(res, ARR([BOOL(true), BOOL(true)]));
 		});
 	});