286
287
288
289
290
291
292
293
294
295
296
297
298
299
|
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
|
+
+
+
+
+
+
+
+
+
+
+
+
+
|
Test_Render (Test, Ordinal, 2, "2nd");
Test_Render (Test, Ordinal, 3, "3rd");
Test_Render (Test, Ordinal, 4, "4th");
Test_Render (Test, "(prefix (a) (b invalid (9 5)))", 0, "0");
Test_Render (Test, "(prefix (c (invalid 5) (-1 invalid)))", 0, "0");
Test_Render (Test, "(prefix (d ((invalid) 5) (-1)) ())", 0, "0");
declare
Format : Templates.Integers.Format;
begin
Format.Set_Minimum_Width (10);
Format.Set_Suffix (1, To_Atom ("<sup>er</sup>"), 2);
Format.Set_Prefix (10, To_Atom ("dix : "));
Test_Render (Test, Format, "", 5, " 5");
Test_Render (Test, Format, "", 1, " 1<sup>er</sup>");
Test_Render (Test, Format, "(centered)", 10, " dix : 10 ");
Test_Render (Test, Format, "(suffix ((th 0) 7))", 7, " 7th");
end;
exception
when Error : others => Test.Report_Exception (Error);
end Prefix_And_Suffix;
procedure Static_Hash_Map (Report : in out NT.Reporter'Class) is
Test : NT.Test := Report.Item ("Parse errors in template");
|