comparison: tests/test-table.lua
tests/test-table.lua
- changeset 37
- 233463804681
equal
deleted
inserted
replaced
| 36:4a61f00ee916 | 37:233463804681 |
|---|---|
| 1 #!/usr/local/bin/lua | |
| 2 | |
| 3 local totable = require "lxp.totable" | |
| 4 | |
| 5 local tests = { | |
| 6 { | |
| 7 [[<abc a1="A1" a2="A2">inside tag `abc'</abc>]], | |
| 8 { | |
| 9 [0] = "abc", | |
| 10 a1 = "A1", | |
| 11 a2 = "A2", | |
| 12 "inside tag `abc'", | |
| 13 }, | |
| 14 }, | |
| 15 { | |
| 16 [[<qwerty q1="q1" q2="q2"> | |
| 17 <asdf>some text</asdf> | |
| 18 </qwerty>]], | |
| 19 { | |
| 20 [0] = "qwerty", | |
| 21 q1 = "q1", | |
| 22 q2 = "q2", | |
| 23 "\n\t", | |
| 24 { | |
| 25 [0] = "asdf", | |
| 26 "some text", | |
| 27 }, | |
| 28 "\n", | |
| 29 }, | |
| 30 }, | |
| 31 { | |
| 32 [[ | |
| 33 <!-- http://www.w3schools.com/xml/simple.xml --> | |
| 34 <breakfast_menu> | |
| 35 <food> | |
| 36 <name>Belgian Waffles</name> | |
| 37 <price>$5.95</price> | |
| 38 <description>Two of our famous Belgian Waffles with plenty of real maple syrup</description> | |
| 39 <calories>650</calories> | |
| 40 </food> | |
| 41 <food> | |
| 42 <name>Strawberry Belgian Waffles</name> | |
| 43 <price>$7.95</price> | |
| 44 <description>Light Belgian waffles covered with strawberries and whipped cream</description> | |
| 45 <calories>900</calories> | |
| 46 </food> | |
| 47 <food> | |
| 48 <name>Berry-Berry Belgian Waffles</name> | |
| 49 <price>$8.95</price> | |
| 50 <description>Light Belgian waffles covered with an assortment of fresh berries and whipped cream</description> | |
| 51 <calories>900</calories> | |
| 52 </food> | |
| 53 <food> | |
| 54 <name>French Toast</name> | |
| 55 <price>$4.50</price> | |
| 56 <description>Thick slices made from our homemade sourdough bread</description> | |
| 57 <calories>600</calories> | |
| 58 </food> | |
| 59 <food> | |
| 60 <name>Homestyle Breakfast</name> | |
| 61 <price>$6.95</price> | |
| 62 <description>Two eggs, bacon or sausage, toast, and our ever-popular hash browns</description> | |
| 63 <calories>950</calories> | |
| 64 </food> | |
| 65 </breakfast_menu>]], | |
| 66 { | |
| 67 [0] = "breakfast_menu", | |
| 68 [1] = "\n\t", | |
| 69 [2] = { | |
| 70 [0] = "food", | |
| 71 [1] = "\n\t\t", | |
| 72 [2] = { [0] = "name", [1] = "Belgian Waffles", }, | |
| 73 [3] = "\n\t\t", | |
| 74 [4] = { [0] = "price", [1] = "$5.95", }, | |
| 75 [5] = "\n\t\t", | |
| 76 [6] = { | |
| 77 [0] = "description", | |
| 78 [1] = "Two of our famous Belgian Waffles with plenty of real maple syrup", | |
| 79 }, | |
| 80 [7] = "\n\t\t", | |
| 81 [8] = { [0] = "calories", [1] = "650", }, | |
| 82 [9] = "\n\t", | |
| 83 }, | |
| 84 [3] = "\n\t", | |
| 85 [4] = { | |
| 86 [0] = "food", | |
| 87 [1] = "\n\t\t", | |
| 88 [2] = { [0] = "name", [1] = "Strawberry Belgian Waffles", }, | |
| 89 [3] = "\n\t\t", | |
| 90 [4] = { [0] = "price", [1] = "$7.95", }, | |
| 91 [5] = "\n\t\t", | |
| 92 [6] = { | |
| 93 [0] = "description", | |
| 94 [1] = "Light Belgian waffles covered with strawberries and whipped cream", | |
| 95 }, | |
| 96 [7] = "\n\t\t", | |
| 97 [8] = { [0] = "calories", [1] = "900", }, | |
| 98 [9] = "\n\t", | |
| 99 }, | |
| 100 [5] = "\n\t", | |
| 101 [6] = { | |
| 102 [0] = "food", | |
| 103 [1] = "\n\t\t", | |
| 104 [2] = { [0] = "name", [1] = "Berry-Berry Belgian Waffles", }, | |
| 105 [3] = "\n\t\t", | |
| 106 [4] = { [0] = "price", [1] = "$8.95", }, | |
| 107 [5] = "\n\t\t", | |
| 108 [6] = { | |
| 109 [0] = "description", | |
| 110 [1] = "Light Belgian waffles covered with an assortment of fresh berries and whipped cream", | |
| 111 }, | |
| 112 [7] = "\n\t\t", | |
| 113 [8] = { [0] = "calories", [1] = "900", }, | |
| 114 [9] = "\n\t", | |
| 115 }, | |
| 116 [7] = "\n\t", | |
| 117 [8] = { | |
| 118 [0] = "food", | |
| 119 [1] = "\n\t\t", | |
| 120 [2] = { [0] = "name", [1] = "French Toast", }, | |
| 121 [3] = "\n\t\t", | |
| 122 [4] = { [0] = "price", [1] = "$4.50", }, | |
| 123 [5] = "\n\t\t", | |
| 124 [6] = { | |
| 125 [0] = "description", | |
| 126 [1] = "Thick slices made from our homemade sourdough bread", | |
| 127 }, | |
| 128 [7] = "\n\t\t", | |
| 129 [8] = { [0] = "calories", [1] = "600", }, | |
| 130 [9] = "\n\t", | |
| 131 }, | |
| 132 [9] = "\n\t", | |
| 133 [10] = { | |
| 134 [0] = "food", | |
| 135 [1] = "\n\t\t", | |
| 136 [2] = { [0] = "name", [1] = "Homestyle Breakfast", }, | |
| 137 [3] = "\n\t\t", | |
| 138 [4] = { [0] = "price", [1] = "$6.95", }, | |
| 139 [5] = "\n\t\t", | |
| 140 [6] = { | |
| 141 [0] = "description", | |
| 142 [1] = "Two eggs, bacon or sausage, toast, and our ever-popular hash browns", | |
| 143 }, | |
| 144 [7] = "\n\t\t", | |
| 145 [8] = { [0] = "calories", [1] = "950", }, | |
| 146 [9] = "\n\t", | |
| 147 }, | |
| 148 [11] = "\n", | |
| 149 }, | |
| 150 clean = { | |
| 151 [0] = "breakfast_menu", | |
| 152 [1] = { | |
| 153 [0] = "food", | |
| 154 [1] = { [0] = "name", [1] = "Belgian Waffles", }, | |
| 155 [2] = { [0] = "price", [1] = "$5.95", }, | |
| 156 [3] = { | |
| 157 [0] = "description", | |
| 158 [1] = "Two of our famous Belgian Waffles with plenty of real maple syrup", | |
| 159 }, | |
| 160 [4] = { [0] = "calories", [1] = "650", }, | |
| 161 }, | |
| 162 [2] = { | |
| 163 [0] = "food", | |
| 164 [1] = { [0] = "name", [1] = "Strawberry Belgian Waffles", }, | |
| 165 [2] = { [0] = "price", [1] = "$7.95", }, | |
| 166 [3] = { | |
| 167 [0] = "description", | |
| 168 [1] = "Light Belgian waffles covered with strawberries and whipped cream", | |
| 169 }, | |
| 170 [4] = { [0] = "calories", [1] = "900", }, | |
| 171 }, | |
| 172 [3] = { | |
| 173 [0] = "food", | |
| 174 [1] = { [0] = "name", [1] = "Berry-Berry Belgian Waffles", }, | |
| 175 [2] = { [0] = "price", [1] = "$8.95", }, | |
| 176 [3] = { | |
| 177 [0] = "description", | |
| 178 [1] = "Light Belgian waffles covered with an assortment of fresh berries and whipped cream", | |
| 179 }, | |
| 180 [4] = { [0] = "calories", [1] = "900", }, | |
| 181 }, | |
| 182 [4] = { | |
| 183 [0] = "food", | |
| 184 [1] = { [0] = "name", [1] = "French Toast", }, | |
| 185 [2] = { [0] = "price", [1] = "$4.50", }, | |
| 186 [3] = { | |
| 187 [0] = "description", | |
| 188 [1] = "Thick slices made from our homemade sourdough bread", | |
| 189 }, | |
| 190 [4] = { [0] = "calories", [1] = "600", }, | |
| 191 }, | |
| 192 [5] = { | |
| 193 [0] = "food", | |
| 194 [1] = { [0] = "name", [1] = "Homestyle Breakfast", }, | |
| 195 [2] = { [0] = "price", [1] = "$6.95", }, | |
| 196 [3] = { | |
| 197 [0] = "description", | |
| 198 [1] = "Two eggs, bacon or sausage, toast, and our ever-popular hash browns", | |
| 199 }, | |
| 200 [4] = { [0] = "calories", [1] = "950", }, | |
| 201 }, | |
| 202 }, | |
| 203 torecord = { | |
| 204 [0] = "breakfast_menu", | |
| 205 [1] = { | |
| 206 [0] = "food", | |
| 207 name = "Belgian Waffles", | |
| 208 price = "$5.95", | |
| 209 description = "Two of our famous Belgian Waffles with plenty of real maple syrup", | |
| 210 calories = "650", | |
| 211 }, | |
| 212 [2] = { | |
| 213 [0] = "food", | |
| 214 name = "Strawberry Belgian Waffles", | |
| 215 price = "$7.95", | |
| 216 description = "Light Belgian waffles covered with strawberries and whipped cream", | |
| 217 calories = "900", | |
| 218 }, | |
| 219 [3] = { | |
| 220 [0] = "food", | |
| 221 name = "Berry-Berry Belgian Waffles", | |
| 222 price = "$8.95", | |
| 223 description = "Light Belgian waffles covered with an assortment of fresh berries and whipped cream", | |
| 224 calories = "900", | |
| 225 }, | |
| 226 [4] = { | |
| 227 [0] = "food", | |
| 228 name = "French Toast", | |
| 229 price = "$4.50", | |
| 230 description = "Thick slices made from our homemade sourdough bread", | |
| 231 calories = "600", | |
| 232 }, | |
| 233 [5] = { | |
| 234 [0] = "food", | |
| 235 name = "Homestyle Breakfast", | |
| 236 price = "$6.95", | |
| 237 description = "Two eggs, bacon or sausage, toast, and our ever-popular hash browns", | |
| 238 calories = "950", | |
| 239 }, | |
| 240 }, | |
| 241 }, | |
| 242 } | |
| 243 | |
| 244 | |
| 245 function table.equal (t1, t2) | |
| 246 for nome, val in pairs (t1) do | |
| 247 local tv = type(val) | |
| 248 if tv == "table" then | |
| 249 if type(t2[nome]) ~= "table" then | |
| 250 return false, "Different types at entry `"..nome.."': t1."..nome.." is "..tv.." while t2."..nome.." is "..type(t2[nome]).." ["..tostring(t2[nome]).."]" | |
| 251 else | |
| 252 local ok, msg = table.equal (val, t2[nome]) | |
| 253 if not ok then | |
| 254 return false, "["..nome.."]\t"..tostring(val).." ~= "..tostring(t2[nome]).."; "..msg | |
| 255 end | |
| 256 end | |
| 257 else | |
| 258 if val ~= t2[nome] then | |
| 259 return false, "["..nome.."]\t"..tostring(val).." ~= "..tostring(t2[nome]) | |
| 260 end | |
| 261 end | |
| 262 end | |
| 263 return true | |
| 264 end | |
| 265 | |
| 266 | |
| 267 for i, s in ipairs(tests) do | |
| 268 local ds = assert (totable.parse ([[<?xml version="1.0" encoding="ISO-8859-1"?>]]..s[1])) | |
| 269 assert(table.equal (ds, s[2])) | |
| 270 end | |
| 271 | |
| 272 local t = totable.parse ([[<?xml version="1.0" encoding="ISO-8859-1"?>]]..tests[3][1]) | |
| 273 totable.clean (t) | |
| 274 assert (table.equal (t, tests[3].clean)) | |
| 275 totable.torecord (t) | |
| 276 assert (table.equal (t, tests[3].torecord)) | |
| 277 | |
| 278 print"OK" |
