maruku 0.6.0 → 0.7.3

data/{tests/unittest → spec/block_docs}/wrapping.md

@@ -18,12 +18,12 @@ md_el(:document,[
 		"Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet."
 	]),
 	md_el(:ul,[
-		md_el(:li_span,[
+		md_el(:li,[
 			"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,[
+		md_el(:li,[
 			"Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet. Lorem ipsum dolor amet"
 		],{:want_my_paragraph=>false},[])
 	],{},[])
@@ -54,26 +54,14 @@ Lorem ipsum dolor amet. Lorem ipsum
 dolor amet. Lorem ipsum dolor amet.
 Lorem ipsum dolor amet.
 
--orem ipsum dolor amet. Lorem ipsum
+- 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
--orem ipsum dolor amet. Lorem ipsum
+- Lorem 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
-*** EOF ***
-
-
-
-	OK!
-
-
-
-*** Output of Markdown.pl ***
-(not used anymore)
-*** Output of Markdown.pl (parsed) ***
-(not used anymore)

data/spec/block_docs/xml.md

@@ -0,0 +1,33 @@
+JRUBY NOKOGIRI PENDING - Write a comment here
+(JRuby Nokogiri is broken for empty tags: https://github.com/sparklemotion/nokogiri/issues/971)
+*** Parameters: ***
+{:on_error=>:raise}
+*** Markdown input: ***
+
+<svg/>
+
+<svg:svg xmlns:svg="http://www.w3.org/2000/svg"
+width="600px" height="400px">
+  <svg:g id="group">
+	<svg:circle id="circ1" r="1cm" cx="3cm" cy="3cm" style="fill:red;"></svg:circle>
+	<svg:circle id="circ2" r="1cm" cx="7cm" cy="3cm" style="fill:red;" />
+  </svg:g>
+</svg:svg>
+
+*** Output of inspect ***
+md_el(:document,[
+	md_html("<svg/>"),
+	md_html("<svg:svg xmlns:svg=\"http://www.w3.org/2000/svg\"\nwidth=\"600px\" height=\"400px\">\n  <svg:g id=\"group\">\n\t<svg:circle id=\"circ1\" r=\"1cm\" cx=\"3cm\" cy=\"3cm\" style=\"fill:red;\"></svg:circle>\n\t<svg:circle id=\"circ2\" r=\"1cm\" cx=\"7cm\" cy=\"3cm\" style=\"fill:red;\" />\n  </svg:g>\n</svg:svg>")
+],{},[])
+*** Output of to_html ***
+<svg></svg><svg:svg xmlns:svg="http://www.w3.org/2000/svg" width="600px" height="400px">
+  <svg:g id="group">
+	<svg:circle id="circ1" r="1cm" cx="3cm" cy="3cm" style="fill:red;"></svg:circle>
+	<svg:circle id="circ2" r="1cm" cx="7cm" cy="3cm" style="fill:red;"></svg:circle>
+  </svg:g>
+</svg:svg>
+*** Output of to_latex ***
+
+*** Output of to_md ***
+
+*** Output of to_s ***

data/spec/block_docs/xml3.md

@@ -0,0 +1,24 @@
+The markdown="1" attribute does NOT get recursively applied
+*** Parameters: ***
+{}
+*** Markdown input: ***
+<table markdown='1'>
+	Blah
+	<thead>
+		<tr><td>*em*</td></tr>
+	</thead>
+</table>
+
+*** Output of inspect ***
+md_el(:document,[
+	md_html("<table markdown='1'>\n\tBlah\n\t<thead>\n\t\t<tr><td>*em*</td></tr>\n\t</thead>\n</table>")
+],{},[])
+*** Output of to_html ***
+<table>
+	Blah
+	<thead>
+		<tr><td>*em*</td></tr>
+	</thead>
+</table>
+
+

data/spec/block_docs/xml_comments.md

@@ -0,0 +1,32 @@
+XML Comments need to be handled properly.
+Note that output is kind of weird because we modify the comment in order to let REXML parse it due to https://bugs.ruby-lang.org/issues/9277.
+*** Parameters: ***
+{}
+*** Markdown input: ***
+<!--
+&rsquo;
+-->
+
+<!-- declarations for <head> & <body> -->
+
+<!-- -- is invalid -->
+
+<!-- -- is
+invalid -->
+
+*** Output of inspect ***
+md_el(:document,[md_html("<!--\n&rsquo;\n-->"),
+	md_html("<!-- declarations for <head> & <body> -->"),
+	md_html("<!-- - - is invalid -->"),
+	md_html("<!-- - - is\ninvalid -->")])
+*** Output of to_html ***
+<!--
+&rsquo;
+-->
+
+<!-- declarations for <head> & <body> -->
+
+<!-- - - is invalid -->
+
+<!-- - - is
+invalid -->

data/{tests/unittest → spec/block_docs}/xml_instruction.md

@@ -3,12 +3,12 @@ Directives should be preserved.
 {}
 *** Markdown input: ***
 
-<? noTarget?> 
-<?php ?> 
-<?xml ?> 
+<? noTarget?>
+<?php ?>
+<?xml ?>
 <?mrk ?>
 
-Targets <? noTarget?> <?php ?> <?xml ?> <?mrk ?>
+Targets <? noTarget?> <?php ?> <?xml ?> <?mrk ?> !
 
 Inside: <?mrk puts "Inside: Hello" ?> last
 
@@ -27,7 +27,8 @@ md_el(:document,[
 		" ",
 		md_el(:xml_instr,[],{:code=>"",:target=>"xml"},[]),
 		" ",
-		md_el(:xml_instr,[],{:code=>"",:target=>"mrk"},[])
+		md_el(:xml_instr,[],{:code=>"",:target=>"mrk"},[]),
+    " !"
 	]),
 	md_par([
 		"Inside: ",
@@ -36,12 +37,12 @@ md_el(:document,[
 	])
 ],{},[])
 *** Output of to_html ***
-<? noTarget?><?php ?><?xml ?><?mrk ?>
-<p>Targets <? noTarget?> <?php ?> <?xml ?> <?mrk ?></p>
+&lt;? noTarget?&gt;<?php ?><?xml ?><?mrk ?>
+<p>Targets &lt;?noTarget?&gt; <?php ?> <?xml ?> <?mrk ?> !</p>
 
 <p>Inside: <?mrk puts "Inside: Hello"?> last</p>
 *** Output of to_latex ***
-Targets    
+Targets     !
 
 Inside:  last
 *** Output of to_md ***
@@ -50,15 +51,3 @@ Targets
 Inside: last
 *** Output of to_s ***
 Targets    Inside:  last
-*** EOF ***
-
-
-
-	OK!
-
-
-
-*** Output of Markdown.pl ***
-(not used anymore)
-*** Output of Markdown.pl (parsed) ***
-(not used anymore)

data/spec/block_spec.rb

@@ -0,0 +1,110 @@
+# encoding: UTF-8
+Encoding.default_external=('UTF-8') if ''.respond_to?(:force_encoding)
+
+require File.dirname(__FILE__) + '/spec_helper'
+require 'rspec'
+require 'maruku'
+require 'nokogiri/diff'
+
+# Allow us to test both HTML parser backends
+MaRuKu::Globals[:html_parser] = ENV['HTML_PARSER'] if ENV['HTML_PARSER']
+
+puts "Using HTML parser: #{MaRuKu::Globals[:html_parser]}"
+
+# :to_md and :to_s tests are disabled for now
+METHODS = [:to_html, :to_latex]
+
+def which(cmd)
+  exts = ENV['PATHEXT'] ? ENV['PATHEXT'].split(';') : ['']
+  ENV['PATH'].split(File::PATH_SEPARATOR).each do |path|
+    exts.each { |ext|
+      exe = File.join(path, "#{cmd}#{ext}")
+      return exe if File.executable? exe
+    }
+  end
+  return nil
+end
+
+if which('blahtex')
+  HAS_BLAHTEX = true
+else
+  HAS_BLAHTEX = false
+  puts "Install 'blahtex' to run blahtex math tests"
+end
+
+describe "A Maruku doc" 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|
+    next if md =~ /blahtex/ && !HAS_BLAHTEX
+
+    md_pretty = md.sub(File.dirname(__FILE__) + '/', '')
+
+    describe "#{md_pretty} (using #{MaRuKu::Globals[:html_parser]})" 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.strip
+      params = input.shift || ''
+      markdown = input.shift || ''
+      ast = input.shift || ''
+      expected = METHODS.zip(input).inject({}) {|h, (k, v)| h[k] = v ? v.strip : '' ; h}
+
+      pending "#{comment} - #{md_pretty}" and next if comment.start_with?("PENDING")
+      pending "#{comment} - #{md_pretty}" and next if comment.start_with?("REXML PENDING") && MaRuKu::Globals[:html_parser] == 'rexml'
+      pending "#{comment} - #{md_pretty}" and next if comment.start_with?("JRUBY PENDING") && RUBY_PLATFORM == 'java'
+      pending "#{comment} - #{md_pretty}" and next if comment.start_with?("JRUBY NOKOGIRI PENDING") && RUBY_PLATFORM == 'java' && MaRuKu::Globals[:html_parser] == 'nokogiri'
+
+      before(:each) do
+        $already_warned_itex2mml = false
+        @doc = Maruku.new(markdown, eval(params))
+      end
+
+      it "should read in the output of #inspect as the same document" do
+        Maruku.new.instance_eval("#coding: utf-8\n#{@doc.inspect}", md).should == @doc
+      end
+
+      unless ast.strip.empty?
+        it "should produce the given AST" do
+          @doc.should == Maruku.new.instance_eval(ast, md)
+        end
+      end
+
+      unless expected[:to_html].strip.empty?
+        it "should have the expected to_html output" do
+          res = @doc.to_html.strip
+          pending "install itex2mml to run these tests" if $already_warned_itex2mml
+
+          resdoc = Nokogiri::XML("<dummy>#{res}</dummy>")
+          expdoc = Nokogiri::XML("<dummy>#{expected[:to_html]}</dummy>")
+
+          diff = ""
+          changed = false
+          expdoc.diff(resdoc) do |change, node|
+            diff << "#{change} #{node.inspect}\n"
+            changed = true unless change == ' ' || (node.text? && node.content =~ /\A\s*\Z/m)
+          end
+
+          if changed
+            res.should == expected[:to_html]
+          end
+        end
+      end
+
+      unless expected[:to_latex].strip.empty?
+        it "should have the expected to_latex output" do
+          res = @doc.to_latex.strip
+          res.should == expected[:to_latex]
+        end
+      end
+    end
+  end
+
+
+end

data/spec/cli_spec.rb

@@ -0,0 +1,8 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "The maruku CLI" do
+  it "has a nonzero exit code on invalid options" do
+    `ruby -Ilib bin/maruku --foo 2>&1`
+    $?.exitstatus.should_not == 0
+  end
+end

data/spec/span_spec.rb

@@ -0,0 +1,263 @@
+require File.dirname(__FILE__) + '/spec_helper'
+require 'rspec'
+require 'maruku'
+
+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'],
+
+    # Code blocks
+    ["`" ,   :raise,  'Unclosed single ticks'],
+    ["``" ,  [md_entity("ldquo")],  'Empty code block'],
+    ["`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 4'],
+    ["  \na  \n",  [md_el(:linebreak),'a',md_el(:linebreak)],'Newlines 5'],
+
+    # 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', true], # PENDING
+    # 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'],
+    ["*italic***bold***italic*", [md_em('italic'), md_strong('bold'), md_em('italic')], 'Bold inbetween italics'], # Issue #103
+    # strong (with underscore)
+    ["__a_", :raise, 'Unclosed double __ 2'],
+
+    ["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 ___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],
+    ["*This is in italic, and this is **bold**.*", [md_em(["This is in italic, and this is ", md_strong("bold"), "."])], 'Issue #23'],
+
+    # links of the form [text][ref]
+    ["\\[a]",  ["[a]"], 'Escaping 1'],
+    ["\\[a\\]", ["[a]"], 'Escaping 2'],
+    # This is valid in the new Markdown version
+    ["[a]",   [ md_link(["a"],nil)], 'Empty link'],
+    ["[a][]", [ md_link(["a"],'')] ],
+    ["[a][]b",   [ md_link(["a"],''),'b'], 'Empty link'],
+    ["[a\\]][]", [ md_link(["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')]],
+
+    # Links to URLs that contain closing parentheses. #128
+    ['[a](url())', [md_im_link(['a'],'url()')], 'Link with parentheses 1', true], # PENDING
+    ['[a](url\(\))', [md_im_link(['a'],'url()')], 'Link with parentheses 2', true], # PENDING
+    ['[a](url()foo)', [md_im_link(['a'],'url()foo')], 'Link with parentheses 3', true], # PENDING
+    ['[a](url(foo))', [md_im_link(['a'],'url(foo)')], 'Link with parentheses 4', true], # PENDING
+
+    # 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]",  [md_image(['a'],' imref')], 'Image with ref'],
+    ["![a][ imref ]",  [md_image(['a'],' imref ' )], 'Image with ref'],
+    ["![a][\timref\t]",  [md_image(['a'],"\timref\t")], 'Image with ref'],
+
+
+    ['<http://example.com/?foo=1&bar=2>',
+      [md_url('http://example.com/?foo=1&bar=2')], 'Immediate link'],
+    ['<https://example.com/?foo=1&bar=2>',
+      [md_url('https://example.com/?foo=1&bar=2')], 'Immediate link https'],
+    ['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;", ["\\", md_entity("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, pend|
+    if res == :raise
+      it "should raise an error (#{comment}) for \"#{md}\"" do
+        pending if pend
+        lambda {@doc.parse_span(md)}.should raise_error(Maruku::Exception)
+      end
+    else
+      it "should parse \"#{md}\" as #{res.inspect}" do
+        pending if pend
+        @doc.parse_span(md).should == res
+      end
+    end
+  end
+end