rev 656 - in trunk: . pr/test

Author: mark
Date: 2004-06-23 02:37:36 -0400 (Wed, 23 Jun 2004)
New Revision: 656

Added:
   trunk/pr/test/raise.pr
Modified:
   trunk/STATUS.txt
   trunk/pr/test/test.pr
Log:
updated status, added raise.pr

Modified: trunk/STATUS.txt
===================================================================
--- trunk/STATUS.txt	2004-06-23 06:28:15 UTC (rev 655)
+++ trunk/STATUS.txt	2004-06-23 06:37:36 UTC (rev 656)
@@ -1,7 +1,7 @@
 
 ----------------------- TO-DO (highest priority first) ------------------------
 
---- Python regrets from Paul and print proposal
+--- print proposal
 	http://www.prothon.org/pipermail/prothon-user/2004-June/001970.html
 	http://www.prothon.org/pipermail/prothon-user/2004-June/001991.html
 

Added: trunk/pr/test/raise.pr
===================================================================
--- trunk/pr/test/raise.pr	2004-06-23 06:28:15 UTC (rev 655)
+++ trunk/pr/test/raise.pr	2004-06-23 06:37:36 UTC (rev 656)
@@ -0,0 +1,13 @@
+#!/usr/bin/env prothon
+
+try:
+	x = 1//0
+except e = (DivideByZero, Exception):
+	if e.str_() != 'Divide by zero Error':
+		print 'error!'
+		sys.exit(1)
+		
+print """
+test passed
+"""
+


Property changes on: trunk/pr/test/raise.pr
___________________________________________________________________
Name: svn:eol-style
   + native

Modified: trunk/pr/test/test.pr
===================================================================
--- trunk/pr/test/test.pr	2004-06-23 06:28:15 UTC (rev 655)
+++ trunk/pr/test/test.pr	2004-06-23 06:37:36 UTC (rev 656)
@@ -3,4 +3,11 @@
 try:
 	x = 1//0
 except e = (DivideByZero, Exception):
-	print e
+	if e.str_() != 'Divide by zero Error':
+		print 'error!'
+		sys.exit(1)
+		
+print """
+test passed
+"""
+