Overview
| Comment: | constant_indefinite_ordered_map_tests: fix the test mistakenly trying to change a constant map |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
89c2a84e1bc5587a7de741e7f4b7f1f7 |
| User & Date: | nat on 2015-08-27 17:45:34 |
| Other Links: | manifest | tags |
Context
|
2015-11-11
| ||
| 18:24 | s_expressions-templates-tests-dates: new test to show bad interaction between day-of-week and timezone check-in: a279720b94 user: nat tags: trunk | |
|
2015-08-27
| ||
| 17:45 | constant_indefinite_ordered_map_tests: fix the test mistakenly trying to change a constant map check-in: 89c2a84e1b user: nat tags: trunk | |
|
2015-08-26
| ||
| 17:27 |
constant_indefinite_ordered_maps: work around a regression in newer GNAT versions
For some reason GNAT 5.2 can't find Constant_Reference anymore, so creating new primitive functions so user-defined indexing still works. check-in: bfb15a00ff user: nat tags: trunk | |
Changes
Modified tests/natools-constant_indefinite_ordered_map_tests.adb from [4b60e7ede8] to [d6079ac7f7].
| ︙ | ︙ | |||
180 181 182 183 184 185 186 |
when Constraint_Error => null;
when Error : others =>
Test.Fail ("Unexpected exception for value ""#3""");
Test.Report_Exception (Error, NT.Fail);
end;
begin
| | | 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 |
when Constraint_Error => null;
when Error : others =>
Test.Fail ("Unexpected exception for value ""#3""");
Test.Report_Exception (Error, NT.Fail);
end;
begin
Map (Map.Find ("#4")) := 94;
Test.Fail ("Found node for key ""#4""");
exception
when Constraint_Error => null;
when Error : others =>
Test.Fail ("Unexpected exception with node for ""#4""");
Test.Report_Exception (Error, NT.Fail);
end;
|
| ︙ | ︙ |