diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-17 18:13:34 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-17 18:13:34 +0000 |
commit | 964021db6ecf4257cc5a2725379f75dc98e33897 (patch) | |
tree | 4fae6536fe6f3841fe0d20ae47a18d42fe6c3603 | |
parent | 789d0e882e0fd5473f1058cf583b911aa079d827 (diff) |
2009-09-17 Joel Sherrill <joel.sherrill@oarcorp.com>
* Makefile, exception_test.adb: Make follow standard RTEMS test output
format. Add output screens where appropriate.
* exception_test.scn: New file.
-rw-r--r-- | exception_test/ChangeLog | 6 | ||||
-rw-r--r-- | exception_test/Makefile | 5 | ||||
-rw-r--r-- | exception_test/exception_test.adb | 3 | ||||
-rw-r--r-- | exception_test/exception_test.scn | 4 |
4 files changed, 17 insertions, 1 deletions
diff --git a/exception_test/ChangeLog b/exception_test/ChangeLog index 521076a..2da9674 100644 --- a/exception_test/ChangeLog +++ b/exception_test/ChangeLog @@ -1,5 +1,11 @@ 2009-09-17 Joel Sherrill <joel.sherrill@oarcorp.com> + * 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 <joel.sherrill@oarcorp.com> + * .cvsignore: New file. 2008-02-06 Joel Sherrill <joel.sherrill@oarcorp.com> 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 *** |