1 USING: arrays calendar kernel math sequences tools.test
5 [ f ] [ 2004 12 32 0 0 0 0 <timestamp> valid-timestamp? ] unit-test
6 [ f ] [ 2004 2 30 0 0 0 0 <timestamp> valid-timestamp? ] unit-test
7 [ f ] [ 2003 2 29 0 0 0 0 <timestamp> valid-timestamp? ] unit-test
8 [ f ] [ 2004 -2 9 0 0 0 0 <timestamp> valid-timestamp? ] unit-test
9 [ f ] [ 2004 12 0 0 0 0 0 <timestamp> valid-timestamp? ] unit-test
10 [ f ] [ 2004 12 1 24 0 0 0 <timestamp> valid-timestamp? ] unit-test
11 [ f ] [ 2004 12 1 23 60 0 0 <timestamp> valid-timestamp? ] unit-test
12 [ f ] [ 2004 12 1 23 59 60 0 <timestamp> valid-timestamp? ] unit-test
13 [ t ] [ now valid-timestamp? ] unit-test
15 [ f ] [ 1900 leap-year? ] unit-test
16 [ t ] [ 1904 leap-year? ] unit-test
17 [ t ] [ 2000 leap-year? ] unit-test
18 [ f ] [ 2001 leap-year? ] unit-test
19 [ f ] [ 2006 leap-year? ] unit-test
21 [ t ] [ 2006 10 10 0 0 0 0 <timestamp> 1 seconds time+
22 2006 10 10 0 0 1 0 <timestamp> = ] unit-test
23 [ t ] [ 2006 10 10 0 0 0 0 <timestamp> 100 seconds time+
24 2006 10 10 0 1 40 0 <timestamp> = ] unit-test
25 [ t ] [ 2006 10 10 0 0 0 0 <timestamp> -100 seconds time+
26 2006 10 9 23 58 20 0 <timestamp> = ] unit-test
27 [ t ] [ 2006 10 10 0 0 0 0 <timestamp> 86400 seconds time+
28 2006 10 11 0 0 0 0 <timestamp> = ] unit-test
30 [ t ] [ 2006 10 10 0 0 0 0 <timestamp> 10 minutes time+
31 2006 10 10 0 10 0 0 <timestamp> = ] unit-test
32 [ t ] [ 2006 10 10 0 0 0 0 <timestamp> 10.5 minutes time+
33 2006 10 10 0 10 30 0 <timestamp> = ] unit-test
34 [ t ] [ 2006 10 10 0 0 0 0 <timestamp> 3/4 minutes time+
35 2006 10 10 0 0 45 0 <timestamp> = ] unit-test
36 [ t ] [ 2006 10 10 0 0 0 0 <timestamp> -3/4 minutes time+
37 2006 10 9 23 59 15 0 <timestamp> = ] unit-test
39 [ t ] [ 2006 10 10 0 0 0 0 <timestamp> 7200 minutes time+
40 2006 10 15 0 0 0 0 <timestamp> = ] unit-test
41 [ t ] [ 2006 10 10 0 0 0 0 <timestamp> -10 minutes time+
42 2006 10 9 23 50 0 0 <timestamp> = ] unit-test
43 [ t ] [ 2006 10 10 0 0 0 0 <timestamp> -100 minutes time+
44 2006 10 9 22 20 0 0 <timestamp> = ] unit-test
46 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 1 hours time+
47 2006 1 1 1 0 0 0 <timestamp> = ] unit-test
48 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 24 hours time+
49 2006 1 2 0 0 0 0 <timestamp> = ] unit-test
50 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> -24 hours time+
51 2005 12 31 0 0 0 0 <timestamp> = ] unit-test
52 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 12 hours time+
53 2006 1 1 12 0 0 0 <timestamp> = ] unit-test
54 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 72 hours time+
55 2006 1 4 0 0 0 0 <timestamp> = ] unit-test
57 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 1 days time+
58 2006 1 2 0 0 0 0 <timestamp> = ] unit-test
59 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> -1 days time+
60 2005 12 31 0 0 0 0 <timestamp> = ] unit-test
61 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 365 days time+
62 2007 1 1 0 0 0 0 <timestamp> = ] unit-test
63 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> -365 days time+
64 2005 1 1 0 0 0 0 <timestamp> = ] unit-test
65 [ t ] [ 2004 1 1 0 0 0 0 <timestamp> 365 days time+
66 2004 12 31 0 0 0 0 <timestamp> = ] unit-test
67 [ t ] [ 2004 1 1 0 0 0 0 <timestamp> 366 days time+
68 2005 1 1 0 0 0 0 <timestamp> = ] unit-test
70 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 11 months time+
71 2006 12 1 0 0 0 0 <timestamp> = ] unit-test
72 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 12 months time+
73 2007 1 1 0 0 0 0 <timestamp> = ] unit-test
74 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 24 months time+
75 2008 1 1 0 0 0 0 <timestamp> = ] unit-test
76 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 13 months time+
77 2007 2 1 0 0 0 0 <timestamp> = ] unit-test
78 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 1 months time+
79 2006 2 1 0 0 0 0 <timestamp> = ] unit-test
80 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 0 months time+
81 2006 1 1 0 0 0 0 <timestamp> = ] unit-test
82 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> -1 months time+
83 2005 12 1 0 0 0 0 <timestamp> = ] unit-test
84 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> -2 months time+
85 2005 11 1 0 0 0 0 <timestamp> = ] unit-test
86 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> -13 months time+
87 2004 12 1 0 0 0 0 <timestamp> = ] unit-test
88 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> -24 months time+
89 2004 1 1 0 0 0 0 <timestamp> = ] unit-test
90 [ t ] [ 2004 2 29 0 0 0 0 <timestamp> 12 months time+
91 2005 3 1 0 0 0 0 <timestamp> = ] unit-test
92 [ t ] [ 2004 2 29 0 0 0 0 <timestamp> -12 months time+
93 2003 3 1 0 0 0 0 <timestamp> = ] unit-test
95 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 0 years time+
96 2006 1 1 0 0 0 0 <timestamp> = ] unit-test
97 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> 1 years time+
98 2007 1 1 0 0 0 0 <timestamp> = ] unit-test
99 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> -1 years time+
100 2005 1 1 0 0 0 0 <timestamp> = ] unit-test
101 [ t ] [ 2006 1 1 0 0 0 0 <timestamp> -100 years time+
102 1906 1 1 0 0 0 0 <timestamp> = ] unit-test
103 ! [ t ] [ 2004 2 29 0 0 0 0 <timestamp> -1 years time+
104 ! 2003 2 28 0 0 0 0 <timestamp> = ] unit-test
106 [ 5 ] [ 2006 7 14 0 0 0 0 <timestamp> day-of-week ] unit-test
108 [ t ] [ 2006 7 14 [ julian-day-number julian-day-number>date 0 0 0 0 <timestamp> ] 3keep 0 0 0 0 <timestamp> = ] unit-test
110 [ 1 ] [ 2006 1 1 0 0 0 0 <timestamp> day-of-year ] unit-test
111 [ 60 ] [ 2004 2 29 0 0 0 0 <timestamp> day-of-year ] unit-test
112 [ 61 ] [ 2004 3 1 0 0 0 0 <timestamp> day-of-year ] unit-test
113 [ 366 ] [ 2004 12 31 0 0 0 0 <timestamp> day-of-year ] unit-test
114 [ 365 ] [ 2003 12 31 0 0 0 0 <timestamp> day-of-year ] unit-test
115 [ 60 ] [ 2003 3 1 0 0 0 0 <timestamp> day-of-year ] unit-test
117 [ t ] [ 2004 12 31 0 0 0 0 <timestamp> dup = ] unit-test
118 [ t ] [ 2004 1 1 0 0 0 0 <timestamp> 10 seconds 5 years time+ time+
119 2009 1 1 0 0 10 0 <timestamp> = ] unit-test
120 [ t ] [ 2004 1 1 0 0 0 0 <timestamp> -10 seconds -5 years time+ time+
121 1998 12 31 23 59 50 0 <timestamp> = ] unit-test
123 [ t ] [ 2004 1 1 23 0 0 12 <timestamp> 0 convert-timezone
124 2004 1 1 11 0 0 0 <timestamp> = ] unit-test
125 [ t ] [ 2004 1 1 5 0 0 -11 <timestamp> 0 convert-timezone
126 2004 1 1 16 0 0 0 <timestamp> = ] unit-test
127 [ t ] [ 2004 1 1 23 0 0 9+1/2 <timestamp> 0 convert-timezone
128 2004 1 1 13 30 0 0 <timestamp> = ] unit-test
130 [ 0 ] [ 2004 1 1 13 30 0 0 <timestamp>
131 2004 1 1 12 30 0 -1 <timestamp> <=> ] unit-test
133 [ 1 ] [ 2004 1 1 13 30 0 0 <timestamp>
134 2004 1 1 12 30 0 0 <timestamp> <=> ] unit-test
136 [ -1 ] [ 2004 1 1 12 30 0 0 <timestamp>
137 2004 1 1 13 30 0 0 <timestamp> <=> ] unit-test
139 [ 1 ] [ 2005 1 1 12 30 0 0 <timestamp>
140 2004 1 1 13 30 0 0 <timestamp> <=> ] unit-test
142 [ t ] [ now timestamp>millis millis - 1000 < ] unit-test
143 [ t ] [ 0 millis>timestamp unix-1970 = ] unit-test
144 [ t ] [ 123456789000 [ millis>timestamp timestamp>millis ] keep = ] unit-test
145 [ t ] [ 123456789123456 [ millis>timestamp timestamp>millis ] keep = ] unit-test
147 : checktime+ now dup clone [ rot time+ drop ] keep = ;
149 [ t ] [ 5 seconds checktime+ ] unit-test
151 [ t ] [ 5 minutes checktime+ ] unit-test
153 [ t ] [ 5 hours checktime+ ] unit-test
155 [ t ] [ 5 days checktime+ ] unit-test
157 [ t ] [ 5 weeks checktime+ ] unit-test
159 [ t ] [ 5 months checktime+ ] unit-test
161 [ t ] [ 5 years checktime+ ] unit-test