OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tcl/] [tests/] [clock.test] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
# Commands covered:  clock
2
#
3
# This file contains a collection of tests for one or more of the Tcl
4
# built-in commands.  Sourcing this file into Tcl runs the tests and
5
# generates output for errors.  No output means no errors were found.
6
#
7
# Copyright (c) 1995-1997 Sun Microsystems, Inc.
8
#
9
# See the file "license.terms" for information on usage and redistribution
10
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11
#
12
# RCS: @(#) $Id: clock.test,v 1.1.1.1 2002-01-16 10:25:35 markom Exp $
13
 
14
if {[string compare test [info procs test]] == 1} then {source defs}
15
 
16
test clock-1.1 {clock tests} {
17
    list [catch {clock} msg] $msg
18
} {1 {wrong # args: should be "clock option ?arg ...?"}}
19
test clock-1.2 {clock tests} {
20
    list [catch {clock foo} msg] $msg
21
} {1 {bad option "foo": must be clicks, format, scan, or seconds}}
22
 
23
# clock clicks
24
test clock-2.1 {clock clicks tests} {
25
    expr [clock clicks]+1
26
    concat {}
27
} {}
28
test clock-2.2 {clock clicks tests} {
29
    list [catch {clock clicks foo} msg] $msg
30
} {1 {wrong # args: should be "clock clicks"}}
31
test clock-2.3 {clock clicks tests} {
32
    set start [clock clicks]
33
    after 10
34
    set end [clock clicks]
35
    expr "$end > $start"
36
} {1}
37
 
38
# clock format
39
test clock-3.1 {clock format tests} {unixOnly} {
40
    set clockval 657687766
41
    clock format $clockval -format {%a %b %d %I:%M:%S %p %Y} -gmt true
42
} {Sun Nov 04 03:02:46 AM 1990}
43
test clock-3.2 {clock format tests} {
44
    list [catch {clock format} msg] $msg
45
} {1 {wrong # args: should be "clock format clockval ?-format string? ?-gmt boolean?"}}
46
test clock-3.3 {clock format tests} {
47
    list [catch {clock format foo} msg] $msg
48
} {1 {expected integer but got "foo"}}
49
test clock-3.4 {clock format tests} {unixOrPc} {
50
    set clockval 657687766
51
    clock format $clockval -format "%a %b %d %I:%M:%S %p %Y" -gmt true
52
} "Sun Nov 04 03:02:46 AM 1990"
53
test clock-3.5 {clock format tests} {
54
    list [catch {clock format a b c d e g} msg] $msg
55
} {1 {wrong # args: should be "clock format clockval ?-format string? ?-gmt boolean?"}}
56
test clock-3.6 {clock format tests} {unixOrPc nonPortable} {
57
    set clockval -1
58
    clock format $clockval -format "%a %b %d %I:%M:%S %p %Y" -gmt true
59
} "Wed Dec 31 11:59:59 PM 1969"
60
test clock-3.7 {clock format tests} {
61
    list [catch {clock format 123 -bad arg} msg] $msg
62
} {1 {bad switch "-bad": must be -format, or -gmt}}
63
test clock-3.8 {clock format tests} {
64
    clock format 123 -format "x"
65
} x
66
test clock-3.9 {clock format tests} {
67
    clock format 123 -format ""
68
} ""
69
 
70
# clock scan
71
test clock-4.1 {clock scan tests} {
72
    list [catch {clock scan} msg] $msg
73
} {1 {wrong # args: should be "clock scan dateString ?-base clockValue? ?-gmt boolean?"}}
74
test clock-4.2 {clock scan tests} {
75
    list [catch {clock scan "bad-string"} msg] $msg
76
} {1 {unable to convert date-time string "bad-string"}}
77
test clock-4.3 {clock scan tests} {
78
    clock format [clock scan "14 Feb 92" -gmt true] \
79
      -format {%m/%d/%y %I:%M:%S %p} -gmt true
80
} {02/14/92 12:00:00 AM}
81
test clock-4.4 {clock scan tests} {
82
    clock format [clock scan "Feb 14, 1992 12:20 PM" -gmt true] \
83
      -format {%m/%d/%y %I:%M:%S %p} -gmt true
84
} {02/14/92 12:20:00 PM}
85
test clock-4.5 {clock scan tests} {
86
    clock format \
87
      [clock scan "Feb 14, 1992 12:20 PM" -base 319363200 -gmt true] \
88
      -format {%m/%d/%y %I:%M:%S %p} -gmt true
89
} {02/14/92 12:20:00 PM}
90
test clock-4.6 {clock scan tests} {
91
    set time [clock scan "Oct 23,1992 15:00"]
92
    clock format $time -format {%b %d,%Y %H:%M}
93
} {Oct 23,1992 15:00}
94
test clock-4.7 {clock scan tests} {
95
    set time [clock scan "Oct 23,1992 15:00 GMT"]
96
    clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
97
} {Oct 23,1992 15:00 GMT}
98
test clock-4.8 {clock scan tests} {
99
    set time [clock scan "Oct 23,1992 15:00" -gmt true]
100
    clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
101
} {Oct 23,1992 15:00 GMT}
102
test clock-4.9 {clock scan tests} {
103
    list [catch {clock scan "Jan 12" -bad arg} msg] $msg
104
} {1 {bad switch "-bad": must be -base, or -gmt}}
105
# The following two two tests test the two year date policy
106
test clock-4.10 {clock scan tests} {
107
    set time [clock scan "1/1/71" -gmt true]
108
    clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
109
} {Jan 01,1971 00:00 GMT}
110
test clock-4.11 {clock scan tests} {
111
    set time [clock scan "1/1/37" -gmt true]
112
    clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
113
} {Jan 01,2037 00:00 GMT}
114
 
115
# clock seconds
116
test clock-5.1 {clock seconds tests} {
117
    expr [clock seconds]+1
118
    concat {}
119
} {}
120
test clock-5.2 {clock seconds tests} {
121
    list [catch {clock seconds foo} msg] $msg
122
} {1 {wrong # args: should be "clock seconds"}}
123
test clock-5.3 {clock seconds tests} {
124
    set start [clock seconds]
125
    after 2000
126
    set end [clock seconds]
127
    expr "$end > $start"
128
} {1}
129
 
130
# The following dates check certain roll over dates
131
set day [expr 24 * 60 * 60]
132
test clock-6.1 {clock roll over dates} {
133
    set time [clock scan "12/31/1998" -gmt true]
134
    clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
135
} {Jan 01,1999 00:00 GMT}
136
test clock-6.2 {clock roll over dates} {
137
    set time [clock scan "12/31/1999" -gmt true]
138
    clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
139
} {Jan 01,2000 00:00 GMT}
140
test clock-6.3 {clock roll over dates} {
141
    set time [clock scan "2/28/2000" -gmt true]
142
    clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
143
} {Feb 29,2000 00:00 GMT}
144
test clock-6.4 {clock roll over dates} {
145
    set time [clock scan "2/29/2000" -gmt true]
146
    clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
147
} {Mar 01,2000 00:00 GMT}
148
test clock-6.5 {clock roll over dates} {
149
    set time [clock scan "January 1, 2000" -gmt true]
150
    clock format $time -format %A -gmt true
151
} {Saturday}
152
test clock-6.6 {clock roll over dates} {
153
    set time [clock scan "January 1, 2000" -gmt true]
154
    clock format $time -format %j -gmt true
155
} {001}
156
test clock-6.7 {clock roll over dates} {
157
    set time [clock scan "February 29, 2000" -gmt true]
158
    clock format $time -format %A -gmt true
159
} {Tuesday}
160
test clock-6.8 {clock roll over dates} {
161
    set time [clock scan "February 29, 2000" -gmt true]
162
    clock format $time -format %j -gmt true
163
} {060}
164
test clock-6.9 {clock roll over dates} {
165
    set time [clock scan "March 1, 2000" -gmt true]
166
    clock format $time -format %A -gmt true
167
} {Wednesday}
168
test clock-6.10 {clock roll over dates} {
169
    set time [clock scan "March 1, 2000" -gmt true]
170
    clock format $time -format %j -gmt true
171
} {061}
172
test clock-6.11 {clock roll over dates} {
173
    set time [clock scan "March 1, 2001" -gmt true]
174
    clock format $time -format %j -gmt true
175
} {060}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.