Overview
Comment: | s_expressions-parsers-tests: add more subexpression test cases |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
2e81806813d19b4a21fdbf47f59ffbc5 |
User & Date: | nat on 2014-01-18 11:12:19 |
Other Links: | manifest | tags |
Context
2014-01-19
| ||
22:04 | s_expressions-atom_buffers: add primitives to use atom buffers as octet stacks check-in: 7b0544e9fc user: nat tags: trunk | |
2014-01-18
| ||
11:12 | s_expressions-parsers-tests: add more subexpression test cases check-in: 2e81806813 user: nat tags: trunk | |
2014-01-17
| ||
20:46 | s_expressions-parsers: fix a bug where the first character after an invalid escape sequence was not processed check-in: 6d15e0e0da user: nat tags: trunk | |
Changes
Modified tests/natools-s_expressions-parsers-tests.adb from [a40df37a2a] to [b6f39ca126].
︙ | ︙ | |||
113 114 115 116 117 118 119 120 121 122 123 124 125 126 | ------------------------- procedure All_Tests (Report : in out NT.Reporter'Class) is begin Canonical_Encoding (Report); Atom_Encodings (Report); Base64_Subexpression (Report); Number_Prefixes (Report); Quoted_Escapes (Report); end All_Tests; ----------------------- | > > | 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 | ------------------------- procedure All_Tests (Report : in out NT.Reporter'Class) is begin Canonical_Encoding (Report); Atom_Encodings (Report); Base64_Subexpression (Report); Special_Subexpression (Report); Nested_Subpexression (Report); Number_Prefixes (Report); Quoted_Escapes (Report); end All_Tests; ----------------------- |
︙ | ︙ | |||
163 164 165 166 167 168 169 170 171 172 173 174 175 176 | (Name => "Base-64 subexpression", Source => To_Atom ("head({KDc6c3VibGlzdCk1OnRva2Vu})""tail"""), Expected => To_Atom ("4:head((7:sublist)5:token)4:tail")); begin Test (Report); end Base64_Subexpression; procedure Number_Prefixes (Report : in out NT.Reporter'Class) is procedure Test is new Blackbox_Test (Name => "Number prefixes", Source => To_Atom ("8:verbatim" & "(valid 6""quoted"" 11#68657861646563696d616c#" & " 7|YmFzZS02NA==| 9{NzpleHByLTY0})" | > > > > > > > > > > > > > > | 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 | (Name => "Base-64 subexpression", Source => To_Atom ("head({KDc6c3VibGlzdCk1OnRva2Vu})""tail"""), Expected => To_Atom ("4:head((7:sublist)5:token)4:tail")); begin Test (Report); end Base64_Subexpression; procedure Nested_Subpexression (Report : in out NT.Reporter'Class) is procedure Test is new Blackbox_Test (Name => "Nested base-64 subepxressions", Source => To_Atom ("(5:begin" & "{KG5lc3RlZCB7S0dSbFpYQWdjR0Y1Ykc5aFpDaz19KQ==}" & "end)"), Expected => To_Atom ("(5:begin" & "(6:nested(4:deep7:payload))" & "3:end)")); begin Test (Report); end Nested_Subpexression; procedure Number_Prefixes (Report : in out NT.Reporter'Class) is procedure Test is new Blackbox_Test (Name => "Number prefixes", Source => To_Atom ("8:verbatim" & "(valid 6""quoted"" 11#68657861646563696d616c#" & " 7|YmFzZS02NA==| 9{NzpleHByLTY0})" |
︙ | ︙ | |||
207 208 209 210 211 212 213 214 | & "(5:octal14:head \04\xtail)" & "(11:hexadecimal15:head *-\x2gtail)" & "(7:special2:\x1:"")")); begin Test (Report); end Quoted_Escapes; end Natools.S_Expressions.Parsers.Tests; | > > > > > > > > > > > > > > > > | 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 | & "(5:octal14:head \04\xtail)" & "(11:hexadecimal15:head *-\x2gtail)" & "(7:special2:\x1:"")")); begin Test (Report); end Quoted_Escapes; procedure Special_Subexpression (Report : in out NT.Reporter'Class) is procedure Test is new Blackbox_Test (Name => "Special base-64 subexpression", Source => To_Atom ("(begin " & "{aGlkZGVuLWVuZCkoaGlkZGVuLWJlZ2lu}" & " end)" & "({MTY6b3ZlcmZsb3dpbmc=} atom)"), Expected => To_Atom ("(5:begin" & "10:hidden-end)(12:hidden-begin" & "3:end)" & "(16:overflowing atom)")); begin Test (Report); end Special_Subexpression; end Natools.S_Expressions.Parsers.Tests; |
Modified tests/natools-s_expressions-parsers-tests.ads from [01b8ee403a] to [f7cc36cf63].
︙ | ︙ | |||
27 28 29 30 31 32 33 34 35 36 37 | package NT renames Natools.Tests; procedure All_Tests (Report : in out NT.Reporter'Class); procedure Atom_Encodings (Report : in out NT.Reporter'Class); procedure Base64_Subexpression (Report : in out NT.Reporter'Class); procedure Canonical_Encoding (Report : in out NT.Reporter'Class); procedure Number_Prefixes (Report : in out NT.Reporter'Class); procedure Quoted_Escapes (Report : in out NT.Reporter'Class); end Natools.S_Expressions.Parsers.Tests; | > > | 27 28 29 30 31 32 33 34 35 36 37 38 39 | package NT renames Natools.Tests; procedure All_Tests (Report : in out NT.Reporter'Class); procedure Atom_Encodings (Report : in out NT.Reporter'Class); procedure Base64_Subexpression (Report : in out NT.Reporter'Class); procedure Canonical_Encoding (Report : in out NT.Reporter'Class); procedure Nested_Subpexression (Report : in out NT.Reporter'Class); procedure Number_Prefixes (Report : in out NT.Reporter'Class); procedure Quoted_Escapes (Report : in out NT.Reporter'Class); procedure Special_Subexpression (Report : in out NT.Reporter'Class); end Natools.S_Expressions.Parsers.Tests; |