[add more self-tests for Atom
John Meacham <john@repetae.net>**20060420002232] hunk ./SelfTest.hs 36
+    quickCheck prop_atomeq
+    quickCheck prop_atomneq
+    quickCheck prop_atomneq'
+
hunk ./SelfTest.hs 49
+prop_atomeq xs = (toAtom xs) == toAtom (xs::String)
+prop_atomneq xs ys = (xs /= ys) == (a1 /= a2) where
+    a1 = toAtom xs
+    a2 = toAtom (ys :: String)
+prop_atomneq' xs ys = (xs `compare` ys) == (toPackedString a1 `compare` toPackedString a2) where
+    a1 = toAtom xs
+    a2 = toAtom (ys :: String)