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: |
14798f478c5c6682333b10a6b44f7b84 |
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
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 |