hparser 0.3.0 → 0.4.0

data/test/test_head.rb

@@ -1,4 +1,4 @@
-require 'test/unit'
+require 'test_helper'
 require 'hparser/parser'
 require 'hparser/block/head'
 require 'hparser/inline/text'
@@ -28,6 +28,12 @@ class HeadTest < Test::Unit::TestCase
     assert_equal [head(100,"aaa")],parse("#{'*'*100}aaa")
   end
 
+  def test_empty_head
+    assert_equal [head(1, "")],parse("*")
+    assert_equal [head(1, "")],parse("* ")
+    assert_equal [head(1, "")],parse("*  ")
+  end
+
   def head level,str
     Head.new level,[Text.new(str)]
   end

data/test/test_helper.rb

@@ -0,0 +1,11 @@
+
+$LOAD_PATH.unshift(File.dirname(__FILE__) + '/../lib/')
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/hparser'
+
+
+class String
+  def unindent(leading=nil)
+    gsub(/^#{self[Regexp.union(leading || /\A(?:\t+| +)/)]}/, "")
+  end
+end

data/test/test_html.rb

@@ -1,4 +1,4 @@
-require 'test/unit'
+require 'test_helper'
 require 'hparser/block/all'
 require 'hparser/inline/all'
 require 'hparser/html'
@@ -14,22 +14,46 @@ class HtmlTest < Test::Unit::TestCase
     assert_equal expect,node.to_html
   end
 
+  def test_blank
+    parser = HParser::Parser.new
+    assert_equal parser.parse(''), []
+  end
+
   def test_head
+    assert_equal Head.head_level, 1
     assert_html '<h1>foo</h1>',Head.new(1,[Text.new('foo')])
+    Head.head_level = 2
+    assert_html '<h2>foo</h2>',Head.new(1,[Text.new('foo')])
+    Head.head_level = 4
+    assert_html '<h4>foo</h4>',Head.new(1,[Text.new('foo')])
+    Head.head_level = 1
   end
 
   def test_p
     assert_html '<p>foobar</p>',P.new([Text.new('foobar')])
-    assert_html '<p><br /></p>',Empty.new
+    assert_html '<br />',Empty.new
+    assert_html '<a name="seemore"></a>',SeeMore.new(false)
+    assert_html '<a name="seeall"></a>',SeeMore.new(true)
   end
 
   def test_pre
     assert_html '<pre>foobar</pre>',Pre.new([Text.new('foobar')])
     assert_html '<pre>foobar</pre>',SuperPre.new('foobar')
+    assert_html "<pre>aaa\n bbb\nccc</pre>",SuperPre.new("aaa\n bbb\nccc")
+    spre = SuperPre.new('foobar', 'ruby<>')
+    assert_html '<pre class="ruby&lt;&gt;">foobar</pre>', spre
+    spre = SuperPre.new('foobar', 'ruby')
+    assert_html '<pre class="ruby">foobar</pre>', spre
+    SuperPre.class_format_prefix = 'brush: '
+    assert_html '<pre class="brush: ruby">foobar</pre>', spre
   end
 
   def test_quote
-    assert_html '<blockquote>foobar</blockquote>',Quote.new([Text.new('foobar')])
+    assert_html '<blockquote><p>foobar</p></blockquote>',Quote.new([P.new([Text.new('foobar')])])
+    assert_html '<blockquote><p>foobar</p><cite><a href="http://example.com">http://example.com</a></cite></blockquote>',
+                Quote.new([P.new([Text.new('foobar')])], Url.new('http://example.com'))
+    assert_html '<blockquote><p>foobar</p><cite><a href="http://example.com">TITLE</a></cite></blockquote>',
+                Quote.new([P.new([Text.new('foobar')])], Url.new('http://example.com', 'TITLE'))
   end
 
   def test_table
@@ -41,6 +65,10 @@ class HtmlTest < Test::Unit::TestCase
   def test_list
     assert_html '<ul><li>aaa</li><li>bbb</li></ul>',Ul.new(Li.new([Text.new('aaa')]),Li.new([Text.new('bbb')]))
     assert_html '<ol><li>aaa</li><li>bbb</li></ol>',Ol.new(Li.new([Text.new('aaa')]),Li.new([Text.new('bbb')]))
+    assert_html '<ol><li>aaa<ul><li>bbb</li></ul></li></ol>',Ol.new(Li.new([Text.new('aaa')]),
+                                                                    Ul.new(Li.new([Text.new('bbb')])))
+    assert_html '<ul><li>aaa<ol><li>bbb</li></ol></li></ul>',Ul.new(Li.new([Text.new('aaa')]),
+                                                                    Ol.new(Li.new([Text.new('bbb')])))
     assert_html '<ol><ul><li>aaa</li></ul><li>bbb</li></ol>',Ol.new(Ul.new(Li.new([Text.new('aaa')])),
                                                                     Li.new([Text.new('bbb')]))
   end
@@ -52,6 +80,14 @@ class HtmlTest < Test::Unit::TestCase
     assert_html expect,Dl.new(first,second)
   end
 
+  def test_footnote_list
+    expect = '<div class="footnote">' + 
+             '<p class="footnote"><a href="#fn1" name="f1">*1</a>: text1</p>' + 
+             '<p class="footnote"><a href="#fn2" name="f2">*2</a>: text2</p>' + 
+             '</div>'
+    assert_html expect, FootnoteList.new([Footnote.new(1, 'text1'), Footnote.new(2, 'text2')])
+  end
+
   def th str
     Th.new [Text.new(str)]
   end

data/test/test_id.rb

@@ -1,4 +1,4 @@
-require 'test/unit'
+require 'test_helper'
 require 'hparser/inline/hatena_id'
 require 'hparser/inline/parser'
 

data/test/test_inline.rb

@@ -1,4 +1,4 @@
-require 'test/unit'
+require 'test_helper'
 require 'hparser/inline/url'
 require 'hparser/inline/text'
 require 'hparser/inline/hatena_id'
@@ -17,5 +17,17 @@ class InlineTest < Test::Unit::TestCase
   def test_text
     assert_equal [Text.new("foo is bar")],parse("foo is bar")
     assert_equal [Text.new("foo\nbar")],parse("foo\nbar")
+    assert_not_equal [Text.new('<a href="#"></a>id:secondlife</a>')],
+                     parse('<a href="#"></a>id:secondlife</a>')
+  end
+
+  def test_id
+    assert_equal [Text.new("id:_ql")],parse("id:_ql")
+    assert_equal [HatenaId.new("secondlife")],parse("id:secondlife")
+    assert_equal [HatenaId.new("secondlife", true)],parse("id:secondlife:detail")
+  end
+
+  def test_comment
+    assert_equal [Text.new("aaa "), Comment.new(" bbb ")], parse("aaa <!-- bbb -->")
   end
 end

data/test/test_inline_html.rb

@@ -1,5 +1,6 @@
-require 'test/unit'
+require 'test_helper'
 require 'hparser/inline/all'
+require 'hparser/parser'
 require 'hparser/html'
 
 class HtmlInlineTest < Test::Unit::TestCase
@@ -11,7 +12,8 @@ class HtmlInlineTest < Test::Unit::TestCase
   def assert_html expect,str
     expect.class == String and (expect = [expect])
 
-    assert_equal expect,@parser.parse(str).map{|x| x.to_html}
+    context = HParser::Context.new
+    assert_equal expect,@parser.parse(str, context).map{|x| x.to_html}
   end
 
   def assert_same str
@@ -21,14 +23,47 @@ class HtmlInlineTest < Test::Unit::TestCase
   def test_text
     assert_same 'foo is bar'
     assert_same '<a href="http://mzp.sakura.ne.jp">link!</a>'
+    assert_same "<img src='http://example.com/' />"
+    assert_same '<img src="http://example.com/" />'
+    assert_same '<iframe src="http://example.com/"></iframe>'
+    assert_same '<a href="http://example.com/"></a>'
   end
 
   def test_id
     assert_html '<a href="http://d.hatena.ne.jp/mzp/">id:mzp</a>','id:mzp'
+    assert_html '<a href="http://d.hatena.ne.jp/mzp/" class="hatena-id-icon">' +
+                '<img src="http://www.st-hatena.com/users/mz/mzp/profile_s.gif" ' +
+                'width="16" height="16" alt="id:mzp" class="hatena-id-icon">id:mzp</a>',
+                'id:mzp:detail'
   end
 
   def test_url
     assert_html '<a href="http://mzp.sakura.ne.jp">http://mzp.sakura.ne.jp</a>',
                 'http://mzp.sakura.ne.jp'
+    assert_html '<a href="http://example.com/">TITLE</a>',
+                '[http://example.com/:title=TITLE]'
+    assert_html '<a href="http://example.com/">A&amp;B</a>',
+                '[http://example.com/:title=A&B]'
+    assert_html '<a href="http://example.com/#a">TITLE</a> ' + 
+                '<a href="http://b.hatena.ne.jp/entry/http://example.com/%23a" class="http-bookmark">' + 
+                '<img src="http://b.hatena.ne.jp/entry/image/http://example.com/%23a" alt="" class="http-bookmark"></a>',
+                '[http://example.com/#a:title=TITLE:bookmark]'
+  end
+
+  def test_fotolife
+    assert_html '<a href="http://f.hatena.ne.jp/nitoyon/20100718010346">' + 
+                '<img src="http://f.hatena.ne.jp/images/fotolife/n/nitoyon/20100718/20100718010346.jpg"></a>',
+                '[f:id:nitoyon:20100718010346j:image]'
+  end
+
+  def test_tex
+    assert_html '<img src="http://chart.apis.google.com/chart?cht=tx&chf=bg,s,00000000&chl=e%5E%7Bi%5Cpi%7D+%3D+-1"' +
+                ' class="tex" alt="e^{i\pi} = -1">',
+                '[tex:e^{i\pi} = -1]'
+  end
+
+  def test_footnote
+    assert_html '<span class="footnote"><a href="#f1" title="text" name="fn1">*1</a></span>',
+                '((<a href="#">text</a>))'
   end
 end

data/test/test_integration.rb

@@ -0,0 +1,20 @@
+require 'test_helper'
+require 'hparser/parser'
+require 'pathname'
+
+class IntegrationTest < Test::Unit::TestCase
+  def setup
+    @parser = HParser::Parser.new
+  end
+
+  def parse str
+    @parser.parse str
+  end
+
+  def test_parse_ok
+    Pathname.glob(Pathname.new(__FILE__).parent.to_s + '/integration_texts/*.ok.hatena').each do |file|
+      assert parse(file.read), file.to_s
+    end
+  end
+end
+

data/test/test_latex.rb

@@ -0,0 +1,101 @@
+require 'test_helper'
+require 'hparser/block/all'
+require 'hparser/inline/all'
+require 'hparser/latex'
+
+class LatexTest < Test::Unit::TestCase
+  include HParser::Block
+  include HParser::Inline
+  def setup
+#    @parser = HParser::Parser.new
+  end
+
+  def assert_latex expect,node
+    assert_equal expect,node.to_latex
+  end
+
+  def test_blank
+    parser = HParser::Parser.new
+    assert_equal parser.parse(''), []
+  end
+
+  def test_head
+    assert_equal Head.head_level, 1
+    assert_latex "\\section{foo}\n\n",Head.new(1,[Text.new('foo')])
+    Head.head_level = 2
+    assert_latex "\\subsection{foo}\n\n",Head.new(1,[Text.new('foo')])
+    Head.head_level = 4
+    assert_latex "\\paragraph{foo}\n\n",Head.new(1,[Text.new('foo')])
+    Head.head_level = 1
+  end
+
+
+  def test_p
+    assert_latex "foobar\n\n",P.new([Text.new('foobar')])
+    assert_latex "\n\n",Empty.new
+  end
+
+  def test_pre
+    assert_latex "\\begin{verbatim}\nfoobar\n\\end{verbatim}\n",Pre.new([Text.new('foobar')])
+    assert_latex "\\begin{verbatim}\nfoobar\n\\end{verbatim}\n",SuperPre.new('foobar')
+  end
+
+  def test_quote
+    assert_latex "\\begin{quotation}\nfoobar\n\n\n\\end{quotation}\n",Quote.new([P.new([Text.new('foobar')])])
+  end
+
+  def test_table
+    table = <<EOB
+\\begin{table}
+  \\centering
+  \\begin{tabular}{ l l }
+    foo & bar \\\\
+    baz & xyzzy \\\\
+  \\end{tabular}
+\\end{table}
+EOB
+    assert_latex table,
+                Table.new([th('foo'),th('bar')],
+                          [td('baz') ,td('xyzzy')])
+  end
+
+  def test_list
+    assert_latex "\\begin{itemize}\n  \\item aaa\n\n  \\item bbb\n\n\\end{itemize}\n",Ul.new(Li.new([Text.new('aaa')]),Li.new([Text.new('bbb')]))
+    assert_latex "\\begin{enumerate}\n  \\item aaa\n\n  \\item bbb\n\n\\end{enumerate}\n",Ol.new(Li.new([Text.new('aaa')]),Li.new([Text.new('bbb')]))
+#    assert_latex '<ol><ul><li>aaa</li></ul><li>bbb</li></ol>',Ol.new(Ul.new(Li.new([Text.new('aaa')])),
+#                                                                    Li.new([Text.new('bbb')]))
+  end
+
+  def test_dl
+    expect = <<EOB
+\\begin{description}
+\\item[foo] \\quad \\\\
+foo is ...
+\\item[bar] \\quad \\\\
+bar is ...
+
+\\end{description}
+EOB
+
+    first = Dl::Item.new([Text.new('foo')],[Text.new('foo is ...')])
+    second = Dl::Item.new([Text.new('bar')],[Text.new('bar is ...')])
+    assert_latex expect,Dl.new(first,second)
+  end
+
+  def test_footnote
+    assert_latex "\\footnote{text1}", Footnote.new(1, "text1")
+  end
+
+  def test_tex
+    assert_latex "$e^{i\pi} = -1$", Tex.new("e^{i\pi} = -1")
+  end
+
+  def th str
+    Th.new [Text.new(str)]
+  end
+
+  def td str
+    Td.new [Text.new(str)]
+  end
+
+end

data/test/test_p.rb

@@ -1,4 +1,4 @@
-require 'test/unit'
+require 'test_helper'
 require 'hparser/parser'
 require 'hparser/block/p'
 
@@ -26,15 +26,35 @@ aaa
   end
 
   def test_multi_line
-    assert_equal [p('aaa'),p('bbb')], parse(<<-END)
+    assert_equal [p("aaa"), p("bbb")], parse(<<-END)
 aaa
 bbb
     END
 
-    assert_equal [p("aaa"),p('bbb')], parse(<<-END)
+    assert_equal [p("aaa"), p("bbb"), Empty.new, p("aaa"), p("bbb")], parse(<<-END)
 aaa
+bbb
+
+
+aaa
+bbb
+    END
+
+    assert_equal [p("aaa"),Empty.new, p('bbb')], parse(<<-END)
+aaa
+
 
 bbb
+
+    END
+  end
+
+  def test_multi_line2
+    assert_equal [p(" aaa"), p(" bbb"), p(" ccc")], parse(<<-END)
+ aaa
+
+ bbb
+ ccc
     END
   end
 

data/test/test_pair.rb

@@ -1,4 +1,4 @@
-require 'test/unit'
+require 'test_helper'
 require 'hparser/parser'
 require 'hparser/block/quote'
 require 'hparser/block/pre'
@@ -18,6 +18,8 @@ class QuoteTest < Test::Unit::TestCase
   def assert_pair(from,to,klass)
     assert_equal [P.new([Text.new("#{from}aaa#{to}")])], parse("#{from}aaa#{to}")
     assert_equal [klass.new([Text.new("aaa")])], parse("#{from}\naaa\n#{to}")
+    assert_equal [klass.new([Text.new("aaa")])], parse("#{from}\r\naaa\r\n#{to}")
+    assert_equal [klass.new([Text.new("aaa")])], parse("#{from}\raaa\r#{to}")
     assert_equal [klass.new([Text.new("aaa\n\nbbb")])],parse(<<-"END")
 #{from}
 aaa
@@ -25,13 +27,29 @@ aaa
 bbb
 #{to}
     END
-  end
 
-  def test_quote
-    assert_pair ">>","<<",Quote
+    assert_equal [klass.new([Text.new("aaa\n\nbbb")])],parse(<<-"END"), 'pair after space'
+#{from} 
+aaa
+
+bbb
+#{to} 
+    END
   end
 
   def test_pre
     assert_pair ">|","|<",Pre
+
+    assert_equal [Pre.new([Text.new(" a ")])],parse(<<-END)
+>|
+ a 
+|<
+END
+
+    assert_equal [Pre.new([Text.new("a\n>|")])],parse(<<-END)
+>|
+a
+>|
+END
   end
 end

data/test/test_quote.rb

@@ -0,0 +1,69 @@
+require 'test_helper'
+require 'hparser/parser'
+require 'hparser/block/list'
+
+class QuoteTest < Test::Unit::TestCase
+  include HParser::Block
+  include HParser::Inline
+
+  def setup
+    @parser = HParser::Parser.new
+  end
+
+  def parse str
+    @parser.parse str
+  end
+
+  def test_quote
+    assert_equal [Quote.new([P.new([Text.new('a')]),P.new([Text.new('b')])])],
+                  parse(<<-END.unindent)
+    >>
+    a
+    
+    b
+    <<
+    END
+  end
+
+  def test_quote_list
+    assert_equal [Quote.new([Ul.new(Li.new([Text.new('a')]))])],
+                  parse(<<-END.unindent)
+    >>
+    -a
+    <<
+    END
+  end
+
+  def test_quote_nesting
+    assert_equal [Quote.new([P.new([Text.new('a')]),
+                             Quote.new([P.new([Text.new('b')])])
+                            ])
+                 ],
+                  parse(<<-END.unindent)
+    >>
+    a
+    >>
+    b
+    <<
+    <<
+    END
+  end
+
+  def test_quote_with_url
+    assert_equal [Quote.new([P.new([Text.new('a')])], 
+                            Url.new('http://example.com'))],
+                  parse(<<-END.unindent)
+    >http://example.com>
+    a
+    <<
+    END
+  end
+
+  def test_quote_unmatch
+    assert_equal [Quote.new([P.new([Text.new('a')])])],
+                  parse(<<-END.unindent)
+    >>
+    a
+    END
+  end
+end

data/test/test_see_more.rb

@@ -0,0 +1,28 @@
+require 'test_helper'
+require 'hparser/parser'
+require 'hparser/block/see_more'
+class SeeMoreTest < Test::Unit::TestCase
+  include HParser::Block
+
+  def setup
+    @parser = HParser::Parser.new [SeeMore]
+  end
+
+  def parse str
+    @parser.parse str
+  end
+
+  def test_new
+    more = SeeMore.new(false)
+    all = SeeMore.new(true)
+    assert_equal false,more.is_super
+    assert_equal true,all.is_super
+    assert_not_equal more,all
+  end
+
+  def test_parse
+    assert_equal [SeeMore.new(false)], parse("====")
+    assert_equal [SeeMore.new(true)], parse("=====")
+    assert_not_equal [SeeMore.new(false)], parse("====a")
+  end
+end

data/test/test_table.rb

@@ -1,4 +1,4 @@
-require 'test/unit'
+require 'test_helper'
 require 'hparser/parser'
 require 'hparser/block/table'
 require 'hparser/block/p'

data/test/test_tex.rb

@@ -0,0 +1,24 @@
+require 'test_helper'
+require 'hparser/inline/parser'
+require 'hparser/inline/tex'
+
+class TexTest < Test::Unit::TestCase
+  include HParser::Inline
+  def setup
+    @parser = Parser.new [Tex]
+  end
+
+  def parse str
+    @parser.parse str
+  end
+
+  def test_new
+    tex = Tex.new("e^{i\pi} = -1")
+    assert_equal "e^{i\pi} = -1", tex.text
+  end
+
+  def test_parse
+    assert_equal [Tex.new("e^{i\pi} = -1")],
+                 parse("[tex:e^{i\pi} = -1]")
+  end
+end

data/test/test_text.rb

@@ -1,4 +1,4 @@
-require 'test/unit'
+require 'test_helper'
 require 'hparser'
 require 'hparser/text'
 
@@ -32,7 +32,7 @@ class TextTest < Test::Unit::TestCase
   end
 
   def test_quote
-    assert_text '  foobar',Quote.new([Text.new('foobar')])
+    assert_text "  foobar\n  bar",Quote.new([P.new([Text.new("foobar\nbar")])])
   end
 
   def test_dl
@@ -62,6 +62,16 @@ END
                                        Li.new([Text.new('bbb')]))
   end
 
+  def test_footnote_list
+    assert_text "(*1) text1\n(*2) text2",
+                FootnoteList.new([Footnote.new(1, 'text1'),
+                                  Footnote.new(2, 'text2')])
+  end
+
+  def test_footnote
+    assert_text "(*1)",Footnote.new(1, 'text1')
+  end
+
   def th str
     Th.new [Text.new(str)]
   end

data/test/test_url.rb

@@ -1,4 +1,4 @@
-require 'test/unit'
+require 'test_helper'
 require 'hparser/inline/parser'
 require 'hparser/inline/url'
 
@@ -12,6 +12,28 @@ class UrlTest < Test::Unit::TestCase
     @parser.parse str
   end
 
+  def test_new
+    url = Url.new("http://example.com")
+    assert_equal "http://example.com", url.url
+    assert_equal "http://example.com", url.title
+    assert_equal false, url.bookmark
+
+    url = Url.new("http://example.com", "TITLE")
+    assert_equal "http://example.com", url.url
+    assert_equal "TITLE", url.title
+    assert_equal false, url.bookmark
+
+    url = Url.new("http://example.com", "")
+    assert_equal "http://example.com", url.url
+    assert_equal "(undefined)", url.title
+    assert_equal false, url.bookmark
+
+    url = Url.new("http://example.com", "a", true)
+    assert_equal "http://example.com", url.url
+    assert_equal "a", url.title
+    assert_equal true, url.bookmark
+  end
+
   def test_http
     assert_equal [Url.new("http://example.com")],parse("http://example.com")
   end
@@ -19,7 +41,8 @@ class UrlTest < Test::Unit::TestCase
   def test_text
     assert_equal [Text.new("<em>"),Url.new("http://example.com"),Text.new("</em>")],
                  parse("<em>http://example.com</em>")
-
+    assert_equal [Text.new("<em>"),Url.new("http://example.com/?foo=bar&bar=baz"),Text.new("</em>")],
+                 parse("<em>http://example.com/?foo=bar&bar=baz</em>")
     assert_equal [Url.new("http://foo.com"),Text.new(" is dummy")],
                  parse("http://foo.com is dummy")
   end
@@ -31,4 +54,18 @@ class UrlTest < Test::Unit::TestCase
   def test_https
     assert_equal [Url.new("https://example.com")],parse("https://example.com")
   end
+
+  def test_bracket
+    assert_equal "b", Url.new("a", "b").title
+    assert_equal [Url.new("http://example.com", "TITLE")],parse("[http://example.com:title=TITLE]")
+    assert_equal [Url.new("http://example.com", "")],parse("[http://example.com:title]")
+    assert_equal [Url.new("http://example.com")],parse("[http://example.com]")
+    assert_equal [Url.new("http://example.com", "", true)],parse("[http://example.com:title:bookmark]")
+    assert_equal [Url.new("http://example.com", "TITLE", true)],parse("[http://example.com:title=TITLE:bookmark]")
+    assert_equal [Url.new("http://example.com", "a:b", true)],parse("[http://example.com:title=a:b:bookmark]")
+    assert_equal [Url.new("http://example.com", "a"),
+                  Text.new("b:bookmark]")],
+                 parse("[http://example.com:title=a]b:bookmark]")
+    assert_not_equal [Url.new("http://example.com", "a\n")],parse("[http://example.com:title=a\n]")
+  end
 end