mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Skip tests that require alarm or SIGALRM when not supported

Browse source 
* test-suite/tests/sandbox.test ("time limit"): skip if unsupported
* test-suite/tests/time.test ("gmtime"): skip if unsupported
This commit is contained in:
Michael Gran 2023-06-20 11:42:33 -07:00
parent d512ec0657
commit 12861e2bc2
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/sandbox.test
View file

@ -40,13 +40,17 @@
(with-test-prefix "time limit"
(pass-if "0 busy loop"
(unless (defined? 'SIGALRM) (throw 'unsupported))
(call-with-time-limit 0 busy-loop (lambda () #t)))
(pass-if "0.001 busy loop"
(unless (defined? 'SIGALRM) (throw 'unsupported))
(call-with-time-limit 0.001 busy-loop (lambda () #t)))
(pass-if "0 sleep"
(unless (defined? 'SIGALRM) (throw 'unsupported))
(call-with-time-limit 0 (lambda () (usleep-loop #e1e6) #f)
(lambda () #t)))
(pass-if "0.001 sleep"
(unless (defined? 'SIGALRM) (throw 'unsupported))
(call-with-time-limit 0.001 (lambda () (usleep-loop #e1e6) #f)
(lambda () #t))))

4
test-suite/tests/time.test
View file

@ -29,7 +29,9 @@
(for-each (lambda (t)
(pass-if (list "in another thread after error" t)
(or (provided? 'threads) (throw 'unsupported))
(unless (and (provided? 'threads)
(defined? 'alarm))
(throw 'unsupported))
(alarm 5)
(false-if-exception (gmtime t))