rev 359 - in trunk: pr src

Author: mark
Date: 2004-04-14 23:26:17 -0400 (Wed, 14 Apr 2004)
New Revision: 359

Added:
   trunk/pr/strmod.pr
Modified:
   trunk/src/src.vcproj
Log:
added strmod.pr test file

Added: trunk/pr/strmod.pr
===================================================================
--- trunk/pr/strmod.pr	2004-04-15 02:55:57 UTC (rev 358)
+++ trunk/pr/strmod.pr	2004-04-15 03:26:17 UTC (rev 359)
@@ -0,0 +1,20 @@
+#!/usr/bin/env prothon
+
+# strmod.pr
+
+s = "test %4d..%4.2e..%s" % (-12, 100/3, 'jhgdjhg')
+
+if s != 'test  -12..3.33e+01..jhgdjhg': 
+	print 'error 1'
+	print s
+	Sys.exit(1)
+	
+s = "%d" % 3333
+
+if s != '3333': 
+	print 'error 2'
+	print s
+	Sys.exit(1)
+	
+print '\nall tests passed\n'
+
Modified: trunk/src/src.vcproj
===================================================================
--- trunk/src/src.vcproj	2004-04-15 02:55:57 UTC (rev 358)
+++ trunk/src/src.vcproj	2004-04-15 03:26:17 UTC (rev 359)
@@ -292,6 +292,9 @@
 				RelativePath="..\pr\stdio_test.pr">
 			</File>
 			<File
+				RelativePath="..\pr\strmod.pr">
+			</File>
+			<File
 				RelativePath="..\pr\test.pr">
 			</File>
 			<File