Miki Tebeka avatar Miki Tebeka committed cc59381

How much passes?

Comments (0)

Files changed (1)

test/feedparser_test.clj

 (defn xml-files [root]
   (filter #(.endsWith % ".xml") (file-list root)))
 
+(defn passes? [path]
+  (try
+    (feedme/parse (str "file://" path))
+    (catch Exception e nil)))
+
+
 (defn check []
-  (doseq [file (xml-files "test/feedparser/tests/wellformed/")]
-    (try
-      (feedme/parse (str "file://" file))
-    (catch Exception e (println file)))))
+  (let [files (xml-files "test/feedparser/tests/wellformed/")
+        num-files (count files)
+        num-ok (count (filter passes? files))
+        prec (* (/ num-ok num-files) 100)]
+    (println (format "[wellformed] Passing %d of %d (%.2f%%)" 
+                     num-ok num-ok (float prec)))))
 
-(defn obj-ok []
-  (doseq [uri (read-lines "failed.log")]
-    (try
-      (feedme/make-feed uri)
-      (println uri)
-    (catch Exception e))))
-
-(obj-ok)
+(check)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.