jeremy-RedCloth 4.1.1

data/test/test_custom_tags.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/env ruby
+
+require File.join(File.dirname(__FILE__), 'helper')
+
+class TestCustomTags < Test::Unit::TestCase
+
+  module FigureTag
+    def fig( opts )
+      label, img = opts[:text].split('|').map! {|str| str.strip}
+
+      html  = %Q{<div class="img" id="figure-#{label.tr('.', '-')}">\n}
+      html << %Q{  <a class="fig" href="/images/#{img}">\n}
+      html << %Q{    <img src="/images/thumbs/#{img}" alt="Figure #{label}" />\n}
+      html << %Q{  </a>\n}
+      html << %Q{  <p>Figure #{label}</p>\n}
+      html << %Q{<div>\n}
+    end
+  end
+
+  def test_fig_tag
+    input  = %Q{The first line of text.\n\n}
+    input << %Q{fig. 1.1 | img.jpg\n\n}
+    input << %Q{The last line of text.\n}
+    r = RedCloth.new input
+    r.extend FigureTag
+    str = r.to_html
+
+    html  = %Q{<p>The first line of text.</p>\n}
+    html << %Q{<div class="img" id="figure-1-1">\n}
+    html << %Q{  <a class="fig" href="/images/img.jpg">\n}
+    html << %Q{    <img src="/images/thumbs/img.jpg" alt="Figure 1.1" />\n}
+    html << %Q{  </a>\n}
+    html << %Q{  <p>Figure 1.1</p>\n}
+    html << %Q{<div>\n}
+    html << %Q{<p>The last line of text.</p>}
+
+    assert_equal(html, str)
+  end
+
+  def test_fallback
+    r = RedCloth.new %Q/fig()>[no]{color:red}. 1.1 | img.jpg/
+    str = r.to_html
+
+    assert_equal "<p>fig()>[no]{color:red}. 1.1 | img.jpg</p>", str
+  end
+  
+  # We don't want to call just any String method!
+  def test_does_not_call_standard_methods
+    r = RedCloth.new "next. "
+    r.extend FigureTag
+    str = r.to_html
+
+    html  = "<p>next. </p>"
+
+    assert_equal(html, str)
+  end
+  
+end

data/test/test_erb.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+
+require File.join(File.dirname(__FILE__), 'helper')
+
+class TestErb < Test::Unit::TestCase
+
+  def test_redcloth_erb
+    template = %{<%=t "This new ERB tag makes is so _easy_ to use *RedCloth*" %>}
+    expected = %{<p>This new <span class="caps">ERB</span> tag makes is so <em>easy</em> to use <strong>RedCloth</strong></p>}
+    assert_equal expected, ERB.new(template).result
+  end
+
+end

data/test/test_extensions.rb

@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+
+require File.join(File.dirname(__FILE__), 'helper')
+
+class TestExtensions < Test::Unit::TestCase
+  
+  require 'redcloth'
+  
+  # http://www.ralree.info/2006/9/13/extending-redcloth
+  module RedClothSmileyExtension
+    def refs_smiley(text)
+      text.gsub!(/(\s)~(:P|:D|:O|:o|:S|:\||;\)|:'\(|:\)|:\()/) do |m|
+        bef,ma = $~[1..2]
+        filename = "/images/emoticons/"+(ma.unpack("c*").join('_'))+".png"
+        "#{bef}<img src='#{filename}' title='#{ma}' class='smiley' />"
+      end
+    end
+  end
+  
+  RedCloth.send(:include, RedClothSmileyExtension)
+
+  def test_smiley
+    input  = %Q{You're so silly! ~:P}
+    
+    str = RedCloth.new(input).to_html(:textile, :refs_smiley)
+
+    html  = %Q{<p>You&#8217;re so silly! <img src='/images/emoticons/58_80.png' title=':P' class='smiley' /></p>}
+
+    assert_equal(html, str)
+  end
+end

data/test/test_formatters.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+
+require File.join(File.dirname(__FILE__), 'helper')
+
+class TestFormatters < Test::Unit::TestCase
+  
+  generate_formatter_tests('html') do |doc|
+    RedCloth.new(doc['in']).to_html
+  end
+  
+  def test_html_orphan_parenthesis_in_link_can_be_followed_by_punctuation_and_words
+    assert_nothing_raised { RedCloth.new(%Q{Test "(read this":http://test.host), ok}).to_html }
+  end
+  
+  generate_formatter_tests('latex') do |doc|
+    RedCloth.new(doc['in']).to_latex
+  end
+
+  def test_latex_orphan_parenthesis_in_link_can_be_followed_by_punctuation_and_words
+    assert_nothing_raised { RedCloth.new(%Q{Test "(read this":http://test.host), ok}).to_latex }
+  end
+  
+
+end

data/test/test_parser.rb

@@ -0,0 +1,73 @@
+#!/usr/bin/env ruby
+
+require File.join(File.dirname(__FILE__), 'helper')
+
+class TestParser < Test::Unit::TestCase
+
+  def test_parser_accepts_options
+    assert_nothing_raised(ArgumentError) do
+      RedCloth.new("test", [:hard_breaks])
+    end
+  end
+  
+  def test_redcloth_has_version
+    assert RedCloth.const_defined?("VERSION")
+    assert RedCloth::VERSION.const_defined?("STRING")
+  end
+  
+  def test_redcloth_version_to_s
+    assert_equal RedCloth::VERSION::STRING, RedCloth::VERSION.to_s
+    assert RedCloth::VERSION == RedCloth::VERSION::STRING
+  end
+  
+  def test_badly_formatted_table_does_not_segfault
+    assert_match(/td/, RedCloth.new(%Q{| one | two |\nthree | four |}).to_html)
+  end
+  
+  def test_table_without_block_end_does_not_segfault
+    assert_match(/h3/, RedCloth.new("| a | b |\n| c | d |\nh3. foo").to_html)
+  end
+  
+  def test_table_with_empty_cells_does_not_segfault
+    assert_match(/td/, RedCloth.new(%Q{|one || |\nthree | four |}).to_html)
+  end
+  
+  def test_unfinished_html_block_does_not_segfault_with_filter_html
+    assert_nothing_raised { RedCloth.new(%Q{<hr> Some text}, [:filter_html]).to_html }
+  end
+  
+  def test_redcloth_version_in_output
+    assert_equal "<p>#{RedCloth::VERSION::STRING}</p>", RedCloth.new("RedCloth::VERSION").to_html
+  end
+  
+  def test_redcloth_version_only_on_line_by_itself
+    input = "RedCloth::VERSION won't output the RedCloth::VERSION unless it's on a line all by itself.\n\nRedCloth::VERSION"
+    html = "<p>RedCloth::<span class=\"caps\">VERSION</span> won&#8217;t output the RedCloth::<span class=\"caps\">VERSION</span> unless it&#8217;s on a line all by itself.</p>\n<p>#{RedCloth::VERSION::STRING}</p>"
+    assert_equal html, RedCloth.new(input).to_html
+  end
+
+  def test_redcloth_version_with_label
+    input = "RedCloth::VERSION: RedCloth::VERSION"
+    html = "<p>RedCloth::VERSION: #{RedCloth::VERSION::STRING}</p>"
+    assert_equal html, RedCloth.new(input).to_html
+  end
+  
+  def test_redcloth_version_with_label_2
+    input = "RedCloth version RedCloth::VERSION"
+    html = "<p>RedCloth version #{RedCloth::VERSION::STRING}</p>"
+    assert_equal html, RedCloth.new(input).to_html
+  end
+  
+  def test_inline_redcloth_version
+    input = "The current RedCloth version is [RedCloth::VERSION]"
+    html = "<p>The current RedCloth version is #{RedCloth::VERSION::STRING}</p>"
+    assert_equal html, RedCloth.new(input).to_html
+  end
+  
+  def test_parser_strips_carriage_returns
+    input = "This is a paragraph\r\n\r\nThis is a\r\nline break.\r\n\r\n<div>\r\ntest\r\n\r\n</div>"
+    html = "<p>This is a paragraph</p>\n<p>This is a<br />\nline break.</p>\n<div>\n<p>test</p>\n</div>"
+    assert_equal html, RedCloth.new(input).to_html
+  end
+
+end

data/test/test_restrictions.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+
+require File.join(File.dirname(__FILE__), 'helper')
+
+class TestRestrictions < Test::Unit::TestCase
+  
+  # security restrictions
+  generate_formatter_tests('filtered_html') do |doc|
+    RedCloth.new(doc['in'], [:filter_html]).to_html
+  end
+  generate_formatter_tests('sanitized_html') do |doc|
+    RedCloth.new(doc['in'], [:sanitize_html]).to_html
+  end
+  
+  # pba filters (style, class, id)
+  generate_formatter_tests('style_filtered_html') do |doc|
+    RedCloth.new(doc['in'], [:filter_styles]).to_html
+  end
+  generate_formatter_tests('class_filtered_html') do |doc|
+    RedCloth.new(doc['in'], [:filter_classes]).to_html
+  end
+  generate_formatter_tests('id_filtered_html') do |doc|
+    RedCloth.new(doc['in'], [:filter_ids]).to_html
+  end
+  
+  # hard breaks - has been deprecated and will be removed in a future version
+  generate_formatter_tests('html_no_breaks') do |doc|
+    red = RedCloth.new(doc['in'])
+    red.hard_breaks = false
+    red.to_html
+  end
+  
+  generate_formatter_tests('lite_mode_html') do |doc|
+    RedCloth.new(doc['in'], [:lite_mode]).to_html
+  end
+  
+  generate_formatter_tests('no_span_caps_html') do |doc|
+    RedCloth.new(doc['in'], [:no_span_caps]).to_html
+  end
+  
+end

data/test/textism.yml

@@ -0,0 +1,480 @@
+---
+name: header one
+in: h1. Header 1
+html: <h1>Header 1</h1>
+latex: "\section*{Header 1}\n\n"
+---
+name: header two
+in: h2. Header 2
+html: <h2>Header 2</h2>
+latex: "\subsection*{Header 2}\n\n"
+---
+name: header three
+in: h3. Header 3
+html: <h3>Header 3</h3>
+latex: "\subsubsection*{Header 3}\n\n"
+---
+name: blockquote
+in: |-
+  Any old text.
+
+  bq. A block quotation.
+
+  Any old text.
+
+html: |-
+  <p>Any old text.</p>
+  <blockquote>
+  <p>A block quotation.</p>
+  </blockquote>
+  <p>Any old text.</p>
+
+latex: |+
+  Any old text.
+  
+  \begin{quotation}
+  A block quotation.
+  
+  \end{quotation}
+
+  Any old text.
+
+---
+in: |-
+  # A first item
+  # A second item
+  # A third item
+  # A fourth item
+html: |-
+  <ol>
+  	<li>A first item</li>
+  	<li>A second item</li>
+  	<li>A third item</li>
+  	<li>A fourth item</li>
+  </ol>
+latex: |+
+  \begin{enumerate}
+  	\item A first item
+  	\item A second item
+  	\item A third item
+  	\item A fourth item
+  \end{enumerate}
+  
+---
+in: |-
+  * A first item
+  * A second item
+  * A third item
+  * A fourth item
+
+html: |-
+  <ul>
+  	<li>A first item</li>
+  	<li>A second item</li>
+  	<li>A third item</li>
+  	<li>A fourth item</li>
+  </ul>
+latex: |+
+  \begin{itemize}
+  	\item A first item
+  	\item A second item
+  	\item A third item
+  	\item A fourth item
+  \end{itemize}
+  
+---
+in: _a phrase_
+html: <p><em>a phrase</em></p>
+latex: "\\emph{a phrase}\n\n"
+---
+in: __a phrase__
+html: <p><i>a phrase</i></p>
+latex: "\\textit{a phrase}\n\n"
+---
+in: '*a phrase*'
+html: <p><strong>a phrase</strong></p>
+latex: "\\textbf{a phrase}\n\n"
+---
+in: '**a phrase**'
+html: <p><b>a phrase</b></p>
+latex: "\\textbf{a phrase}\n\n"
+---
+in: Nabokov's ??Pnin??
+html: <p>Nabokov&#8217;s <cite>Pnin</cite></p>
+latex: "Nabokov's \\begin{quote}Pnin\\end{quote}\n\n"
+---
+name: del part of word
+in: 'A very [-extra-]ordinary day.'
+html: "<p>A very <del>extra</del>ordinary day.</p>"
+latex: "A very \\sout{extra}ordinary day.\n\n"
+---
+name: del part of word that contains a hyphen
+in: 'An [-extra-extra-]ordinary day.'
+html: <p>An <del>extra-extra</del>ordinary day.</p>
+latex: "An \\sout{extra-extra}ordinary day.\n\n"
+---
+name: del a phrase
+in: 'Delete -a phrase- this way.'
+html: <p>Delete <del>a phrase</del> this way.</p>
+latex: "Delete \\sout{a phrase} this way.\n\n"
+---
+name: del a phrase that contains hyphens
+in: 'Delete -a no-nonsense phrase- this way.'
+html: <p>Delete <del>a no-nonsense phrase</del> this way.</p>
+latex: "Delete \\sout{a no-nonsense phrase} this way.\n\n"
+---
+in: +a phrase+
+html: <p><ins>a phrase</ins></p>
+latex: "\\underline{a phrase}\n\n"
+---
+in: ^a phrase^
+html: <p><sup>a phrase</sup></p>
+latex: "\\ensuremath{^\\textrm{a phrase}}\n\n"
+---
+in: ~a phrase~
+html: <p><sub>a phrase</sub></p>
+---
+in: %(myclass)SPAN%
+html: <p><span class="myclass"><span class="caps">SPAN</span></span></p>
+no_span_caps_html: <p><span class="myclass">SPAN</span></p>
+---
+in: %{color:red}red%
+html: <p><span style="color:red;">red</span></p>
+---
+in: %[fr]rouge%
+html: <p><span lang="fr">rouge</span></p>
+---
+in: _(big)red_
+html: <p><em class="big">red</em></p>
+---
+in: p(bob). A paragraph
+html: <p class="bob">A paragraph</p>
+---
+in: p{color:#ddd}. A paragraph
+html: <p style="color:#ddd;">A paragraph</p>
+---
+in: p[fr]. A paragraph
+html: <p lang="fr">A paragraph</p>
+---
+in: h2()>. right-aligned header2, indented 1em both side
+html: <h2 style="padding-left:1em;padding-right:1em;text-align:right;">right-aligned header2, indented 1em both side</h2>
+---
+in: h3=. centered header
+html: <h3 style="text-align:center;">centered header</h3>
+---
+in: '!>/image.gif! right-aligned image'
+html: <p style="float:right;"><img src="/image.gif" alt="" /> right-aligned image</p>
+---
+in: p[no]{color:red}. A Norse of a different colour.
+html: <p style="color:red;" lang="no">A Norse of a different colour.</p>
+---
+in: |-
+  |This|is|a|simple|table|
+  |This|is|a|simple|row|
+html: |-
+  <table>
+  	<tr>
+  		<td>This</td>
+  		<td>is</td>
+  		<td>a</td>
+  		<td>simple</td>
+  		<td>table</td>
+  	</tr>
+  	<tr>
+  		<td>This</td>
+  		<td>is</td>
+  		<td>a</td>
+  		<td>simple</td>
+  		<td>row</td>
+  	</tr>
+  </table>
+---
+in: |-
+  table{border:1px solid black}.
+  |This|is|a|row|
+  |This|is|a|row|
+html: |-
+  <table style="border:1px solid black;">
+  	<tr>
+  		<td>This</td>
+  		<td>is</td>
+  		<td>a</td>
+  		<td>row</td>
+  	</tr>
+  	<tr>
+  		<td>This</td>
+  		<td>is</td>
+  		<td>a</td>
+  		<td>row</td>
+  	</tr>
+  </table>
+---
+in: '{background:#ddd}. |This|is|a|row|'
+html: |-
+  <table>
+  	<tr style="background:#ddd;">
+  		<td>This</td>
+  		<td>is</td>
+  		<td>a</td>
+  		<td>row</td>
+  	</tr>
+  </table>
+---
+in: |-
+  |{background:#ddd}. Cell with gray background|
+  |\2. Cell spanning 2 columns|
+  |/3. Cell spanning 3 rows|
+  |>. Right-aligned cell|
+html: |-
+  <table>
+  	<tr>
+  		<td style="background:#ddd;">Cell with gray background</td>
+  	</tr>
+  	<tr>
+  		<td colspan="2">Cell spanning 2 columns</td>
+  	</tr>
+  	<tr>
+  		<td rowspan="3">Cell spanning 3 rows</td>
+  	</tr>
+  	<tr>
+  		<td style="text-align:right;">Right-aligned cell</td>
+  	</tr>
+  </table>
+---
+name: basics
+in: |-
+  h2{color:green}. This is a title
+
+  h3. This is a subhead
+  
+  p{color:red}. This is some text of dubious character. Isn't the use of "quotes" just lazy writing -- and theft of 'intellectual property' besides? I think the time has come to see a block quote.
+  
+  bq[fr]. This is a block quote. I'll admit it's not the most exciting block quote ever devised.
+  
+  Simple list:
+  
+  #{color:blue} one
+  # two
+  # three
+  
+  Multi-level list:
+  
+  # one
+  ## aye
+  ## bee
+  ## see
+  # two
+  ## x
+  ## y
+  # three
+  
+html: |-
+  <h2 style="color:green;">This is a title</h2>
+  <h3>This is a subhead</h3>
+  <p style="color:red;">This is some text of dubious character. Isn&#8217;t the use of &#8220;quotes&#8221; just lazy writing &#8212; and theft of &#8216;intellectual property&#8217; besides? I think the time has come to see a block quote.</p>
+  <blockquote lang="fr">
+  <p lang="fr">This is a block quote. I&#8217;ll admit it&#8217;s not the most exciting block quote ever devised.</p>
+  </blockquote>
+  <p>Simple list:</p>
+  <ol style="color:blue;">
+  	<li>one</li>
+  	<li>two</li>
+  	<li>three</li>
+  </ol>
+  <p>Multi-level list:</p>
+  <ol>
+  	<li>one
+  	<ol>
+  		<li>aye</li>
+  		<li>bee</li>
+  		<li>see</li>
+  	</ol></li>
+  	<li>two
+  	<ol>
+  		<li>x</li>
+  		<li>y</li>
+  	</ol></li>
+  	<li>three</li>
+  </ol>
+---
+name: tougher stuff
+in: |-
+
+  Multi-level list:
+
+  # one
+  ## aye
+  ## bee
+  ## see
+  # two
+  ## x
+  ## y
+  # three
+
+  Mixed list:
+
+  * Point one
+  * Point two
+  ## Step 1
+  ## Step 2
+  ## Step 3
+  * Point three
+  ** Sub point 1
+  ** Sub point 2
+
+
+  Well, that went well. How about we insert an <a href="/" title="watch out">old-fashioned hypertext link</a>? Will the quote marks in the tags get messed up? No!
+
+  "This is a link (optional title)":http://www.textism.com
+
+html: |-
+  <p>Multi-level list:</p>
+  <ol>
+  	<li>one
+  	<ol>
+  		<li>aye</li>
+  		<li>bee</li>
+  		<li>see</li>
+  	</ol></li>
+  	<li>two
+  	<ol>
+  		<li>x</li>
+  		<li>y</li>
+  	</ol></li>
+  	<li>three</li>
+  </ol>
+  <p>Mixed list:</p>
+  <ul>
+  	<li>Point one</li>
+  	<li>Point two
+  	<ol>
+  		<li>Step 1</li>
+  		<li>Step 2</li>
+  		<li>Step 3</li>
+  	</ol></li>
+  	<li>Point three
+  	<ul>
+  		<li>Sub point 1</li>
+  		<li>Sub point 2</li>
+  	</ul></li>
+  </ul>
+  <p>Well, that went well. How about we insert an <a href="/" title="watch out">old-fashioned hypertext link</a>? Will the quote marks in the tags get messed up? No!</p>
+  <p><a href="http://www.textism.com" title="optional title">This is a link</a></p>
+---
+name: table
+in: |-
+  table{border:1px solid black}.
+  |_. this|_. is|_. a|_. header|
+  <{background:gray}. |\2. this is|{background:red;width:200px}. a|^<>{height:200px}. row|
+  |this|<>{padding:10px}. is|^. another|(bob#bob). row|
+html: |-
+  <table style="border:1px solid black;">
+  	<tr>
+  		<th>this</th>
+  		<th>is</th>
+  		<th>a</th>
+  		<th>header</th>
+  	</tr>
+  	<tr style="text-align:left;background:gray;">
+  		<td colspan="2">this is</td>
+  		<td style="background:red;width:200px;">a</td>
+  		<td style="vertical-align:top;text-align:justify;height:200px;">row</td>
+  	</tr>
+  	<tr>
+  		<td>this</td>
+  		<td style="text-align:justify;padding:10px;">is</td>
+  		<td style="vertical-align:top;">another</td>
+  		<td class="bob" id="bob">row</td>
+  	</tr>
+  </table>
+---
+in: |-
+  An image:
+  
+  !/common/textist.gif(optional alt text)!
+  
+  # Librarians rule
+  # Yes they do
+  # But you knew that
+  
+  Some more text of dubious character. Here is a noisome string of CAPITAL letters. Here is something we want to _emphasize_.
+  That was a linebreak. And something to indicate *strength*. Of course I could use <em>my own HTML tags</em> if I <strong>felt</strong> like it.
+html: |-
+  <p>An image:</p>
+  <p><img src="/common/textist.gif" title="optional alt text" alt="optional alt text" /></p>
+  <ol>
+  	<li>Librarians rule</li>
+  	<li>Yes they do</li>
+  	<li>But you knew that</li>
+  </ol>
+  <p>Some more text of dubious character. Here is a noisome string of <span class="caps">CAPITAL</span> letters. Here is something we want to <em>emphasize</em>.<br />
+  That was a linebreak. And something to indicate <strong>strength</strong>. Of course I could use <em>my own <span class="caps">HTML</span> tags</em> if I <strong>felt</strong> like it.</p>
+---
+name: code
+in: |-
+  h3. Coding
+  
+  This <code>is some code, "isn't it"</code>. Watch those quote marks! Now for some preformatted text:
+  
+  <pre>
+  <code>
+      $text = str_replace("<p>%::%</p>","",$text);
+      $text = str_replace("%::%</p>","",$text);
+      $text = str_replace("%::%","",$text);
+  
+  </code>
+  </pre>
+  
+  This isn't code.
+  
+  
+html: |-
+  <h3>Coding</h3>
+  <p>This <code>is some code, "isn't it"</code>. Watch those quote marks! Now for some preformatted text:</p>
+  <pre>
+  <code>
+      $text = str_replace("&lt;p&gt;%::%&lt;/p&gt;","",$text);
+      $text = str_replace("%::%&lt;/p&gt;","",$text);
+      $text = str_replace("%::%","",$text);
+  
+  </code>
+  </pre>
+  <p>This isn&#8217;t code.</p>
+---
+name: hard break
+in: |-
+  trivial
+  break
+  
+  next
+html: |-
+  <p>trivial<br />
+  break</p>
+  <p>next</p>
+---
+name: normal paragraphs
+in: |-
+  trivial
+
+  paragraphs
+html: |-
+  <p>trivial</p>
+  <p>paragraphs</p>
+---
+name: hard break in a list
+in: |-
+  * first line
+  * second
+  line
+  * third line
+html: |-
+  <ul>
+  	<li>first line</li>
+  	<li>second<br />
+  line</li>
+  	<li>third line</li>
+  </ul>
+---
+name: copyright symbol at line start
+in: "(C) copyright conversion (C) test."
+html: "<p>&#169; copyright conversion &#169; test.</p>"