imap-feeder 0.1.0

data/test/test_message.rb

@@ -0,0 +1,312 @@
+require 'imap-feeder/message'
+require 'time'
+
+$tidy_path = "/usr/lib/libtidy.so"
+
+class MessageTest < Test::Unit::TestCase
+
+  def test_creation
+    m = Message.new(:title => "title", :body => "body")
+    assert_equal("title", m.title)
+    assert_equal("body", m.body)
+  end
+  
+  def test_creation_with_time
+    t = Time.now.localtime
+    m = Message.new(:title => "title", :body => "body", :time => t)
+    assert_equal("title", m.title)
+    assert_equal("body", m.body)
+    assert_equal(t.rfc2822, m.time)
+  end
+  
+  def test_creation_title_only
+    m = Message.new(:title => "title")
+    assert_equal("title", m.title)
+    assert_equal("", m.body)
+  end
+
+  def test_creation_body_only
+    m = Message.new(:body => "body")
+    assert_equal("", m.title)
+    assert_equal("body", m.body)
+  end
+  
+  def test_creation_name_with_url
+    m = Message.new(:from => "Mirko Stocker", :url => "http://www.url.ch")
+    assert_equal("Mirko Stocker", m.from)
+  end
+  
+  def test_format_with_plus
+    t = Time.parse("Mon, Mar 05 2007 15:24:12 +0100")
+    m = Message.new(:title => "C/C++", :body => "body", :time => t)
+    assert_equal(<<EOF, m.format)
+Date: Mon, 05 Mar 2007 15:24:12 +0100
+Subject: C/C++
+From: Unknown <spam@example.org>
+Content-Type: text/plain;
+  charset="utf-8"
+Content-Transfer-Encoding: 8bit
+
+body
+EOF
+  end  
+
+  def test_format
+    t = Time.parse("Mon, Mar 05 2007 15:24:12 +0100")
+    m = Message.new(:title => "title", :body => "body", :time => t)
+    assert_equal(<<EOF, m.format)
+Date: Mon, 05 Mar 2007 15:24:12 +0100
+Subject: title
+From: Unknown <spam@example.org>
+Content-Type: text/plain;
+  charset="utf-8"
+Content-Transfer-Encoding: 8bit
+
+body
+EOF
+  end  
+
+  def test_format_with_url
+    t = Time.parse("Mon, Mar 05 2007 15:26:49 +0100")
+    m = Message.new(:title => "title", :body => "body", :time => t, :url => "http://www.misto.ch")
+    assert_equal(<<EOF, m.format)
+Date: Mon, 05 Mar 2007 15:26:49 +0100
+Subject: title
+From: Unknown <spam@example.org>
+Content-Type: text/plain;
+  charset="utf-8"
+Content-Transfer-Encoding: 8bit
+
+body
+
+http://www.misto.ch
+EOF
+  end
+  
+  def test_format_multiline
+    t = Time.parse("Mon, Mar 05 2007 15:26:49 +0100")
+    m = Message.new(:title => "title", :body => "<p>body</p>second", :time => t)
+    assert_equal(<<EOF, m.format)
+Date: Mon, 05 Mar 2007 15:26:49 +0100
+Subject: title
+From: Unknown <spam@example.org>
+Content-Type: text/plain;
+  charset="utf-8"
+Content-Transfer-Encoding: 8bit
+
+body
+
+second
+EOF
+  end
+
+  def test_format_encoded
+    t = Time.parse("Mon, Mar 05 2007 15:26:16 +0100")
+    m = Message.new(:title => "Xæxøx: …", :body => "<p>body</p>second", :time => t)
+    assert_equal(<<-EOF, m.format)
+Date: Mon, 05 Mar 2007 15:26:16 +0100
+Subject: X=?UTF-8?Q?=c3=a6?=x=?UTF-8?Q?=c3=b8?=x: =?UTF-8?Q?=e2=80=a6?=
+From: Unknown <spam@example.org>
+Content-Type: text/plain;
+  charset="utf-8"
+Content-Transfer-Encoding: 8bit
+
+body
+
+second
+EOF
+  end
+end
+
+
+class MessageFormatterTest < Test::Unit::TestCase
+
+  def create_message body
+    Message.new(:body => body)
+  end
+
+  #
+  # Paragraphs
+  #
+  def test_one_p
+    m = create_message "<p>X</p>"
+    assert_equal("X", m.body)
+  end
+  
+  def test_one_p_with_space
+    m = create_message "<p >X</p  >"
+    assert_equal("X", m.body)
+  end
+  
+  def test_one_p_in_the_middle
+    m = create_message "X<p>Y</p>Z"
+    assert_equal("X\n\nY\n\nZ", m.body)
+  end
+  
+  def test_p_with_spaces
+    m = create_message "X<p >Y</p >Z"
+    assert_equal("X\n\nY\n\nZ", m.body)
+  end
+  
+  def test_mutliple_p
+    m = create_message "<p>Y</p><p>Z</p>"
+    assert_equal("Y\n\nZ", m.body)
+  end
+  
+  def test_font
+    m = create_message "<font>Z</font>"
+    assert_equal("Z", m.body)
+  end
+  
+  #
+  # Linebreak
+  #
+  def test_br_html
+    m = create_message "Y<br>Z"
+    assert_equal("Y\n\nZ", m.body)
+  end
+  
+  def test_br_xhtml
+    m = create_message "Y<br/>Z"
+    assert_equal("Y\n\nZ", m.body)
+  end
+  
+  def test_br_with_space
+    m = create_message "Y<br />Z"
+    assert_equal("Y\n\nZ", m.body)
+  end
+  
+  #
+  # Lines
+  #
+  def test_multi_lines
+    m = create_message "Y<br /><br /><br /><br /><br />Z"
+    assert_equal("Y\n\nZ", m.body)
+  end    
+   
+  def test_sanitize_newlines_with_spaces
+    m = create_message "<p>aa</p>\n \n\t\n    \n<p>aa</p>"
+    assert_equal("aa\n\naa", m.body)
+  end
+
+  def test_sanitize_newlines
+    m = create_message "<p>aa</p>\n\n\n\n<p>aa</p>"
+    assert_equal("aa\n\naa", m.body)
+  end
+  
+  #
+  # Italic
+  #
+  def test_italic
+    m = create_message "<i>yeah</i>"
+    assert_equal("*yeah*", m.body)
+  end
+  
+  #
+  # Strong
+  #
+  def test_strong
+    m = create_message "<strong >g</strong> or <em>s</em>"
+    assert_equal("*g* or *s*", m.body)
+  end
+  
+  def test_bold
+    m = create_message "<b >g</b >"
+    assert_equal("*g*", m.body)
+  end
+  
+  #
+  # Images
+  #
+  def test_img
+    m = create_message "Juhu <img src='files/smiley.png' alt=':-)' />."
+    assert_equal("Juhu :-).", m.body)
+  end
+  
+  def test_img_without_alt
+    m = create_message "Juhu <img src='files/smiley.png'/>."
+    assert_equal("Juhu .", m.body)
+  end
+  
+  #
+  # HTML Entities
+  #
+  def test_html_entity
+    m = create_message "&#8230;"
+    assert_equal("…", m.body)
+  end  
+  def test_html_escaped
+    m = create_message "/lib &amp; /bin"
+    assert_equal("/lib & /bin", m.body)
+  end  
+  
+  #
+  # Abbreviations
+  #
+  def test_abbr
+    m = create_message '<abbr title="Ruby Development Tool">RDT</abbr>'
+    assert_equal("RDT (Ruby Development Tool)", m.body)
+  end
+
+  #
+  # span
+  #
+  def test_span
+    m = create_message 'Thema <span class="caps">REST</span>'
+    assert_equal("Thema REST", m.body)
+  end
+
+  #
+  # URLs
+  #
+  def test_href
+    m = create_message "Kuck mal <a href=\"http://da.da\">hier</a>!"
+    assert_equal("Kuck mal hier[1]!\n\n[1] http://da.da", m.body)
+  end
+
+  def test_href_with_equal_content
+    m = create_message "Kuck mal <a href=\"http://da.da\">http://da.da</a>!"
+    assert_equal("Kuck mal http://da.da!", m.body)
+  end
+  
+  def test_href_single_quotes
+    m = create_message "Kuck mal <a href='http://da.da'>hier</a>!"
+    assert_equal(<<EOS.chomp, m.body)
+Kuck mal hier[1]!
+
+[1] http://da.da
+EOS
+  end
+  
+  def test_hrefs
+    m = create_message "Kuck mal <a href=\"http://da.da\">hier\n</a> und <a  href=\"http://namal.da\">da</a >!"
+    assert_equal(<<EOS.chomp, m.body)
+Kuck mal hier[1] und da[2]!
+
+[1] http://da.da
+[2] http://namal.da
+EOS
+  end
+
+  def test_lots_of_hrefs
+    str = "<a href=\"http://da.da\">link</a>\n" * 12
+
+    m = create_message str
+    assert_equal(<<EOS.chomp, m.body)
+link[1] link[2] link[3] link[4] link[5] link[6] link[7] link[8] link[9] link[10] link[11] link[12]
+
+[1]  http://da.da
+[2]  http://da.da
+[3]  http://da.da
+[4]  http://da.da
+[5]  http://da.da
+[6]  http://da.da
+[7]  http://da.da
+[8]  http://da.da
+[9]  http://da.da
+[10] http://da.da
+[11] http://da.da
+[12] http://da.da
+EOS
+  end
+end

data/test/test_messagestore.rb

@@ -0,0 +1,54 @@
+require 'yaml'
+
+require 'imap-feeder/opmlreader'
+require 'imap-feeder/messagestore'
+
+class TestingMessageStore < MessageStore
+  def initialize(file)
+    @file = file
+    File.open(@file, "w") do |f|
+      YAML.dump({"INBOX.Planets.Planet KDE" => ["Mirko: It works!"],
+                 "INBOX.Planets.Planet Gentoo" => [],
+                 "INBOX.Blog.Mirko" => []}, f)
+    end
+    super
+  end
+
+  def clean
+    File.open(@file, "w").close
+  end
+end
+
+class TestMessageStore < Test::Unit::TestCase
+
+  FILE_NAME = "#{File.dirname(__FILE__)}/data/last_messages.yaml"
+
+  def setup
+    @store = TestingMessageStore.new(FILE_NAME)
+  end
+
+  def teardown
+    @store.clean
+  end
+
+  def test_get_archived
+    title = @store.get_archived "INBOX.Planets.Planet KDE"
+    assert_equal("Mirko: It works!", title.first)
+  end
+
+  def test_add_new
+    @store.add_new("INBOX.Planets.Planet KDE", ["Erstes", "Zweites"])
+    title = @store.get_archived "INBOX.Planets.Planet KDE"
+    assert_equal("Erstes",  title[0])
+    assert_equal("Zweites", title[1])
+  end
+  
+  def test_store_and_save
+    @store.add_new("INBOX.Planets.Planet KDE", ["FAKE"])
+    title = @store.get_archived("INBOX.Planets.Planet KDE")
+    @store.save
+    saved_store = MessageStore.new(FILE_NAME)
+    saved_title = saved_store.get_archived("INBOX.Planets.Planet KDE")
+    assert_equal(title, saved_title)
+  end
+end

data/test/test_opmlreader.rb

@@ -0,0 +1,73 @@
+require 'imap-feeder/opmlreader'
+
+class OpmlReaderTest < Test::Unit::TestCase
+  
+  def test_simple_without_urls
+    result = OpmlReader.get(<<-EOF)
+      <?xml version="1.0" encoding="UTF-8"?>
+      <opml version="1.0" >
+       <body>
+        <outline isOpen="false" text="Planets">
+        </outline>
+       </body>
+      </opml>
+    EOF
+    assert_equal("", result.name)
+    assert_equal("Planets", result[0].name)
+  end    
+  
+  def test_character_conversion
+    result = OpmlReader.get(<<-EOF)
+      <?xml version="1.0" encoding="UTF-8"?>
+      <opml version="1.0" >
+       <body>
+        <outline isOpen="false" text="Mirko.Stocker's">
+        </outline>
+       </body>
+      </opml>
+    EOF
+    assert_equal("", result.name)
+    assert_equal("Mirko_Stocker_s", result[0].name)
+  end  
+  
+  def test_simple_one_category
+    result = OpmlReader.get(<<-EOF)
+      <?xml version="1.0" encoding="UTF-8"?>
+      <opml version="1.0" >
+       <body>
+        <outline isOpen="false" text="Planets">
+          <outline title="Planet KDE" xmlUrl="http://planetkde.org/rss20.xml"/>
+          <outline xmlUrl="http://planet.gentoo.org/rss20.xml" title="Planet Gentoo"/>
+        </outline>
+       </body>
+      </opml>
+    EOF
+    assert_equal("", result.name)
+    assert_equal("Planets", result[0].name)
+    assert_equal("Planet KDE", result[0].urls[0].name)
+    assert_equal("http://planetkde.org/rss20.xml", result[0].urls[0].url)
+    assert_equal("Planet Gentoo", result[0].urls[1].name)
+    assert_equal("http://planet.gentoo.org/rss20.xml", result[0].urls[1].url)
+  end
+  
+  
+  def test_simple_category_with_sub
+    result = OpmlReader.get(<<-EOF)
+      <?xml version="1.0" encoding="UTF-8"?>
+      <opml version="1.0" >
+       <body>
+        <outline isOpen="false" text="Planets">
+          <outline isOpen="false" text="Satelites">
+            <outline title="The Satelite" xmlUrl="http://misto.ch"/>
+          </outline>
+        </outline>
+       </body>
+      </opml>
+    EOF
+    assert_equal("", result.name)
+    assert_equal("Planets", result[0].name)
+    assert_equal("Satelites", result[0].children[0].name)
+    assert_equal("The Satelite", result[0].children[0].urls[0].name)
+    assert_equal("http://misto.ch", result[0].children[0].urls[0].url)
+  end
+end

data/test/testlogger.rb

@@ -0,0 +1,22 @@
+class TestLogger
+  attr_reader :debug_msg, :warn_msg, :error_msg, :info_msg
+
+  def initialize
+    @debug_msg = []
+    @warn_msg  = []
+    @error_msg = []
+    @info_msg = []
+  end
+  def debug(msg)
+    @debug_msg << msg
+  end
+  def warn(msg)
+    @warn_msg << msg
+  end
+  def error(msg)
+    @error_msg << msg
+  end
+  def info(msg)
+    @info_msg << msg
+  end
+end