From 16ec9aba7e94e628f22bcaeb3ecdd7916f3a3df5 Mon Sep 17 00:00:00 2001
From: lnu <lnu@f70e237a-67f3-0310-a06c-d2b8a7116972>
Date: Thu, 31 Mar 2005 22:08:32 +0000
Subject: first import

git-svn-id: svn+ssh://svn.gna.org/svn/feed2imap/trunk/feed2imap@5 f70e237a-67f3-0310-a06c-d2b8a7116972
---
 devtools/testparser.rb | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100755 devtools/testparser.rb

(limited to 'devtools')

diff --git a/devtools/testparser.rb b/devtools/testparser.rb
new file mode 100755
index 0000000..2b29544
--- /dev/null
+++ b/devtools/testparser.rb
@@ -0,0 +1,73 @@
+#!/usr/bin/ruby -w
+
+# This script takes a lot of .xml files, parse them, and ensure that each of them has at least
+# channel : a title, a link
+# each item : a title, a link, a content
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+require 'channel'
+
+XMLDIR = '../opml/output/'
+DETAILED = true
+def do_dir(dir)
+  Dir.foreach(dir) do |f|
+    next if f !~ /.xml$/
+    do_file(XMLDIR + f)
+  end
+end
+
+def do_file(file)
+  print "#{file} : "
+  str = File::read(file)
+  if str.length == 0
+    puts "EMPTY"
+    return
+  end
+  begin
+    chan = Channel::new(str)
+  rescue UnknownFeedTypeException
+    puts "UNKNOWNFEEDTYPE"
+    return
+  rescue Exception
+    puts "EXCEPTION"
+    puts $!
+    return
+  end
+  ok = true
+  if chan.title.nil?
+    ok = false
+    puts "Channel Title Empty" if DETAILED
+  end
+  if chan.link.nil?
+    ok = false
+    puts "Channel Link Empty" if DETAILED
+  end
+  if chan.items.length == 0
+    ok = false
+    puts "Channel Items Empty" if DETAILED
+  end
+  chan.items.each do |i|
+    if i.title.nil?
+      ok = false
+      puts "Item Title Empty" if DETAILED
+    end
+    if i.link.nil?
+      ok = false
+      puts "Item Link Empty" if DETAILED
+    end
+    if i.content.nil?
+      ok = false
+      puts "Item Content Empty" if DETAILED
+    end
+  end
+  if ok
+    puts "OK"
+  else
+    puts "ERROR"
+  end
+end
+
+STDOUT.sync = true
+#do_file('../opml/output/112.xml')
+do_dir(XMLDIR)
+
-- 
cgit v1.2.3