patcito-maruku 0.6.0

data/spec/block_docs/table_attributes.md

@@ -0,0 +1,34 @@
+Write a comment here
+*** Parameters: ***
+{} # params 
+*** Markdown input: ***
+
+h         | h
+----------|--
+{:t}  c1  | c2
+{: summary="Table summary" .class1 style="color:red" border=3 width="50%" frame=lhs rules=cols  cellspacing=2em cellpadding=4px}
+
+{:t: scope="row"}
+*** Output of inspect ***
+md_el(:document,[
+	md_el(:table,[
+		md_el(:head_cell,["h"],{},[]),
+		md_el(:head_cell,["h"],{},[]),
+		md_el(:cell,[" c1"],{},[[:ref, "t"]]),
+		md_el(:cell,["c2"],{},[])
+	],{:align=>[:left, :left]},[["summary", "Table summary"], [:class, "class1"], ["style", "color:red"], ["border", "3"], ["width", "50%"], ["frame", "lhs"], ["rules", "cols"], ["cellspacing", "2em"], ["cellpadding", "4px"]]),
+	md_el(:ald,[],{:ald=>[["scope", "row"]],:ald_id=>"t"},[])
+],{},[])
+*** Output of to_html ***
+<table class='class1' cellspacing='2em' rules='cols' border='3' frame='lhs' summary='Table summary' cellpadding='4px' width='50%' style='color:red'><thead><tr><th>h</th><th>h</th></tr></thead><tbody><tr><th scope='row' style='text-align: left;'> c1</th><td style='text-align: left;'>c2</td>
+</tr></tbody></table>
+*** Output of to_latex ***
+\begin{tabular}{l|l}
+h&h\\
+\hline 
+ c1&c2\\
+\end{tabular}
+*** Output of to_md ***
+hh c1c2
+*** Output of to_s ***
+hh c1c2

data/spec/block_docs/test.md

@@ -0,0 +1,19 @@
+Write a comment abouth the test here.
+*** Parameters: ***
+{}
+*** Markdown input: ***
+
+           $ python       
+
+
+
+*** Output of inspect ***
+md_el(:document,[md_el(:code,[],{:raw_code=>"       $ python       "},[])],{},[])
+*** Output of to_html ***
+<pre><code>       $ python       </code></pre>
+*** Output of to_latex ***
+\begin{verbatim}       $ python       \end{verbatim}
+*** Output of to_md ***
+
+*** Output of to_s ***
+

data/spec/block_docs/underscore_in_words.md

@@ -0,0 +1,15 @@
+Note that Markdown.pl gives incorrect result here.
+*** Parameters: ***
+{} # params 
+*** Markdown input: ***
+Ok, this_was a_really_old bug
+*** Output of inspect ***
+md_el(:document,[md_par(["Ok, this_was a_really_old bug"])],{},[])
+*** Output of to_html ***
+<p>Ok, this_was a_really_old bug</p>
+*** Output of to_latex ***
+Ok, this\_was a\_really\_old bug
+*** Output of to_md ***
+Ok, this_was a_really_old bug
+*** Output of to_s ***
+Ok, this_was a_really_old bug

data/spec/block_docs/wrapping.md

@@ -0,0 +1,67 @@
+Write a comment abouth the test here.
+*** Parameters: ***
+{}
+*** Markdown input: ***
+Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Break:  
+Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. 
+
+* Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet
+  Lorem ipsum Break:  
+  Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet
+* Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet
+
+*** Output of inspect ***
+md_el(:document,[
+	md_par([
+		"Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Break:",
+		md_el(:linebreak,[],{},[]),
+		"Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet."
+	]),
+	md_el(:ul,[
+		md_el(:li_span,[
+			"Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet Lorem ipsum Break:",
+			md_el(:linebreak,[],{},[]),
+			"Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet"
+		],{:want_my_paragraph=>false},[]),
+		md_el(:li_span,[
+			"Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet"
+		],{:want_my_paragraph=>false},[])
+	],{},[])
+],{},[])
+*** Output of to_html ***
+<p>Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Break:<br />Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet.</p>
+
+<ul>
+<li>Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet Lorem ipsum Break:<br />Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet</li>
+
+<li>Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet</li>
+</ul>
+*** Output of to_latex ***
+Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Break:\newline Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet.
+
+\begin{itemize}%
+\item Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet Lorem ipsum Break:\newline Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet
+\item Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet
+
+\end{itemize}
+*** Output of to_md ***
+Lorem ipsum dolor amet. Lorem ipsum
+dolor amet. Lorem ipsum dolor amet.
+Lorem ipsum dolor amet. Lorem ipsum
+dolor amet. Lorem ipsum dolor amet.
+Lorem ipsum dolor amet. Break:  
+Lorem ipsum dolor amet. Lorem ipsum
+dolor amet. Lorem ipsum dolor amet.
+Lorem ipsum dolor amet.
+
+-orem ipsum dolor amet. Lorem ipsum
+dolor amet. Lorem ipsum dolor amet.
+Lorem ipsum dolor amet Lorem ipsum
+Break:  
+Lorem ipsum dolor amet. Lorem ipsum
+dolor amet. Lorem ipsum dolor amet
+-orem ipsum dolor amet. Lorem ipsum
+dolor amet. Lorem ipsum dolor amet.
+Lorem ipsum dolor amet
+*** Output of to_s ***
+Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Break:Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet.Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet Lorem ipsum Break:Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor ametLorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet

data/spec/block_docs/xml2.md

@@ -0,0 +1,19 @@
+Write a comment here
+*** Parameters: ***
+{}
+*** Markdown input: ***
+<!--
+<
+-->
+*** Output of inspect ***
+md_el(:document,[md_html("<!--\n<\n-->")],{},[])
+*** Output of to_html ***
+<!--
+<
+-->
+*** Output of to_latex ***
+
+*** Output of to_md ***
+
+*** Output of to_s ***
+

data/spec/block_docs/xml3.md

@@ -0,0 +1,26 @@
+Write a comment here
+*** Parameters: ***
+{}
+*** Markdown input: ***
+<table markdown='1'>
+	Blah
+	<thead>
+		<td>*em*</td>
+	</thead>
+</table>
+
+*** Output of inspect ***
+md_el(:document,[
+	md_html("<table markdown='1'>\n\tBlah\n\t<thead>\n\t\t<td>*em*</td>\n\t</thead>\n</table>")
+],{},[])
+*** Output of to_html ***
+<table>Blah<thead>
+		<td><em>em</em></td>
+	</thead>
+</table>
+*** Output of to_latex ***
+
+*** Output of to_md ***
+
+*** Output of to_s ***
+

data/spec/block_docs/xml_instruction.md

@@ -0,0 +1,52 @@
+Directives should be preserved.
+*** Parameters: ***
+{}
+*** Markdown input: ***
+
+<? noTarget?> 
+<?php ?> 
+<?xml ?> 
+<?mrk ?>
+
+Targets <? noTarget?> <?php ?> <?xml ?> <?mrk ?>
+
+Inside: <?mrk puts "Inside: Hello" ?> last
+
+
+*** Output of inspect ***
+md_el(:document,[
+	md_el(:xml_instr,[],{:code=>" noTarget",:target=>""},[]),
+	md_el(:xml_instr,[],{:code=>"",:target=>"php"},[]),
+	md_el(:xml_instr,[],{:code=>"",:target=>"xml"},[]),
+	md_el(:xml_instr,[],{:code=>"",:target=>"mrk"},[]),
+	md_par([
+		"Targets ",
+		md_el(:xml_instr,[],{:code=>"noTarget",:target=>""},[]),
+		" ",
+		md_el(:xml_instr,[],{:code=>"",:target=>"php"},[]),
+		" ",
+		md_el(:xml_instr,[],{:code=>"",:target=>"xml"},[]),
+		" ",
+		md_el(:xml_instr,[],{:code=>"",:target=>"mrk"},[])
+	]),
+	md_par([
+		"Inside: ",
+		md_el(:xml_instr,[],{:code=>"puts \"Inside: Hello\"",:target=>"mrk"},[]),
+		" last"
+	])
+],{},[])
+*** Output of to_html ***
+<? noTarget?><?php ?><?xml ?><?mrk ?>
+<p>Targets <? noTarget?> <?php ?> <?xml ?> <?mrk ?></p>
+
+<p>Inside: <?mrk puts "Inside: Hello"?> last</p>
+*** Output of to_latex ***
+Targets    
+
+Inside:  last
+*** Output of to_md ***
+Targets
+
+Inside: last
+*** Output of to_s ***
+Targets    Inside:  last

data/spec/block_spec.rb

@@ -0,0 +1,49 @@
+require File.dirname(__FILE__) + "/spec_helper"
+
+METHODS = [:to_html, :to_latex, :to_md, :to_s]
+
+describe "A Maruku document" do
+  before(:all) do
+    @old_stderr = $stderr
+    $stderr = StringIO.new
+  end
+
+  after(:all) do
+    $stderr = @old_stderr
+  end
+
+  Dir[File.dirname(__FILE__) + "/block_docs/**/*.md"].each do |md|
+    describe " for the #{md} file" do
+      input = File.read(md).split(/\n\*{3}[^*\n]+\*{3}\n/m)
+      input = ["Write a comment here", "{}", input.first] if input.size == 1
+      comment = input.shift
+      params = eval(input.shift)
+      markdown = input.shift
+      ast = input.shift
+
+      before(:each) do
+        pending if md =~ Regexp.new("^" + Regexp.quote(File.dirname(__FILE__) + "/block_docs/red_tests"))
+
+        $already_warned_itex2mml = false
+        @doc = Maruku.new(markdown, params)
+        @expected = METHODS.zip(input).inject({}) {|h, (k, v)| h[k] = v.strip; h}
+      end
+
+      it "should read in the output of #inspect as the same document" do
+        Maruku.new.instance_eval(@doc.inspect).should == @doc
+      end
+
+      it "should read in the given AST as the same document" do
+        Maruku.new.instance_eval(ast).should == @doc
+      end
+
+      METHODS.each do |m|
+        it "should have the expected ##{m} output" do
+          res = @doc.send(m).strip
+          pending "install itex2mml" if m == :to_html && $already_warned_itex2mml
+          res.should == @expected[m]
+        end
+      end
+    end
+  end
+end

data/spec/span_spec.rb

@@ -0,0 +1,254 @@
+require File.dirname(__FILE__) + "/spec_helper"
+
+EXPECTATIONS = Maruku.new.instance_eval do
+  [
+    ["",       [],         'Empty string gives empty list'],
+    ["a",      ["a"],      'Easy char'],
+    [" a",     ["a"],      'First space in the paragraph is ignored'],
+    ["a\n \n", ["a"],      'Last spaces in the paragraphs are ignored'],
+    [' ',      [],      'One char => nothing'],
+    ['  ',     [],      'Two chars => nothing'],
+    ['a  b',   ['a b'],    'Spaces are compressed'],
+    ['a  b',   ['a b'],    'Newlines are spaces'],
+    ["a\nb",   ['a b'],    'Newlines are spaces'],
+    ["a\n b",  ['a b'],    'Compress newlines 1'],
+    ["a \nb",  ['a b'],    'Compress newlines 2'],
+    [" \nb",   ['b'],      'Compress newlines 3'],
+    ["\nb",    ['b'],      'Compress newlines 4'],
+    ["b\n",    ['b'],     'Compress newlines 5'],
+    ["\n",     [],      'Compress newlines 6'],
+    ["\n\n\n", [],      'Compress newlines 7'],
+
+    [nil, :raise, "Should throw on nil input"],
+
+    # Code blocks
+    ["`" ,   :raise,  'Unclosed single ticks'],
+    ["``" ,  :raise,  'Unclosed double ticks'],
+    ["`a`" ,     [md_code('a')],    'Simple inline code'],
+    ["`` ` ``" ,    [md_code('`')],   ],
+    ["`` \\` ``" ,    [md_code('\\`')],   ],
+    ["``a``" ,   [md_code('a')],    ],
+    ["`` a ``" ,   [md_code('a')],    ],
+
+    # Newlines
+    ["a  \n", ['a',md_el(:linebreak)], 'Two spaces give br.'],
+    ["a \n",  ['a'], 'Newlines 2'],
+    ["  \n",  [md_el(:linebreak)], 'Newlines 3'],
+    ["  \n  \n",  [md_el(:linebreak),md_el(:linebreak)],'Newlines 3'],
+    ["  \na  \n",  [md_el(:linebreak),'a',md_el(:linebreak)],'Newlines 3'],
+
+    # Inline HTML
+    ["a < b", ['a < b'], '< can be on itself'],
+    ["<hr>",  [md_html('<hr />')], 'HR will be sanitized'],
+    ["<hr/>", [md_html('<hr />')], 'Closed tag is ok'],
+    ["<hr  />", [md_html('<hr />')], 'Closed tag is ok 2'],
+    ["<hr/>a", [md_html('<hr />'),'a'], 'Closed tag is ok 2'],
+    ["<em></em>a", [md_html('<em></em>'),'a'], 'Inline HTML 1'],
+    ["<em>e</em>a", [md_html('<em>e</em>'),'a'], 'Inline HTML 2'],
+    ["a<em>e</em>b", ['a',md_html('<em>e</em>'),'b'], 'Inline HTML 3'],
+    ["<em>e</em>a<em>f</em>",
+      [md_html('<em>e</em>'),'a',md_html('<em>f</em>')],
+      'Inline HTML 4'],
+    ["<em>e</em><em>f</em>a",
+      [md_html('<em>e</em>'),md_html('<em>f</em>'),'a'],
+      'Inline HTML 5'],
+
+    ["<img src='a' />", [md_html("<img src='a' />")], 'Attributes'],
+    ["<img src='a'/>"],
+
+    # emphasis
+    ["**", :raise, 'Unclosed double **'],
+    ["\\*", ['*'], 'Escaping of *'],
+    ["a *b* ", ['a ', md_em('b')], 'Emphasis 1'],
+    ["a *b*", ['a ', md_em('b')], 'Emphasis 2'],
+    ["a * b", ['a * b'], 'Emphasis 3'],
+    ["a * b*", :raise, 'Unclosed emphasis'],
+    # same with underscore
+    ["__", :raise, 'Unclosed double __'],
+    ["\\_", ['_'], 'Escaping of _'],
+    ["a _b_ ", ['a ', md_em('b')], 'Emphasis 4'],
+    ["a _b_", ['a ', md_em('b')], 'Emphasis 5'],
+    ["a _ b", ['a _ b'], 'Emphasis 6'],
+    ["a _ b_", :raise, 'Unclosed emphasis'],
+    ["_b_", [md_em('b')], 'Emphasis 7'],
+    ["_b_ _c_", [md_em('b'),' ',md_em('c')], 'Emphasis 8'],
+    ["_b__c_", [md_em('b'),md_em('c')], 'Emphasis 9'],
+    # underscores in word
+    ["mod_ruby", ['mod_ruby'], 'Word with underscore'],
+    # strong
+    ["**a*", :raise, 'Unclosed double ** 2'],
+    ["\\**a*", ['*', md_em('a')], 'Escaping of *'],
+    ["a **b** ", ['a ', md_strong('b')], 'Emphasis 1'],
+    ["a **b**", ['a ', md_strong('b')], 'Emphasis 2'],
+    ["a ** b", ['a ** b'], 'Emphasis 3'],
+    ["a ** b**", :raise, 'Unclosed emphasis'],
+    ["**b****c**", [md_strong('b'),md_strong('c')], 'Emphasis 9'],
+    # strong (with underscore)
+    ["__a_", :raise, 'Unclosed double __ 2'],
+
+    # ["\\__a_", ['_', md_em('a')], 'Escaping of _'],
+    ["a __b__ ", ['a ', md_strong('b')], 'Emphasis 1'],
+    ["a __b__", ['a ', md_strong('b')], 'Emphasis 2'],
+    ["a __ b", ['a __ b'], 'Emphasis 3'],
+    ["a __ b__", :raise, 'Unclosed emphasis'],
+    ["__b____c__", [md_strong('b'),md_strong('c')], 'Emphasis 9'],
+    # extra strong
+    ["***a**", :raise, 'Unclosed triple *** '],
+    ["\\***a**", ['*', md_strong('a')], 'Escaping of *'],
+    ["a ***b*** ", ['a ', md_emstrong('b')], 'Strong elements'],
+    ["a ***b***", ['a ', md_emstrong('b')]],
+    ["a *** b", ['a *** b']],
+    ["a ** * b", ['a ** * b']],
+    ["***b******c***", [md_emstrong('b'),md_emstrong('c')]],
+    ["a *** b***", :raise, 'Unclosed emphasis'],
+    # same with underscores
+    ["___a__", :raise, 'Unclosed triple *** '],
+    # ["\\___a__", ['_', md_strong('a')], 'Escaping of _'],
+    ["a ___b___ ", ['a ', md_emstrong('b')], 'Strong elements'],
+    ["a ___b___", ['a ', md_emstrong('b')]],
+    ["a ___ b", ['a ___ b']],
+    ["a __ _ b", ['a __ _ b']],
+    ["___b______c___", [md_emstrong('b'),md_emstrong('c')]],
+    ["a ___ b___", :raise, 'Unclosed emphasis'],
+    # mixing is bad
+    ["*a_", :raise, 'Mixing is bad'],
+    ["_a*", :raise],
+    ["**a__", :raise],
+    ["__a**", :raise],
+    ["___a***", :raise],
+    ["***a___", :raise],
+    # links of the form [text][ref]
+    ["\\[a]",  ["[a]"], 'Escaping 1'],
+    ["\\[a\\]", ["[a]"], 'Escaping 2'],
+    # This is valid in the new Markdown version
+    # ["[a]",   ["a"],   'Not a link'],
+    ["[a]",   [ md_link(["a"],'a')], 'Empty link'],
+    ["[a][]", ],
+    ["[a][]b",   [ md_link(["a"],'a'),'b'], 'Empty link'],
+    ["[a\\]][]", [ md_link(["a]"],'a')], 'Escape inside link (throw ?] away)'],
+
+    ["[a",  :raise,   'Link not closed'],
+    ["[a][",  :raise,   'Ref not closed'],
+
+    # links of the form [text](url)
+    ["\\[a](b)",  ["[a](b)"], 'Links'],
+    ["[a](url)c",  [md_im_link(['a'],'url'),'c'], 'url'],
+    ["[a]( url )c" ],
+    ["[a] (	url )c" ],
+    ["[a] (	url)c" ],
+
+    ["[a](ur:/l/ 'Title')",  [md_im_link(['a'],'ur:/l/','Title')],
+      'url and title'],
+    ["[a] (	ur:/l/ \"Title\")" ],
+    ["[a] (	ur:/l/ \"Title\")" ],
+    ["[a]( ur:/l/ Title)", :raise, "Must quote title" ],
+
+    ["[a](url 'Tit\\\"l\\\\e')", [md_im_link(['a'],'url','Tit"l\\e')],
+      'url and title escaped'],
+    ["[a] (	url \"Tit\\\"l\\\\e\")" ],
+    ["[a] (	url	\"Tit\\\"l\\\\e\"  )" ],
+    ['[a] (	url	"Tit\\"l\\\\e"  )' ],
+    ["[a]()", [md_im_link(['a'],'')], 'No URL is OK'],
+
+    ["[a](\"Title\")", :raise, "No url specified" ],
+    ["[a](url \"Title)", :raise, "Unclosed quotes" ],
+    ["[a](url \"Title\\\")", :raise],
+    ["[a](url \"Title\" ", :raise],
+
+    ["[a](url \'Title\")", :raise, "Mixing is bad" ],
+    ["[a](url \"Title\')"],
+
+    ["[a](/url)", [md_im_link(['a'],'/url')], 'Funny chars in url'],
+    ["[a](#url)", [md_im_link(['a'],'#url')]],
+    ["[a](</script?foo=1&bar=2>)", [md_im_link(['a'],'/script?foo=1&bar=2')]],
+
+
+    # Images
+    ["\\![a](url)",  ['!', md_im_link(['a'],'url') ], 'Escaping images'],
+
+    ["![a](url)",  [md_im_image(['a'],'url')], 'Image no title'],
+    ["![a]( url )" ],
+    ["![a] (	url )" ],
+    ["![a] (	url)" ],
+
+    ["![a](url 'ti\"tle')",  [md_im_image(['a'],'url','ti"tle')], 'Image with title'],
+    ['![a]( url "ti\\"tle")' ],
+
+    ["![a](url", :raise, 'Invalid images'],
+    ["![a( url )" ],
+    ["![a] ('url )" ],
+
+    ["![a][imref]",  [md_image(['a'],'imref')], 'Image with ref'],
+    ["![a][ imref]"],
+    ["![a][ imref ]"],
+    ["![a][\timref\t]"],
+
+
+    ['<http://example.com/?foo=1&bar=2>',
+      [md_url('http://example.com/?foo=1&bar=2')], 'Immediate link'],
+    ['a<http://example.com/?foo=1&bar=2>b',
+      ['a',md_url('http://example.com/?foo=1&bar=2'),'b']  ],
+    ['<andrea@censi.org>',
+      [md_email('andrea@censi.org')], 'Email address'],
+    ['<mailto:andrea@censi.org>'],
+    ["Developmen <http://rubyforge.org/projects/maruku/>",
+      ["Developmen ", md_url("http://rubyforge.org/projects/maruku/")]],
+    ["a<!-- -->b", ['a',md_html('<!-- -->'),'b'],
+      'HTML Comment'],
+
+    ["a<!--", :raise, 'Bad HTML Comment'],
+    ["a<!-- ", :raise, 'Bad HTML Comment'],
+
+    ["<?xml <?!--!`3  ?>", [md_xml_instr('xml','<?!--!`3')], 'XML processing instruction'],
+    ["<? <?!--!`3  ?>", [md_xml_instr('','<?!--!`3')] ],
+
+    ["<? ", :raise, 'Bad Server directive'],
+
+    ["a <b", :raise, 'Bad HTML 1'],
+    ["<b",   :raise, 'Bad HTML 2'],
+    ["<b!",  :raise, 'Bad HTML 3'],
+    ['`<div>`, `<table>`, `<pre>`, `<p>`',
+      [md_code('<div>'),', ',md_code('<table>'),', ',
+        md_code('<pre>'),', ',md_code('<p>')],
+      'Multiple HTML tags'],
+
+    ["&andrea", ["&andrea"], 'Parsing of entities'],
+    # no escaping is allowed
+    # ["\\&andrea;", ["&andrea;"]],
+    ["l&andrea;", ["l", md_entity('andrea')] ],
+    ["&&andrea;", ["&", md_entity('andrea')] ],
+    ["&123;;&amp;",[md_entity('123'),';',md_entity('amp')]],
+
+    ["a\nThe [syntax page] [s] provides",
+      ['a The ', md_link(['syntax page'],'s'), ' provides'], 'Regression'],
+
+    ['![a](url "ti"tle")', [md_im_image(['a'],'url','ti"tle')],
+      "Image with quotes"],
+    ['![a](url \'ti"tle\')' ],
+
+    ['[bar](/url/ "Title with "quotes" inside")',
+      [md_im_link(["bar"],'/url/', 'Title with "quotes" inside')],
+      "Link with quotes"],
+  ]
+end
+
+EXPECTATIONS.each_cons(2) {|l, r| r[1] ||= l[1]}
+
+describe "The Maruku span parser" do
+  before(:each) do
+    @doc = Maruku.new
+    @doc.attributes[:on_error] = :raise
+  end
+
+  EXPECTATIONS.each do |md, res, comment|
+    if res == :raise
+      it "should raise an error for \"#{md}\"" do
+        lambda {@doc.parse_span_better(md)}.should raise_error(Maruku::Exception)
+      end
+    else
+      it "should parse \"#{md}\" as #{res.inspect}" do
+        @doc.parse_span_better(md).should == res
+      end
+    end
+  end
+end