diff --git a/devel/211_1.md b/devel/211_1.md index de4073962ae878f118337a41545b67f018a98e41..d590fe3467e7e5c49431cfdfba12fd9b349581b7 100644 --- a/devel/211_1.md +++ b/devel/211_1.md @@ -12,6 +12,7 @@ bin/goldfish tools/lint.scm goldfish/liii/timeit.scm tests/goldfish/liii/timeit- bin/goldfish tests/goldfish/liii/timeit-test.scm ``` +## 2025/11/04 移除时间的上界,系统会抖动 ## 2025/11/04 移除sleep 0.001的单元测试 ### Why 在windows上运行10次`sleep 0.001`,实际上会超过 0.05。 diff --git a/tests/goldfish/liii/timeit-test.scm b/tests/goldfish/liii/timeit-test.scm index fe205709475781a811bd1a21f814ff879606bd65..3e56ecacb56e6c70b29b94fc0514bdb222ead5dc 100644 --- a/tests/goldfish/liii/timeit-test.scm +++ b/tests/goldfish/liii/timeit-test.scm @@ -133,16 +133,14 @@ type-error (lambda () #t) 1))) (check (number? result) => #t) - (check (>= result 0.09) => #t) ; Should be at least 0.09 seconds - (check (<= result 0.2) => #t)) ; Should be less than 0.2 seconds + (check (>= result 0.09) => #t)) ; Should be at least 0.09 seconds ; Test timeit with multiple sleep iterations (let ((result (timeit (lambda () (sleep 0.01)) (lambda () #t) 5))) (check (number? result) => #t) - (check (>= result 0.04) => #t) ; Should be at least 0.04 seconds (5 * 0.01) - (check (<= result 0.1) => #t)) ; Should be less than 0.1 seconds + (check (>= result 0.04) => #t)) ; Should be at least 0.04 seconds (5 * 0.01) ; Test timeit with very short sleep (let ((result (timeit (lambda () (sleep 0.001))