require File.expand_path(File.dirname(__FILE__) + '/../test_helper')

class RevisionTest < Test::Unit::TestCase
  fixtures :webs, :pages, :revisions, :system

  def setup
    @wiki = Wiki.new
    @web = webs(:test_wiki)
    @page = pages(:home_page)
    @revision = revisions(:home_page_second_revision)
  end

  def test_wiki_words
    assert_equal %w( HisWay MyWay SmartEngine SmartEngineGUI ThatWay ), @revision.wiki_words.sort
    
    @wiki.write_page('wiki1', 'NoWikiWord', 'hey you!', Time.now, 'Me')
    assert_equal [], @wiki.read_page('wiki1', 'NoWikiWord').wiki_words
  end
  
  def test_existing_pages
    assert_equal %w( MyWay SmartEngine ThatWay ), @revision.existing_pages.sort
  end
  
  def test_unexisting_pages
    assert_equal %w( HisWay SmartEngineGUI ), @revision.unexisting_pages.sort
  end

  def test_content_with_wiki_links
    assert_equal '<p><span class="newWikiWord">His Way<a href="../show/HisWay">?</a></span> ' +
        'would be <a class="existingWikiWord" href="../show/MyWay">My Way</a> in kinda ' +
        '<a class="existingWikiWord" href="../show/ThatWay">That Way</a> in ' +
        '<span class="newWikiWord">His Way<a href="../show/HisWay">?</a></span> ' +
        'though <a class="existingWikiWord" href="../show/MyWay">My Way</a> OverThere&#8212;see ' +
        '<a class="existingWikiWord" href="../show/SmartEngine">Smart Engine</a> in that ' +
        '<span class="newWikiWord">Smart Engine GUI' +
        '<a href="../show/SmartEngineGUI">?</a></span></p>', 
        @revision.display_content
  end

  def test_markdown
    set_web_property :markup, :markdown
  
    assert_markup_parsed_as(
        %{<h1>My Headline</h1>\n\n<p>that <span class="newWikiWord">} +
        %{Smart Engine GUI<a href="../show/SmartEngineGUI">?</a></span></p>}, 
        "My Headline\n===========\n\nthat SmartEngineGUI")
  
    code_block = [ 
      'This is a code block:',
        '',
        '    def a_method(arg)',
        '    return ThatWay',
        '',
        'Nice!'
      ].join("\n")
  
    assert_markup_parsed_as(
        %{<p>This is a code block:</p>\n\n<pre><code>def a_method(arg)\n} +
        %{return ThatWay\n</code></pre>\n\n<p>Nice!</p>}, 
        code_block)
  end
  
  def test_markdown_hyperlink_with_slash
    # in response to a bug, see http://dev.instiki.org/attachment/ticket/177
    set_web_property :markup, :markdown
  
    assert_markup_parsed_as(
        '<p><a href="http://example/with/slash">text</a></p>', 
        '[text](http://example/with/slash)')
  end
  
  def test_mixed_formatting
    textile_and_markdown = [
      'Markdown heading',
      '================',
      '',
      'h2. Textile heading',
      '',
      '*some* **text** _with_ -styles-',
      '',
      '* list 1',
      '* list 2'
    ].join("\n")
    
    set_web_property :markup, :markdown
    assert_markup_parsed_as(
      "<h1>Markdown heading</h1>\n\n" +
      "<p>h2. Textile heading</p>\n\n" +
      "<p><em>some</em> <strong>text</strong> <em>with</em> -styles-</p>\n\n" +
      "<ul>\n<li>list 1</li>\n<li>list 2</li>\n</ul>",
      textile_and_markdown)
    
    set_web_property :markup, :textile
    assert_markup_parsed_as(
      "<p>Markdown heading<br />================</p>\n\n\n\t<h2>Textile heading</h2>" +
      "\n\n\n\t<p><strong>some</strong> <b>text</b> <em>with</em> <del>styles</del></p>" +
      "\n\n\n\t<ul>\n\t<li>list 1</li>\n\t\t<li>list 2</li>\n\t</ul>",
      textile_and_markdown)
    
    set_web_property :markup, :mixed
    assert_markup_parsed_as(
      "<h1>Markdown heading</h1>\n\n\n\t<h2>Textile heading</h2>\n\n\n\t" +
      "<p><strong>some</strong> <b>text</b> <em>with</em> <del>styles</del></p>\n\n\n\t" +
      "<ul>\n\t<li>list 1</li>\n\t\t<li>list 2</li>\n\t</ul>",
      textile_and_markdown)
  end
  
  def test_rdoc
    set_web_property :markup, :rdoc
  
    @revision = Revision.new(:page => @page, :content => '+hello+ that SmartEngineGUI', 
        :author => Author.new('DavidHeinemeierHansson'))
  
    assert_equal "<tt>hello</tt> that <span class=\"newWikiWord\">Smart Engine GUI" +
        "<a href=\"../show/SmartEngineGUI\">?</a></span>\n\n", @revision.display_content
  end
  
  def test_content_with_auto_links
    assert_markup_parsed_as(
        '<p><a href="http://www.loudthinking.com/">http://www.loudthinking.com/</a> ' +
        'points to <a class="existingWikiWord" href="../show/ThatWay">That Way</a> from ' +
        '<a href="mailto:david@loudthinking.com">david@loudthinking.com</a></p>', 
        'http://www.loudthinking.com/ points to ThatWay from david@loudthinking.com')
  
  end  
  
  def test_content_with_aliased_links
    assert_markup_parsed_as(
        '<p>Would a <a class="existingWikiWord" href="../show/SmartEngine">clever motor' +
	    '</a> go by any other name?</p>',
        'Would a [[SmartEngine|clever motor]] go by any other name?')
  end
  
  def test_content_with_wikiword_in_em
    assert_markup_parsed_as(
        '<p><em>should we go <a class="existingWikiWord" href="../show/ThatWay">' +
	    'That Way</a> or <span class="newWikiWord">This Way<a href="../show/ThisWay">?</a>' +
	    '</span> </em></p>', 
        '_should we go ThatWay or ThisWay _')
  end
  
  def test_content_with_wikiword_in_tag
    assert_markup_parsed_as(
        '<p>That is some <em style="WikiWord">Stylish Emphasis</em></p>', 
	    'That is some <em style="WikiWord">Stylish Emphasis</em>')
  end
  
  def test_content_with_escaped_wikiword
    # there should be no wiki link
    assert_markup_parsed_as('<p>WikiWord</p>', '\WikiWord')
  end
  
  def test_content_with_pre_blocks
    assert_markup_parsed_as(
      '<p>A <code>class SmartEngine end</code> would not mark up <pre>CodeBlocks</pre></p>', 
      'A <code>class SmartEngine end</code> would not mark up <pre>CodeBlocks</pre>')
  end
  
  def test_content_with_autolink_in_parentheses
    assert_markup_parsed_as(
      '<p>The <span class="caps">W3C</span> body (<a href="http://www.w3c.org">' +
      'http://www.w3c.org</a>) sets web standards</p>', 
      'The W3C body (http://www.w3c.org) sets web standards')
  end
  
  def test_content_with_link_in_parentheses
    assert_markup_parsed_as(
      '<p>(<a href="http://wiki.org/wiki.cgi?WhatIsWiki">What is a wiki?</a>)</p>',
      '("What is a wiki?":http://wiki.org/wiki.cgi?WhatIsWiki)')
  end
  
  def test_content_with_image_link
    assert_markup_parsed_as( 
      '<p>This <img src="http://hobix.com/sample.jpg" alt="" /> is a Textile image link.</p>', 
      'This !http://hobix.com/sample.jpg! is a Textile image link.')
  end
  
  def test_content_with_inlined_img_tag
    assert_markup_parsed_as( 
      '<p>This <img src="http://hobix.com/sample.jpg" alt="" /> is an inline image link.</p>', 
      'This <img src="http://hobix.com/sample.jpg" alt="" /> is an inline image link.')
        
    assert_markup_parsed_as( 
      '<p>This <IMG SRC="http://hobix.com/sample.jpg" alt=""> is an inline image link.</p>', 
      'This <IMG SRC="http://hobix.com/sample.jpg" alt=""> is an inline image link.')
  end
  
  def test_nowiki_tag
    assert_markup_parsed_as( 
      '<p>Do not mark up [[this text]] or http://www.thislink.com.</p>', 
      'Do not mark up <nowiki>[[this text]]</nowiki> ' +
      'or <nowiki>http://www.thislink.com</nowiki>.')
  end
  
  def test_multiline_nowiki_tag
    assert_markup_parsed_as( 
      "<p>Do not mark \n up [[this text]] \nand http://this.url.com  but markup " +
      '<span class="newWikiWord">this<a href="../show/this">?</a></span></p>',
      "Do not <nowiki>mark \n up [[this text]] \n" +
      "and http://this.url.com </nowiki> but markup [[this]]")
  end
  
  def test_content_with_bracketted_wiki_word
    set_web_property :brackets_only, true
    assert_markup_parsed_as( 
      '<p>This is a WikiWord and a tricky name <span class="newWikiWord">' +
      'Sperberg-McQueen<a href="../show/Sperberg-McQueen">?</a></span>.</p>', 
      'This is a WikiWord and a tricky name [[Sperberg-McQueen]].')
  end
  
  def test_content_for_export
    assert_equal '<p><span class="newWikiWord">His Way</span> would be ' +
      '<a class="existingWikiWord" href="MyWay.html">My Way</a> in kinda ' +
      '<a class="existingWikiWord" href="ThatWay.html">That Way</a> in ' +
      '<span class="newWikiWord">His Way</span> though ' +
      '<a class="existingWikiWord" href="MyWay.html">My Way</a> OverThere&#8212;see ' +
      '<a class="existingWikiWord" href="SmartEngine.html">Smart Engine</a> in that ' +
      '<span class="newWikiWord">Smart Engine GUI</span></p>', 
      @revision.display_content_for_export
  end
  
  def test_double_replacing
    @revision.content = "VersionHistory\r\n\r\ncry VersionHistory"
    assert_equal '<p><span class="newWikiWord">Version History' +
      "<a href=\"../show/VersionHistory\">?</a></span></p>\n\n\n\t<p>cry " +
      '<span class="newWikiWord">Version History<a href="../show/VersionHistory">?</a>' +
      '</span></p>', 
      @revision.display_content
  
    @revision.clear_display_cache
  
    @revision.content = "f\r\nVersionHistory\r\n\r\ncry VersionHistory"
    assert_equal "<p>f<br /><span class=\"newWikiWord\">Version History" +
      "<a href=\"../show/VersionHistory\">?</a></span></p>\n\n\n\t<p>cry " +
      "<span class=\"newWikiWord\">Version History<a href=\"../show/VersionHistory\">?</a>" +
      "</span></p>", 
      @revision.display_content
  end  
  
  def test_difficult_wiki_words
    @revision.content = "[[It's just awesome GUI!]]"
    assert_equal "<p><span class=\"newWikiWord\">It's just awesome GUI!" +
      "<a href=\"../show/It%27s+just+awesome+GUI%21\">?</a></span></p>", 
      @revision.display_content
  end
  
  def test_revisions_diff
    Revision.create(:page => @page, :content => 'What a blue and lovely morning', 
        :author => Author.new('DavidHeinemeierHansson'), :revised_at => Time.now)
    Revision.create(:page => @page, :content => 'What a red and lovely morning today', 
        :author => Author.new('DavidHeinemeierHansson'), :revised_at => Time.now)

    assert_equal "<p>What a <del class=\"diffmod\">blue </del><ins class=\"diffmod\">red " +
        "</ins>and lovely <del class=\"diffmod\">morning</del><ins class=\"diffmod\">morning " +
        "today</ins></p>", @page.revisions.last.display_diff
  end
  
  def test_link_to_file
    assert_markup_parsed_as( 
      '<p><span class="newWikiWord">doc.pdf<a href="../file/doc.pdf">?</a></span></p>',
      '[[doc.pdf:file]]')
  end
  
  def test_link_to_pic
    FileUtils.mkdir_p "#{RAILS_ROOT}/storage/test/wiki1"
    FileUtils.rm(Dir["#{RAILS_ROOT}/storage/test/wiki1/*"])
    @wiki.file_yard(@web).upload_file('square.jpg', StringIO.new(''))
    assert_markup_parsed_as(
      '<p><img alt="Square" src="../pic/square.jpg" /></p>',
      '[[square.jpg|Square:pic]]')
    assert_markup_parsed_as( 
      '<p><img alt="square.jpg" src="../pic/square.jpg" /></p>',
      '[[square.jpg:pic]]')
  end
  
  def test_link_to_non_existant_pic
  	assert_markup_parsed_as(
  	    '<p><span class="newWikiWord">NonExistant<a href="../pic/NonExistant.jpg">?</a>' +
  	    '</span></p>',
        '[[NonExistant.jpg|NonExistant:pic]]')
  	assert_markup_parsed_as(
  	    '<p><span class="newWikiWord">NonExistant.jpg<a href="../pic/NonExistant.jpg">?</a>' +
  	    '</span></p>',
        '[[NonExistant.jpg:pic]]')
  end
  
  def test_wiki_link_with_colon
  	assert_markup_parsed_as(
  	  '<p><span class="newWikiWord">With:Colon<a href="../show/With%3AColon">?</a></span></p>',
  	  '[[With:Colon]]')
  end
  
  # TODO Remove the leading underscores from this test when upgrading to RedCloth 3.0.1; 
  # also add a test for the "Unhappy Face" problem (another interesting RedCloth bug)
  def test_list_with_tildas
    list_with_tildas = <<-EOL
      * "a":~b
      * c~ d
    EOL
  
    assert_markup_parsed_as(
        "<ul>\n\t<li><a href=\"~b\">a</a></li>\n\t\t<li>c~ d</li>\n\t</ul>",
        list_with_tildas)
  end
  
  def test_textile_image_in_mixed_wiki
    set_web_property :markup, :mixed
    assert_markup_parsed_as(
      "<p><img src=\"http://google.com\" alt=\"\" />\nss</p>",
      "!http://google.com!\r\nss")
  end

  def assert_markup_parsed_as(expected_output, input)
    revision = Revision.new(:page => @page, :content => input, :author => Author.new('AnAuthor'))
    assert_equal expected_output, revision.display_content, 'Textile output not as expected'
  end
end