Commit c00b8d4a by Arnaud Charlet

Update test to be compatible with Ada 2005.

From-SVN: r122222
parent b3832a9f
......@@ -92,7 +92,7 @@ BEGIN
END;
BEGIN
YR := IDENT_INT(2100);
YR := IDENT_INT(YEAR_NUMBER'LAST + 1);
FAILED ("EXCEPTION NOT RAISED - (A)3");
IF NOT EQUAL (YR, YR) THEN
COMMENT ("NO EXCEPTION RAISED");
......
......@@ -136,7 +136,7 @@ BEGIN
END;
BEGIN
BAD_TIME := TIME_OF (2100, 8, 13);
BAD_TIME := TIME_OF (YEAR_NUMBER'LAST + 1, 8, 13);
FAILED ("EXCEPTION NOT RAISED - 2100 (B)");
EXCEPTION
WHEN CONSTRAINT_ERROR =>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment