Commit c00b8d4a by Arnaud Charlet

Update test to be compatible with Ada 2005.

From-SVN: r122222
parent b3832a9f
...@@ -92,7 +92,7 @@ BEGIN ...@@ -92,7 +92,7 @@ BEGIN
END; END;
BEGIN BEGIN
YR := IDENT_INT(2100); YR := IDENT_INT(YEAR_NUMBER'LAST + 1);
FAILED ("EXCEPTION NOT RAISED - (A)3"); FAILED ("EXCEPTION NOT RAISED - (A)3");
IF NOT EQUAL (YR, YR) THEN IF NOT EQUAL (YR, YR) THEN
COMMENT ("NO EXCEPTION RAISED"); COMMENT ("NO EXCEPTION RAISED");
......
...@@ -136,7 +136,7 @@ BEGIN ...@@ -136,7 +136,7 @@ BEGIN
END; END;
BEGIN BEGIN
BAD_TIME := TIME_OF (2100, 8, 13); BAD_TIME := TIME_OF (YEAR_NUMBER'LAST + 1, 8, 13);
FAILED ("EXCEPTION NOT RAISED - 2100 (B)"); FAILED ("EXCEPTION NOT RAISED - 2100 (B)");
EXCEPTION EXCEPTION
WHEN CONSTRAINT_ERROR => 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