rev 493 - trunk/pr/test

Author: mark
Date: 2004-05-17 13:42:54 -0400 (Mon, 17 May 2004)
New Revision: 493

Added:
   trunk/pr/test/string.pr
Log:
added string.pr

Added: trunk/pr/test/string.pr
===================================================================
--- trunk/pr/test/string.pr	2004-05-17 01:23:10 UTC (rev 492)
+++ trunk/pr/test/string.pr	2004-05-17 17:42:54 UTC (rev 493)
@@ -0,0 +1,35 @@
+
+def err(n):
+	print 'test',n,'failed'
+	Sys.exit(1)
+
+x = "abcdefghijklm"
+
+if "c:bc:acegi:mlkjih" !=  x[2]+':'+x[1:3]+':'+x[0:10:2]+':'+x[12:6:-1]:
+	err(1)
+
+x = "abcdef"
+
+if "e:de:def:ab:fed:fedcba:abcdef" !=  x[-2]+':'+x[-3:-1]+':'+x[3:]+':'+x[:2]+':'+x[:2:-1]+':'+x[::-1]+':'+x[:]:
+	err(2)
+
+if 3 !=  Len("abc"):  err(3)
+
+print "abc".upper()
+
+print "ABC".lower()
+
+if "Abc def" !=  "abc def".capitalize(): err(6)
+
+if "Abc Def" !=  "abc def".capWords(): err(7)
+
+if "<x >" != '<'+" x ".lStrip()+'>': err(8)
+
+if "< x>" !=  '<'+" x ".rStrip()+'>': err(9)
+
+if "<x>" !=  '<'+" x ".strip()+'>': err(10)
+
+print '\nall tests passed\n'
+
+
+