ooxml

Check-in [14798f478c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:starting test suite
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tcltest
Files: files | file ages | folders
SHA3-256: 14798f478c5c6682333b10a6b44f7b84fba67379b833a4b95e82855822be5b65
User & Date: alex 2019-10-31 22:42:05
Context
2019-11-01
13:57
save work check-in: dbe69451ea user: alex tags: tcltest
2019-10-31
22:42
starting test suite check-in: 14798f478c user: alex tags: tcltest
15:51
TEA implemented; next todo: tcl tests check-in: 6b3980c2a9 user: alex tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added tests/misc.test.























































































































































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
#
# Commands covered: nacl::randombytes
#

#
# (c) 2016 Alexander Schoepe
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#

if {[lsearch [namespace children] ::tcltest] == -1} {
  package require tcltest 2
  namespace import -force ::tcltest::*
  loadTestedCommands
}


package require ooxml


test ScanDateTime-1.1 {ScanDateTime takes args} -body {
  ::ooxml::ScanDateTime
} -returnCodes error -result "wrong # args: should be \"::ooxml::ScanDateTime scan ?iso8601?\""

test ScanDateTime-1.2 {ScanDateTime ole time} {
  ::ooxml::ScanDateTime {2019-10-31 15:10:23}
} 43769.63221064815

test ScanDateTime-1.3 {ScanDateTime iso8601} {
  ::ooxml::ScanDateTime {2019-10-31 15:10:23} 1
} 2019-10-31T15:10:23


test Column-1.1 {Column takes args} -body {
  ::ooxml::Column
} -returnCodes error -result "wrong # args: should be \"::ooxml::Column col\""

test Column-1.2 {Column 3} {
  ::ooxml::Column 3
} D

test Column-1.3 {Column 33} {
  ::ooxml::Column 33
} AH

test Column-1.4 {Column A} -body {
  ::ooxml::Column A
} -returnCodes error -result "can't use non-numeric string as operand of \"%\""


test RowColumnToString-1.1 {RowColumnToString takes args} -body {
  ::ooxml::RowColumnToString
} -returnCodes error -result "wrong # args: should be \"::ooxml::RowColumnToString rowcol\""

test RowColumnToString-1.2 {RowColumnToString 0,0} {
  ::ooxml::RowColumnToString 0,0
} A1

test RowColumnToString-1.3 {RowColumnToString 33,33} {
  ::ooxml::RowColumnToString 33,33
} AH34

test RowColumnToString-1.4 {RowColumnToString A1} -body {
  ::ooxml::RowColumnToString A1
} -returnCodes error -result "expected integer but got \"A1\""

test RowColumnToString-1.5 {RowColumnToString 0} {
  ::ooxml::RowColumnToString 0
} 1


test StringToRowColumn-1.1 {StringToRowColumn takes args} -body {
  ::ooxml::StringToRowColumn
} -returnCodes error -result "wrong # args: should be \"::ooxml::StringToRowColumn name\""

test StringToRowColumn-1.2 {StringToRowColumn A1} {
  ::ooxml::StringToRowColumn A1
} 0,0

test StringToRowColumn-1.3 {StringToRowColumn AH34} {
  ::ooxml::StringToRowColumn AH34
} 33,33

test StringToRowColumn-1.4 {StringToRowColumn 0} {
  ::ooxml::StringToRowColumn 0
} -1,-1


test IndexToString-1.1 {IndexToString takes args} -body {
  ::ooxml::IndexToString
} -returnCodes error -result "wrong # args: should be \"::ooxml::IndexToString index\""

test IndexToString-1.2 {IndexToString 0,0} {
  ::ooxml::IndexToString 0,0
} A1

test IndexToString-1.3 {IndexToString A1} {
  ::ooxml::IndexToString A1
} A1

test IndexToString-1.4 {IndexToString 1} {
  ::ooxml::IndexToString 1
} {}

test IndexToString-1.5 {IndexToString A} {
  ::ooxml::IndexToString A
} {}


test CalcColumnWidth-1.1 {CalcColumnWidth takes args} -body {
  ::ooxml::CalcColumnWidth
} -returnCodes error -result "wrong # args: should be \"::ooxml::CalcColumnWidth numberOfCharacters ?maximumDigitWidth? ?pixelPadding?\""

test CalcColumnWidth-1.2 {CalcColumnWidth 11} {
  ::ooxml::CalcColumnWidth 11
} 11.7109375


test Color-1.1 {Color takes args} -body {
  ::ooxml::Color
} -returnCodes error -result "wrong # args: should be \"::ooxml::Color color\""

test color-1.2 {Color {}} {
  ::ooxml::Color {}
} {}

test color-1.3 {Color auto} {
  ::ooxml::Color auto
} {auto 1}

test color-1.4 {Color none} {
  ::ooxml::Color none
} {none 1}

test color-1.5 {Color 6} {
  ::ooxml::Color 6
} {indexed 6}

test color-1.6 {Color Fuchsia} {
  ::ooxml::Color Fuchsia
} {indexed 6}

test color-1.7 {Color 00FF00FF} {
  ::ooxml::Color 00FF00FF
} {indexed 6}

test color-1.8 {Color 00123456} {
  ::ooxml::Color 00123456
} {rgb 00123456}


# cleanup
::tcltest::cleanupTests
return