[test Binary more thoroughly
John Meacham <john@repetae.net>**20050930034156] hunk ./SelfTest.hs 124
-        nf = (Info.insert "food" $ Info.insert t mempty)
+        nfo = (Info.insert "food" $ Info.insert t mempty)
+        nf = (nfo, "Hello, this is a test", Set.fromList ['a' .. 'f'])
hunk ./SelfTest.hs 128
-    x <- getFile fn
-    print x
-    z <- Info.lookup x
+    x@(nfo,_,_) <- getFile fn
+    print $ x `asTypeOf` nf
+    z <- Info.lookup nfo