xref: /freebsd/crypto/heimdal/lib/krb5/test_time.c (revision 6a068746777241722b2b32c5d0bc443a2a64d80b)
1c19800e8SDoug Rabson /*
2*ae771770SStanislav Sedov  * Copyright (c) 2003 Kungliga Tekniska Högskolan
3c19800e8SDoug Rabson  * (Royal Institute of Technology, Stockholm, Sweden).
4c19800e8SDoug Rabson  * All rights reserved.
5c19800e8SDoug Rabson  *
6c19800e8SDoug Rabson  * Redistribution and use in source and binary forms, with or without
7c19800e8SDoug Rabson  * modification, are permitted provided that the following conditions
8c19800e8SDoug Rabson  * are met:
9c19800e8SDoug Rabson  *
10c19800e8SDoug Rabson  * 1. Redistributions of source code must retain the above copyright
11c19800e8SDoug Rabson  *    notice, this list of conditions and the following disclaimer.
12c19800e8SDoug Rabson  *
13c19800e8SDoug Rabson  * 2. Redistributions in binary form must reproduce the above copyright
14c19800e8SDoug Rabson  *    notice, this list of conditions and the following disclaimer in the
15c19800e8SDoug Rabson  *    documentation and/or other materials provided with the distribution.
16c19800e8SDoug Rabson  *
17c19800e8SDoug Rabson  * 3. Neither the name of KTH nor the names of its contributors may be
18c19800e8SDoug Rabson  *    used to endorse or promote products derived from this software without
19c19800e8SDoug Rabson  *    specific prior written permission.
20c19800e8SDoug Rabson  *
21c19800e8SDoug Rabson  * THIS SOFTWARE IS PROVIDED BY KTH AND ITS CONTRIBUTORS ``AS IS'' AND ANY
22c19800e8SDoug Rabson  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23c19800e8SDoug Rabson  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
24c19800e8SDoug Rabson  * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL KTH OR ITS CONTRIBUTORS BE
25c19800e8SDoug Rabson  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
26c19800e8SDoug Rabson  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
27c19800e8SDoug Rabson  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
28c19800e8SDoug Rabson  * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
29c19800e8SDoug Rabson  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
30c19800e8SDoug Rabson  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
31c19800e8SDoug Rabson  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32c19800e8SDoug Rabson  */
33c19800e8SDoug Rabson 
34c19800e8SDoug Rabson #include "krb5_locl.h"
35c19800e8SDoug Rabson #include <err.h>
36c19800e8SDoug Rabson 
37c19800e8SDoug Rabson static void
check_set_time(krb5_context context)38c19800e8SDoug Rabson check_set_time(krb5_context context)
39c19800e8SDoug Rabson {
40c19800e8SDoug Rabson     krb5_error_code ret;
41c19800e8SDoug Rabson     krb5_timestamp sec;
42c19800e8SDoug Rabson     int32_t usec;
43c19800e8SDoug Rabson     struct timeval tv;
44c19800e8SDoug Rabson     int diff = 10;
45c19800e8SDoug Rabson     int diff2;
46c19800e8SDoug Rabson 
47c19800e8SDoug Rabson     gettimeofday(&tv, NULL);
48c19800e8SDoug Rabson 
49c19800e8SDoug Rabson     ret = krb5_set_real_time(context, tv.tv_sec + diff, tv.tv_usec);
50c19800e8SDoug Rabson     if (ret)
51c19800e8SDoug Rabson 	krb5_err(context, 1, ret, "krb5_us_timeofday");
52c19800e8SDoug Rabson 
53c19800e8SDoug Rabson     ret = krb5_us_timeofday(context, &sec, &usec);
54c19800e8SDoug Rabson     if (ret)
55c19800e8SDoug Rabson 	krb5_err(context, 1, ret, "krb5_us_timeofday");
56c19800e8SDoug Rabson 
57c19800e8SDoug Rabson     diff2 = abs(sec - tv.tv_sec);
58c19800e8SDoug Rabson 
59c19800e8SDoug Rabson     if (diff2 < 9 || diff > 11)
60c19800e8SDoug Rabson 	krb5_errx(context, 1, "set time error: diff: %d",
61c19800e8SDoug Rabson 		  abs(sec - tv.tv_sec));
62c19800e8SDoug Rabson }
63c19800e8SDoug Rabson 
64c19800e8SDoug Rabson 
65c19800e8SDoug Rabson 
66c19800e8SDoug Rabson int
main(int argc,char ** argv)67c19800e8SDoug Rabson main(int argc, char **argv)
68c19800e8SDoug Rabson {
69c19800e8SDoug Rabson     krb5_context context;
70c19800e8SDoug Rabson     krb5_error_code ret;
71c19800e8SDoug Rabson 
72c19800e8SDoug Rabson     ret = krb5_init_context(&context);
73c19800e8SDoug Rabson     if (ret)
74c19800e8SDoug Rabson 	errx(1, "krb5_init_context %d", ret);
75c19800e8SDoug Rabson 
76c19800e8SDoug Rabson     check_set_time(context);
77c19800e8SDoug Rabson     check_set_time(context);
78c19800e8SDoug Rabson     check_set_time(context);
79c19800e8SDoug Rabson     check_set_time(context);
80c19800e8SDoug Rabson     check_set_time(context);
81c19800e8SDoug Rabson 
82c19800e8SDoug Rabson     krb5_free_context(context);
83c19800e8SDoug Rabson 
84c19800e8SDoug Rabson     return 0;
85c19800e8SDoug Rabson }
86