From 964021db6ecf4257cc5a2725379f75dc98e33897 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Thu, 17 Sep 2009 18:13:34 +0000 Subject: 2009-09-17 Joel Sherrill * Makefile, exception_test.adb: Make follow standard RTEMS test output format. Add output screens where appropriate. * exception_test.scn: New file. --- exception_test/ChangeLog | 6 ++++++ exception_test/Makefile | 5 ++++- exception_test/exception_test.adb | 3 +++ exception_test/exception_test.scn | 4 ++++ 4 files changed, 17 insertions(+), 1 deletion(-) create mode 100644 exception_test/exception_test.scn diff --git a/exception_test/ChangeLog b/exception_test/ChangeLog index 521076a..2da9674 100644 --- a/exception_test/ChangeLog +++ b/exception_test/ChangeLog @@ -1,3 +1,9 @@ +2009-09-17 Joel Sherrill + + * Makefile, exception_test.adb: Make follow standard RTEMS test output + format. Add output screens where appropriate. + * exception_test.scn: New file. + 2009-09-17 Joel Sherrill * .cvsignore: New file. diff --git a/exception_test/Makefile b/exception_test/Makefile index 9f5d6a5..c2f280e 100644 --- a/exception_test/Makefile +++ b/exception_test/Makefile @@ -1,9 +1,12 @@ # -# Makefile for Ada Dump URL example +# Exception Test #1 +# +# $Id$ # # See README.Makefiles in the main ada-examples directory. # + PROGRAM=exception_test include $(RTEMS_MAKEFILE_PATH)/Makefile.inc diff --git a/exception_test/exception_test.adb b/exception_test/exception_test.adb index 47fe592..1a6dcdf 100644 --- a/exception_test/exception_test.adb +++ b/exception_test/exception_test.adb @@ -7,11 +7,14 @@ with Ada.Text_IO; use Ada.Text_IO; procedure ExceptionTest is begin begin + Put_Line ("*** Exception Test 1 ***"); Put_Line ("Raising Constraint_Error"); raise Constraint_Error; + -- Do not get here exception when others => Put_Line ("Caught Constraint_Error -- inner"); + Put_Line ("*** END OF Exception Test 1 ***"); end; exception when others => diff --git a/exception_test/exception_test.scn b/exception_test/exception_test.scn new file mode 100644 index 0000000..8ab1d26 --- /dev/null +++ b/exception_test/exception_test.scn @@ -0,0 +1,4 @@ +*** Exception Test 1 *** +Raising Constraint_Error +Caught Constraint_Error -- inner +*** END OF Exception Test 1 *** -- cgit v1.2.3