tartan 0.1.0

data/test/MarkdownTest_1.0/testdiff.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby
+
+require 'tempfile'
+require './run-markdown'
+
+def translate_file(fileIn, initialText)
+  
+  if fileIn.class == String
+    file = open(fileIn)
+  else
+    file = fileIn
+  end
+  
+  tmpFile = Tempfile.new('wikiparser')
+
+  tmpFile.puts(initialText)
+
+  file.each {|line|
+    line.gsub!(/ /, '.')
+    line.gsub!(/\t/, '\t')
+  
+    tmpFile.write line
+  }
+
+  tmpFile.flush
+  tmpFile
+end
+
+termWidth = `stty -a`.gsub(/[^0-9;]/, '').sub(/^(?:.*?;){2}([0-9]+).*$/m, '\1')
+
+base = ARGV[0]
+
+outFile = WikiparserRunner.run(base)
+
+htmlTmp = translate_file(base + ".html", "Refernce HTML\n\n")
+outTmp = translate_file(outFile, "Generated HTML\n\n")
+
+pager = ENV['PAGER']? ENV['PAGER'] : "less"
+
+system("sdiff -w #{termWidth} #{htmlTmp.path} #{outTmp.path} | #{pager}")
+
+

data/test/harder/test-markdown-harder.rb

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+#$Id: test-markdown.rb 75 2006-02-07 00:09:26Z larry $
+
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'tartan_markdown'
+require 'wiki-test'
+
+cases = WikiTestCases.new(TartanMarkdown, "test-markdown-harder.yml")
+
+

data/test/harder/test-markdown-harder.yml

@@ -0,0 +1,111 @@
+#$Id: test-markdown-harder.yml 161 2006-05-20 11:19:30Z larry $
+---
+# Fails
+title: MixedListsSpaced
+in: |-
+  1. First
+  
+  2. Second:
+  
+  	* Fee
+  	* Fie
+  	* Foe
+  
+  3. Third
+html: |-
+  <ol>
+  <li><p>First</p></li>
+  <li><p>Second:</p><ul>
+
+  <li>Fee</li>
+  <li>Fie</li>
+  <li>Foe</li>
+  </ul></li>
+  <li><p>Third</p></li>
+  </ol>
+---
+# Fails
+title: LinkWithAmpInURL
+in: |-
+  A [link] [1] with an ampersand in the URL.
+  
+  [1]: http://example.com/?foo=1&bar=2
+  [2]: http://att.com/  "AT&T"
+html: |-
+  <p>A <a href="http://example.com/?foo=1&amp;bar=2">link</a> with an ampersand in the URL.</p>
+---
+# Fails
+title: AmpInLinkText
+in: |-
+  A link with an amersand in the link text: [AT&T] [2].
+  
+  [1]: http://example.com/?foo=1&bar=2
+  [2]: http://att.com/  "AT&T"
+html: |-
+  <p>A link with an amersand in the link text: <a href="http://att.com/" title="AT&amp;T">AT&amp;T</a>.</p>
+---
+# Fails
+title: AmpInInlineLink
+in: "An inline [link](</script?foo=1&bar=2>)."
+html: |-
+  <p>An inline <a href="/script?foo=1&amp;bar=2">link</a>.</p>
+---
+# Fails
+title: Tidyness
+in: |-
+  > A list within a blockquote:
+  > 
+  > *     asterisk 1
+  > *     asterisk 2
+  > *     asterisk 3
+html: |-
+  <blockquote>
+  <p>A list within a blockquote:</p>
+  <ul>
+  <li>asterisk 1</li>
+  <li>asterisk 2</li>
+  <li>asterisk 3</li>
+  </ul>
+  </blockquote>
+---
+# Fails
+title: Links
+in: |-
+  Here's a [link] [1] with an ampersand in the URL.
+
+  Here's a link with an amersand in the link text: [AT&T] [2].
+
+  [1]: http://example.com/?foo=1&bar=2
+  [2]: http://att.com/  "AT&T"
+html: |-
+  <p>Here's a <a href="http://example.com/?foo=1&amp;bar=2">link</a> with an amper
+  sand in the URL.</p>
+
+  <p>Here's a link with an amersand in the link text: <a href="http://att.com/" ti
+  tle="AT&amp;T">AT&amp;T</a>.</p>
+---
+# Fails
+title: InlineLinks
+in: |-
+  Here's an inline [link](/script?foo=1&bar=2).
+
+  Here's an inline [link](</script?foo=1&bar=2>).
+html: |-
+  <p>Here's an inline <a href="/script?foo=1&amp;bar=2">link</a>.</p>
+
+  <p>Here's an inline <a href="/script?foo=1&amp;bar=2">link</a>.</p>
+---
+# Fails
+title: BackslashQuotingInCodeBlock
+in: |-
+  These should not, because they occur within a code block:
+
+          Backslash: \\
+
+          Backtick: \`
+html: |-
+  <p>These should not, because they occur within a code block:</p>
+  <pre><code>
+  Backslash: \\
+
+  Backtick: \`

data/test/redcloth/redcloth-markdown-tests.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+#$Id: redcloth-markdown-tests.rb 148 2006-07-22 14:04:20Z larry $
+
+# Adapted from the Redcloth tests
+
+$:.unshift File.join(File.dirname(__FILE__), "../..", "lib")
+
+require 'yaml'
+require 'markdown'
+require 'tartan'
+
+Dir["./redcloth*.yml"].each do |testfile|
+    YAML::load_documents( File.open( testfile ) ) do |doc|
+        if doc['in'] and doc['out']
+            wp = Wikiparser.new( doc['in'] )
+            html = wp.to_html
+            puts "---"
+
+            html.gsub!( /\n+/, "\n" )
+            doc['out'].gsub!( /\n+/, "\n" )
+            if html == doc['out']
+                puts "success: true"
+            else
+                puts "expected: "; p doc['out']
+                puts "out: "; p html
+            end
+        end
+    end
+end

data/test/redcloth/redcloth-markdown-tests.yml

@@ -0,0 +1,218 @@
+in: |
+  This is a regular paragraph.
+
+  <table>
+      <tr>
+          <td>Foo</td>
+      </tr>
+  </table>
+  
+  This is another regular paragraph.
+html: |-
+  <p>This is a regular paragraph.</p>
+
+
+  <table>
+      <tr>
+          <td>Foo</td>
+      </tr>
+  </table>
+  	<p>This is another regular paragraph.</p>
+---
+in: '"Larry Bird":http://images.google.com/images?num=30&q=larry+bird'
+html: '<p>"Larry Bird":http://images.google.com/images?num=30&#38;q=larry+bird</p>'
+---
+in: '&copy;'
+html: <p>&copy;</p>
+---
+in: AT&T
+html: <p>AT&#38;T</p>
+
+# We don't do this.
+# ---
+# in: 4 < 5
+# out: 4 &lt; 5
+---
+in: |
+  This is an H1
+  =============
+  
+  This is an H2
+  -------------
+html: |-
+  <h1>This is an H1</h1>
+
+  <h2>This is an H2</h2>
+---
+in: |
+  # This is an H1
+  
+  ## This is an H2
+  
+  ###### This is an H6
+html: |-
+  <h1>This is an H1</h1>
+
+  <h2>This is an H2</h2>
+
+  <h6>This is an H6</h6>
+---
+in: |
+  > This is a blockquote with two paragraphs. Lorem ipsum dolor sit amet,
+  > consectetuer adipiscing elit. Aliquam hendrerit mi posuere lectus.
+  > Vestibulum enim wisi, viverra nec, fringilla in, laoreet vitae, risus.
+  > 
+  > Donec sit amet nisl. Aliquam semper ipsum sit amet velit. Suspendisse
+  > id sem consectetuer libero luctus adipiscing.
+html: |-
+  <blockquote>
+  	<p>This is a blockquote with two paragraphs. Lorem ipsum dolor sit amet,
+  	consectetuer adipiscing elit. Aliquam hendrerit mi posuere lectus.
+  	Vestibulum enim wisi, viverra nec, fringilla in, laoreet vitae, risus.</p>
+  
+  	<p>Donec sit amet nisl. Aliquam semper ipsum sit amet velit. Suspendisse
+  	id sem consectetuer libero luctus adipiscing.</p>
+  
+  </blockquote>
+---
+in: |
+  > This is a blockquote with two paragraphs. Lorem ipsum dolor sit amet,
+  consectetuer adipiscing elit. Aliquam hendrerit mi posuere lectus.
+  Vestibulum enim wisi, viverra nec, fringilla in, laoreet vitae, risus.
+  >
+  > Donec sit amet nisl. Aliquam semper ipsum sit amet velit. Suspendisse
+  id sem consectetuer libero luctus adipiscing.
+html: |-
+  <blockquote>
+  	<p>This is a blockquote with two paragraphs. Lorem ipsum dolor sit amet,
+  	consectetuer adipiscing elit. Aliquam hendrerit mi posuere lectus.
+  	Vestibulum enim wisi, viverra nec, fringilla in, laoreet vitae, risus.</p>
+  
+  	<p>Donec sit amet nisl. Aliquam semper ipsum sit amet velit. Suspendisse
+  	id sem consectetuer libero luctus adipiscing.</p>
+  
+  </blockquote>
+---
+in: |
+  > This is the first level of quoting.
+  >
+  > > This is nested blockquote.
+  >
+  > Back to the first level.
+html: |-
+  <blockquote>
+  	<p>This is the first level of quoting.</p>
+  	<blockquote>
+  	<p>This is nested blockquote.</p>
+  
+  	</blockquote>
+  
+  
+  
+  	<p>Back to the first level.</p>
+  
+  </blockquote>
+---
+in: |
+  > ## This is a header.
+  > 
+  > 1.   This is the first list item.
+  > 2.   This is the second list item.
+  > 
+  > Here's some example code:
+  > 
+  >     return shell_exec("echo $input | $markdown_script");
+html: |-
+  <blockquote>
+  	<h2>This is a header.</h2>
+  
+  
+  
+  	<p>1.   This is the first list item.
+  	2.   This is the second list item.</p>
+  
+  	<p>Here's some example code:</p>
+  	<pre><code>return shell_exec("echo $input | $markdown_script");</code></pre>
+  
+  </blockquote>
+---
+in: |
+  * * *
+
+  ***
+  
+  *****
+  
+  - - -
+  
+  ---------------------------------------
+  
+  _ _ _
+html: |-
+  <hr />
+
+  <hr />
+
+  <hr />
+
+  <hr />
+
+  <hr />
+
+  <hr />
+---
+in: |
+  This is [an example](http://example.com/ "Title") inline link.
+
+  [This link](http://example.net/) has no title attribute.
+html: |-
+  <p>This is <a href="http://example.com/" title="Title">an example</a> inline link.</p>
+
+  	<p><a href="http://example.net/">This link</a> has no title attribute.</p>
+---
+in: See my [About](/about/) page for details.
+html: <p>See my <a href="/about/">About</a> page for details.</p>
+---
+in: |
+  This is [an example][id] reference-style link.
+
+  This is [an example] [id] reference-style link.
+
+  [id]: http://example.com/  "Optional Title Here"
+html: |-
+  <p>This is <a href="http://example.com/" title="Optional Title Here">an example</a> reference-style link.</p>
+  
+  	<p>This is <a href="http://example.com/" title="Optional Title Here">an example</a> reference-style link.</p>
+---
+in: |
+  [Google][]
+  [Google]: http://google.com/
+html: <p><a href="http://google.com/">Google</a></p>
+---
+in: |
+  Visit [Daring Fireball][] for more information.
+  [Daring Fireball]: http://daringfireball.net/
+html: <p>Visit <a href="http://daringfireball.net/">Daring Fireball</a> for more information.</p>
+---
+in: |
+  I get 10 times more traffic from [Google] [1] than from
+  [Yahoo] [2] or [MSN] [3].
+  
+    [1]: http://google.com/        "Google"
+    [2]: http://search.yahoo.com/  "Yahoo Search"
+    [3]: http://search.msn.com/    "MSN Search"
+
+html: |-
+  <p>I get 10 times more traffic from <a href="http://google.com/" title="Google">Google</a> than from
+  <a href="http://search.yahoo.com/" title="Yahoo Search">Yahoo</a> or <a href="http://search.msn.com/" title="MSN Search">MSN</a>.</p>
+---
+in: |
+  I get 10 times more traffic from [Google][] than from
+  [Yahoo][] or [MSN][].
+  
+    [google]: http://google.com/        "Google"
+    [yahoo]:  http://search.yahoo.com/  "Yahoo Search"
+    [msn]:    http://search.msn.com/    "MSN Search"
+html: |-
+  <p>I get 10 times more traffic from <a href="http://google.com/" title="Google">Google</a> than from
+  <a href="http://search.yahoo.com/" title="Yahoo Search">Yahoo</a> or <a href="http://search.msn.com/" title="MSN Search">MSN</a>.</p>

data/test/test-combo.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+#$Id: test-combo.rb 159 2006-07-24 08:13:02Z larry $
+
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'tartan_markdown'
+require 'tartan_wikilink_def'
+require 'tartan_table_def'
+require 'wikilink-test-helper'
+require 'wiki-test'
+
+class TartanTestAll < Tartan
+  include TartanMarkdownDef
+  include TartanWikilinkDef
+  include TartanTableDef
+  include WikilinkTestHelper
+end
+
+cases = WikiTestCases.new(TartanTestAll, 
+                          [ "test-wikilink.yml",
+                            "test-markdown.yml",
+                            "test-tables.yml"])
+

data/test/test-hash.rb

@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+# $Id: test-hash.rb 159 2006-07-24 08:13:02Z larry $
+
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'test/unit'
+require 'core_ext/hash'
+  
+class TestHash < Test::Unit::TestCase
+  def test_simple_merge
+    h1 = {:x => 'a', :y => 'b'}
+    h2 = {:x => 'p', :z => 'd'}
+    
+    hm1 = h1.merge(h2)
+    hm2 = h1.deep_merge(h2)
+    
+    assert_equal hm1, hm2
+  end
+  
+  def test_two_level
+    h1 = {:x => {:a => 1, :b => 2}, :y => 3, :z => 4}
+    h2 = {:x => {:a => 10, :c => 20}, :y =>30, :p => 40 }
+    
+    hm = h1.deep_merge(h2)
+    assert_equal( {:x => {:a => 10, :b => 2, :c => 20}, 
+                   :y => 30, :z => 4, :p => 40 },
+                  hm )
+    
+    assert_not_equal(hm, h1.merge(h2))
+  end
+end