rev 703 - trunk/pr/test

Author: mark
Date: 2004-07-04 20:14:40 -0400 (Sun, 04 Jul 2004)
New Revision: 703

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

Added: trunk/pr/test/bytes.pr
===================================================================
--- trunk/pr/test/bytes.pr	2004-07-05 00:12:02 UTC (rev 702)
+++ trunk/pr/test/bytes.pr	2004-07-05 00:14:40 UTC (rev 703)
@@ -0,0 +1,23 @@
+
+def err(n):
+	print "error:",n
+	sys.exit(1)
+
+byts = Bytes("afkGfkawygfwgfla")
+if len(byts) != 16: err(1)
+if byts != Bytes(String(byts)): err(2)
+if String(byts) != "afkGfkawygfwgfla": err(3)
+if byts[2] != 'k': err(4)
+if byts[2:4] != 'kG': err(5)
+if byts[2:] != 'kGfkawygfwgfla': err(6)
+if byts[-1:-3:-1] != 'al': err(7)
+
+if 0x30 != '0': err(8)
+if 0x30 >= '1': err(9)
+if '0' != 0x30: err(10)
+if '0' >= 0x31: err(11)
+
+print """
+all tests passed
+"""
+


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