tartan 0.1.0

data/test/test-match-data.rb

@@ -0,0 +1,54 @@
+#!/usr/bin/env ruby
+# $Id: test-match-data.rb 159 2006-07-24 08:13:02Z larry $
+
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'test/unit'
+require 'core_ext/match_data'
+
+class TestMatchData < Test::Unit::TestCase
+  def test_replace
+    numbers = %w(one two three four five six seven eight nine)
+    number_text = numbers.join(" ")
+    source = "pre" + number_text + "post"
+    match_string = '(' + numbers.join(')\s+(') + ')'
+    regex = Regexp.compile(match_string)
+    
+    mr = source.match(regex)
+
+    numbers.length.times do |num|
+      assert_equal numbers[num], mr.replace('\\'+(num+1).to_s)
+    end
+    
+    assert_equal "pre", mr.replace('\`')
+    assert_equal "post", mr.replace("\\'")
+    assert_equal "nine", mr.replace('\+')
+    assert_equal number_text, mr.replace('\&')
+  end
+  
+  def test_pre_sub_match
+    mr = "xxx one two three yyy".match(/(one)\s+(two)\s+(three)/)
+    assert_equal "one ", mr.pre_sub_match(2)
+  end
+
+  def test_pre_sub_match_negative_index
+    mr = "xxx one two three yyy".match(/(one)\s+(two)\s+(three)/)
+    assert_equal "one two ", mr.pre_sub_match(-1)
+  end
+
+  def test_post_sub_match
+    mr = "xxx one two three yyy".match(/(one)\s+(two)\s+(three)/)
+    assert_equal " three", mr.post_sub_match(2)
+  end
+
+  def test_post_sub_match_negative_index
+    mr = "xxx one two three yyy".match(/(one)\s+(two)\s+(three)/)
+    assert_equal " three", mr.post_sub_match(-2)
+  end
+  
+  def test_last_nul_match_group
+    mr = "one two three".match(/(one)?(\s+two)?(\s+three)?(\s+four)?/)
+    
+    assert_equal ' three', mr.replace('\+')
+  end
+end

data/test/test-readme-example.rb

@@ -0,0 +1,48 @@
+#$Id: test-readme-example.rb 164 2006-08-13 18:17:48Z larry $
+
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'test/unit'
+require 'tartan'
+
+ParagraphAndCodeDef = %q~
+block:
+  - title: code
+    match: "/(^[ ]{2,}\S.+?$\n)+^[ ]{2,}\S.+?$/m"
+    html:
+      start_mark: <pre><code>
+      end_mark: </code></pre>
+  - title: paragraph
+    match: "/(^[^\n]+$\n)+^[^\n]+$/m"
+    html:
+      start_mark: <p>
+      end_mark:   </p>
+~
+class ReadmeTestCase < Test::Unit::TestCase
+  class ParagraphAndCode < Tartan
+    set_defs(ParagraphAndCodeDef)
+  end
+
+  def testParagraphAndCode
+    text = <<TEXT
+Now is the time for all good 
+men to come to the aid of 
+their party.
+
+  p "Hello"
+  p "World"
+TEXT
+
+    html = \
+%q~<p>Now is the time for all good 
+men to come to the aid of 
+their party.</p>
+
+<pre><code>  p "Hello"
+  p "World"</code></pre>
+~
+
+    parser = ParagraphAndCode.new(text)
+    assert_equal(html, parser.to_html)
+  end
+end

data/test/test-tables.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+#$Id: test-wikilink-addon.rb 158 2006-05-19 16:31:45Z david $
+
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'tartan'
+require 'tartan_table_def'
+require 'wiki-test'
+require 'tartan_test_base_def'
+
+class TartanTestTable < Tartan
+  include TartanTestBaseDef
+  include TartanTableDef
+end
+
+cases = WikiTestCases.new(TartanTestTable, "test-tables.yml")

data/test/test-tables.yml

@@ -0,0 +1,82 @@
+#$Id: test-tables.yml 124 2006-05-07 16:28:09Z larry $
+
+title: OneLineTable
+in: "[|bob||jim|]"
+html: |-
+  <table class="">
+  <tr><td>bob</td><td>jim</td></tr>
+  </table>
+---
+title: OneLineTableWithBarInCell
+in: "[|bob|mike||jim|]"
+html: |-
+  <table class="">
+  <tr><td>bob|mike</td><td>jim</td></tr>
+  </table>
+---
+title: OneLineHeaderTable
+in: "[!bob|!jim|]"
+html: |-
+  <table class="">
+  <tr><th>bob</th><th>jim</th></tr>
+  </table>
+---
+title: OneLineTableWithClass
+in: "[class|bob||jim|]"
+html: |-
+  <table class="class">
+  <tr><td>bob</td><td>jim</td></tr>
+  </table>
+---
+title: OneRowMultipleLines
+in: |-
+  [|
+  bob
+  ||
+  jim
+  |]
+html: |-
+  <table class="">
+  <tr><td><p>bob</p></td><td><p>jim</p></td></tr>
+  </table>
+---
+title: TwoLineTable
+in: |-
+  [|first||last|]
+  [|billy||bob|]
+html: |-
+  <table class="">
+  <tr><td>first</td><td>last</td></tr>
+  <tr><td>billy</td><td>bob</td></tr>
+  </table>
+---
+title: TwoLineTableWithClass
+in: |-
+  [class|first||last|]
+  [|billy||bob|]
+html: |-
+  <table class="class">
+  <tr><td>first</td><td>last</td></tr>
+  <tr><td>billy</td><td>bob</td></tr>
+  </table>
+---
+title: TwoLineTableWithClassAndHeaders
+in: |-
+  [class!first|!last|]
+  [|billy||bob|]
+html: |-
+  <table class="class">
+  <tr><th>first</th><th>last</th></tr>
+  <tr><td>billy</td><td>bob</td></tr>
+  </table>
+---
+title: TwoOneLineTablesWithClass
+in: |-
+  [class1|joe||sally|]
+  [class2|bob||jim|]
+html: |-
+  <table class="class1">
+  <tr><td>joe</td><td>sally</td></tr>
+  </table><table class="class2">
+  <tr><td>bob</td><td>jim</td></tr>
+  </table>

data/test/test-tartan-markdown.rb

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+#$Id: test-tartan-markdown.rb 148 2006-07-22 14:04:20Z larry $
+
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+#require 'tartan'
+require 'tartan_markdown'
+require 'wiki-test'
+
+cases = WikiTestCases.new(TartanMarkdown, "test-markdown.yml")
+

data/test/test-tartan.rb

@@ -0,0 +1,306 @@
+#$Id: test-tartan.rb 169 2006-08-16 22:16:12Z bitherder $
+
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'test/unit'
+require 'tartan'
+
+Wiki_def = %q~
+block:
+  - title: rule
+    match: /:\)/
+    html:
+      replace: '\1'
+~
+            
+New_def = %q~
+block:
+  - title: newRule
+    match: /:\(/
+    html: 
+      replace: '\1'
+~
+
+Newer_def = %q~
+block:
+  - title: newerRule
+    match: /:\(/
+    html:
+      replace: '\1'
+~
+
+Span_def = %q~
+span:
+  - title: spanRule
+    match: /->/
+    html:
+      replace: '\1'
+~
+           
+Before_def = %q~
+block:
+  - title: beforeRule
+    before: rule
+    match: '/:\(/'
+    html:
+      replace: '\1'
+~
+
+After_def = %q~
+block:
+  - title: afterRule
+    after: rule
+    match: '/:\(/'
+    html:
+      replace: '\1'
+~
+
+Beginning_def = %q~
+block:
+  - title: beginningRule
+    beginning: true 
+    match: '/:\(/'
+    html:
+      replace: '\1'
+~
+
+Literal_def = %q~
+block:
+  - title: beginningRule
+    beginning: true
+    match: '/:\(/'
+    html:
+      replace: '\1'
+  - rescan
+~
+
+ Template_def = %q~
+ block:
+  - title: fullRule
+    match: /(:\))/
+    html:
+      replace: '--\1--'
+  - title: partialRule
+    template: fullRule
+    match: /(:\()/
+~
+ Default_def = %q~
+ block:
+  - title: defaultRule
+    default: true
+    match: /(:\))/
+    html:
+      replace: '--\1--'
+  - title: partialRule
+    match: /(:\()/
+~
+
+ Default_def2 = %q~
+ block:
+  - title: defaultRule
+    default: true
+    ingnore: true
+    match: /(;\))/
+    html:
+      replace: '--\1--'
+  - title: smileRule
+    match: /(:\))/
+  - title: frownRule
+    match: /(:\()/
+~
+
+class WikiDefsTestCase < Test::Unit::TestCase
+    def testInitWNoArg
+        defs = WikiDefs.new
+        assert(defs, "New def is not nil")
+    end
+    
+    def testInsert
+        defs = WikiDefs.new
+        defs[:something] = 'bob'
+        assert_equal('bob', defs[:something])
+    end
+    
+    def testInit
+        defs = WikiDefs.new(Wiki_def)
+        assert_equal(:rule, defs[:block][0].title)
+    end
+    
+    def testAdd
+        defs = WikiDefs.new(Wiki_def)
+        defs.add(New_def)
+        
+        assert_equal(:newRule, defs[:block][1].title)
+    end
+    
+    def testAddBeginning
+        defs = WikiDefs.new(Wiki_def)
+        defs.add(Beginning_def)
+        assert_equal(:beginningRule,defs[:block][0].title)
+        assert_equal(:rule,defs[:block][1].title)
+    end
+
+    def testAddThree
+        defs = WikiDefs.new(Wiki_def)
+        defs.add(New_def)
+        defs.add(Newer_def)
+        assert_equal(:rule, defs[:block][0].title)
+        assert_equal(:newRule,defs[:block][1].title)
+        assert_equal(:newerRule, defs[:block][2].title)
+    end
+    
+    def testAddAfter
+        defs = WikiDefs.new(Wiki_def)
+        defs.add(New_def)
+        defs.add(After_def)
+        assert_equal(:rule, defs[:block][0].title)
+        assert_equal(:afterRule,defs[:block][1].title)
+        assert_equal(:newRule, defs[:block][2].title)
+    end
+    
+    def testInitWBadBefore
+        assert_raises(RuntimeError) do WikiDefs.new(Before_def) end
+    end
+
+    def testInitWBadAfter
+        assert_raises(RuntimeError) do WikiDefs.new(After_def) end
+    end
+    
+    def testAddSpan
+        defs = WikiDefs.new(Wiki_def)
+        defs.add(Span_def)
+        assert_equal(:rule, defs[:block][0].title)
+        assert_equal(:spanRule,defs[:span][0].title)
+    end
+    
+    def testTemplate
+      defs = WikiDefs.new(Template_def)
+      assert_equal(:partialRule, defs[:block][1].title)
+      assert_equal('--\1--', defs[:block][1].replace_regex(:html))
+    end
+
+    def testLiteral
+      defs = WikiDefs.new(Literal_def)
+      assert(defs[:block][1].rescan, 
+             "lone rescan should have been embedded in a hash and set to true")
+    end
+    
+    def testFilePath
+      file_and_path = nil
+      
+      assert_nothing_raised do
+        file_and_path = WikiDefs.find_file_in_path("tartan.rb")
+      end
+    end
+end
+
+class TartanTestCase < Test::Unit::TestCase
+    class TestTartan < Tartan
+      set_defs({:block => [
+                {:title => 'rule', 
+                 :match => /:\)/, 
+                 :html => {:replace => '\1'}}
+                ]})
+    end
+
+    def testCreateParser
+      parser = TestTartan.new("x", nil)
+      assert(parser.to_html, "Tartan failed on empty input")
+    end
+
+    def testCreatParserGlobalDefs
+       parser = TestTartan.new("x")
+       assert(parser.to_html, "Tartan failed on empty input")
+    end
+    
+    def testRemoveCRs
+       parser = TestTartan.new("Test.\r\n")
+       assert_equal("Test.\n", parser.to_html)
+    end
+
+    class LastRuleTartan < Tartan
+      set_defs({:block => [
+                  {:title => 'rule', 
+                   :position => :not_last,
+                   :match => /(:\))/, 
+                   :html => {:replace => '\1'}
+                  },
+                  {:title => 'lastRule', 
+                   :position => :last,
+                   :match => /(:\))/, 
+                   :html => {:replace => '\1-'}
+                  },
+                ]})
+    end
+
+    def testLastAndNotLastChecks
+       parser = LastRuleTartan.new(":)\n:)", nil)
+       assert_equal(":)\n:)-", parser.to_html)
+    end
+
+    class VarSetTartan < Tartan
+      set_defs({:block => [
+                    {:title => 'var_rule', 
+                     :match => /(:\))/, 
+                     :set => {'smiley' => '-\1-'},
+                     :html => {:replace => '{{{smiley}}}'},
+                    },
+                  ]})
+    end
+
+    def testSetVariable
+       parser = VarSetTartan.new(":)", nil)
+       assert_equal("-:)-", parser.to_html)
+    end
+    
+    class SetVarMarkTartan < Tartan
+      set_defs({:block => [
+                 {:title => 'var_rule', 
+                  :match => /(:\))/, 
+                  :set => {'smiley' => '-\1-'},
+                  :html => {:start_mark => '<{{{smiley}}}>', :end_mark => '<>'},
+                 },
+               ]})
+    end
+
+    def testSetVariableUseInMarks
+       parser = SetVarMarkTartan.new(":)", nil)
+       assert_equal("<-:)->:)<>", parser.to_html)
+    end
+
+    class TemplateTartan < Tartan
+      set_defs Template_def
+    end
+    
+    def testTemplate
+      parser = TemplateTartan.new(":)", nil)
+      assert_equal("--:)--", parser.to_html)
+      parser = TemplateTartan.new(":(", nil)
+      assert_equal("--:(--", parser.to_html)
+      parser = TemplateTartan.new(":}", nil)
+      assert_equal(":}", parser.to_html)
+    end
+
+    class DefaultTartan < Tartan
+      set_defs Default_def
+    end
+    
+    def testDefault
+      
+      parser = DefaultTartan.new(":)", nil)
+      assert_equal("--:)--", parser.to_html)
+      parser = DefaultTartan.new(":(", nil)
+      assert_equal("--:(--", parser.to_html)
+      parser = DefaultTartan.new(":}", nil)
+      assert_equal(":}", parser.to_html)
+    end
+    
+    def testDefaultWithIgnore
+      parser = DefaultTartan.new(":)", nil)
+      assert_equal("--:)--", parser.to_html)
+      parser = DefaultTartan.new(":(", nil)
+      assert_equal("--:(--", parser.to_html)
+      parser = DefaultTartan.new(";)", nil)
+      assert_equal(";)", parser.to_html)
+    end
+end