mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 15:00:45 -08:00
Code Issues Projects Releases Wiki Activity

Use extract_time in test module.

Browse source 
* test/data/emacs-module/mod-test.c (Fmod_test_sleep_until): Use
extract_time for time argument.
(signal_wrong_type_argument): Remove unused function.

* test/src/emacs-module-tests.el (mod-test-sleep-until): Remove
unnecessary ‘float-time’.
This commit is contained in:
Philipp Stephani 2019-05-05 01:23:44 +02:00
parent 27a9377d42
commit e95ecbe146
2 changed files with 2 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

18
test/data/emacs-module/mod-test.c
View file

@ -315,16 +315,6 @@ Fmod_test_invalid_finalizer (emacs_env *env, ptrdiff_t nargs, emacs_value *args,
return env->intern (env, "nil");
}
static void
signal_wrong_type_argument (emacs_env *env, const char *predicate,
emacs_value arg)
{
emacs_value symbol = env->intern (env, "wrong-type-argument");
emacs_value elements[2] = {env->intern (env, predicate), arg};
emacs_value data = env->funcall (env, env->intern (env, "list"), 2, elements);
env->non_local_exit_signal (env, symbol, data);
}
static void
signal_errno (emacs_env *env, const char *function)
{
@ -345,16 +335,10 @@ Fmod_test_sleep_until (emacs_env *env, ptrdiff_t nargs, emacs_value *args,
void *data)
{
assert (nargs == 2);
const double until_seconds = env->extract_float (env, args[0]);
const struct timespec until = env->extract_time (env, args[0]);
if (env->non_local_exit_check (env))
return NULL;
if (until_seconds <= 0)
{
signal_wrong_type_argument (env, "cl-plusp", args[0]);
return NULL;
}
const bool process_input = env->is_not_nil (env, args[1]);
const struct timespec until = dtotimespec (until_seconds);
const struct timespec amount = make_timespec(0, 10000000);
while (true)
{

2
test/src/emacs-module-tests.el
View file

@ -313,7 +313,7 @@ Interactively, you can try hitting \\[keyboard-quit] to quit."
;; Interactively, run for 5 seconds to give the
;; user time to quit. In batch mode, run only
;; briefly since the user can't quit.
(float-time (time-add nil (if noninteractive 0.1 5)))
(time-add nil (if noninteractive 0.1 5))
;; should_quit or process_input
arg))
'finished))