Natools

Check-in [89c2a84e1b]
Login
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: 89c2a84e1bc5587a7de741e7f4b7f1f7dfb24386
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
187

188
189
190
191
192
193
194
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
            Fixed_Map (Fixed_Map.Find ("#4")) := 94;
            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;