[add pshash tests
John Meacham <john@repetae.net>**20051007051314] hunk ./PackedString.hs 234
-        | c ==# (e +# 1#) = m
+        | c >=# (e +# 1#) = m
hunk ./SelfTest.hs 50
+    pshash "Hello"
+    pshash "Foo"
+    pshash "Bar"
+    pshash "Baz"
+    pshash ""
+    pshash "\2321\3221x.y\3421\2222"
+
+pshash xs = putStrLn $ xs ++ ": " ++ show (hashPS (packString xs ))