GitLab

at 2016-11-28T21:05:02-08:00

Minor cosmetic tweaks

o Include math.h before netdb.h (from Carl)
o Use ceil instead of trunc and add comment on why.
o Conform to cmucl style.

Add test for issue 26

Basically used the repro case from the issue.

*/

#include <errno.h>

#include <math.h>

#include <netdb.h>

#include <stdio.h>

#include <string.h>

#include <time.h>

#include <math.h>

#include "os.h"

#include "internals.h"

/*

 * sleep for the given number of seconds, even if we're interrupted.

 */

void os_sleep(double seconds)

void

os_sleep(double seconds)

{

    struct timespec requested;

    struct timespec remaining;

    fractional = modf(seconds, &integral);

    requested.tv_sec = (time_t) integral;

    requested.tv_nsec = (long) trunc(fractional * 1e9);

    /*

     * Round up just in case; it's probably better to sleep slightly

     * too long than to sleep for too short a time.

     */

    requested.tv_nsec = (long) ceil(fractional * 1e9);

    while (nanosleep(&requested, &remaining) == -1 && errno == EINTR) {

	requested = remaining;

    }

    (assert (null (set-difference directories

                                  '(".dir" "dir")

                                  :test #'string-equal)))))

(define-test issue.26

    (:tag :issues)

  (let ((start-time (get-universal-time)))

    (let ((p (ext:run-program "/usr/bin/env" '("sleep" "1") :wait nil)))

      (declare (ignore p))

      (sleep 5)

      ;; We expect to have slept for at least 5 sec, but since

      ;; get-universal-time only has an accuracy of 1 sec, just verify

      ;; more than 3 sec have elapsed.

      (assert-true (>= (- (get-universal-time) start-time) 3)))))

Raymond Toy pushed to branch rtoy-issue-26 at cmucl / cmucl

Commits:

2 changed files:

Changes: