require "web"
require "test/unit"
require "revision"

class WebStub < Web; 
  attr_accessor :markup
  def pages() PagesStub.new end
  def safe_mode() false end
end
class PagesStub
  def [](wiki_word) %w( MyWay ThatWay SmartEngine ).include?(wiki_word) end
end
class PageStub
  attr_accessor :web, :revisions
  def name() 'page' end
end

class RevisionTest < Test::Unit::TestCase

  def setup
    @page = PageStub.new
    @web  = WebStub.new
    @page.web = @web

    @web.markup = :textile

    @revision = Revision.new(@page, 1,
      'HisWay would be MyWay in kinda ThatWay in HisWay though MyWay \\OverThere -- ' +
          'see SmartEngine in that SmartEngineGUI', 
      Time.local(2004, 4, 4, 16, 50), 'DavidHeinemeierHansson')
    
    @revision_with_auto_links = Revision.new(@page, 1,
      "http://www.loudthinking.com/ points to ThatWay from david@loudthinking.com", 
      Time.local(2004, 4, 4, 16, 50), 'DavidHeinemeierHansson')

	@revision_with_aliased_links = Revision.new(@page, 1,
      'Would a [[SmartEngine|clever motor]] go by any other name?',
      Time.local(2004, 4, 4, 16, 50), 'MarkReid')

	@revision_with_wiki_word_in_em = Revision.new(@page, 1, '_should we go ThatWay or ThisWay _',
      Time.local(2004, 4, 4, 16, 50), 'MarkReid')

	@revision_with_pre_blocks = Revision.new(@page, 1,
	    'A <code>class SmartEngine end</code> would not mark up <pre>CodeBlocks</pre>',
        Time.local(2004, 4, 4, 16, 50), 'MarkReid')

	@revision_with_wikiword_in_tag = Revision.new(@page, 1,
	  'That is some <em style=\"WikiWord\">Stylish Emphasis</em>',
      Time.local(2004, 4, 4, 16, 50), 'MarkReid')

	@revision_with_autolink_in_parentheses = Revision.new(
	  @page, 1, 'The W3C body (http://www.w3c.org) sets web standards',
      Time.local(2004, 4, 4, 16, 50), 'MarkReid')

	@revision_with_link_in_parentheses = Revision.new(
	  @page, 1,
      'Instiki is a "Wiki Clone":http://www.c2.com/cgi/wiki?WikiWikiClones ' +
          '("What is a wiki?":http://wiki.org/wiki.cgi?WhatIsWiki) that\'s so easy to setup',
	  Time.local(2004, 4, 4, 16, 50), 'MarkReid'
    )

	@revision_with_image_link = Revision.new(@page, 1,
      'This !http://hobix.com/sample.jpg! is a Textile image link.',
	  Time.local(2004, 4, 4, 16, 50), 'MarkReid')

	@revision_with_nowiki_text = Revision.new(@page, 1,
	  'Do not mark up <nowiki>[[this text]]</nowiki> or <nowiki>http://www.thislink.com</nowiki>.',
	  Time.local(2004, 4, 4, 16, 50), 'MarkReid')

	@revision_with_bracketted_wiki_word = Revision.new(@page, 1,
	  'This is a WikiWord and a tricky name [[Sperberg-McQueen]].',
	  Time.local(2004, 4, 4, 16, 50), 'MarkReid')
  end

  def test_wiki_words
    assert_equal %w( HisWay MyWay SmartEngine SmartEngineGUI ThatWay ), @revision.wiki_words.sort
  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 <span class="caps">GUI</span>' +
        '<a href="../show/SmartEngineGUI">?</a></span></p>', 
        @revision.display_content
  end

  def test_bluecloth
    @web.markup = :markdown

    @revision = Revision.new(@page, 1, "My Headline\n===========\n\n that SmartEngineGUI",
      Time.local(2004, 4, 4, 16, 50), 'DavidHeinemeierHansson')

	@revision_with_code_block = Revision.new(@page, 1,
      [ 'This is a code block:',
        '',
        '    def a_method(arg)',
        '    return ThatWay',
        '',
        'Nice!'].join("\n"),
      Time.local(2004, 4, 4, 16, 50),
      'MarkReid'
    )

    assert_equal %{<h1>My Headline</h1>\n\n<p>that <span class="newWikiWord">} +
        %{Smart Engine GUI<a href="../show/SmartEngineGUI">?</a></span></p>}, 
        @revision.display_content

	assert_equal %{<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>}, 
	    @revision_with_code_block.display_content
  end

  def test_rdoc
    @web.markup = :rdoc

    @revision = Revision.new(@page, 1, '+hello+ that SmartEngineGUI', 
        Time.local(2004, 4, 4, 16, 50), '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_equal '<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>', 
        @revision_with_auto_links.display_content
  end  

  def test_content_with_aliased_links
	assert_equal '<p>Would a <a class="existingWikiWord" href="../show/SmartEngine">clever motor' +
	    '</a> go by any other name?</p>', @revision_with_aliased_links.display_content
  end

  def test_content_with_wikiword_in_em
	assert_equal '<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>', @revision_with_wiki_word_in_em.display_content
  end

  def test_content_with_wikiword_in_tag
    assert_equal '<p>That is some <em style="WikiWord">Stylish Emphasis</em></p>', 
        @revision_with_wikiword_in_tag.display_content
  end

  def test_content_with_pre_blocks
	assert_equal 'A <code>class SmartEngine end</code> would not mark up <pre>CodeBlocks</pre>', 
	    @revision_with_pre_blocks.display_content
  end

  def test_content_with_autolink_in_parentheses
	assert_equal '<p>The <span class="caps">W3C</span> body (<a href="http://www.w3c.org">' +
	    'http://www.w3c.org</a>) sets web standards</p>', 
	    @revision_with_autolink_in_parentheses.display_content
  end

  def test_content_with_link_in_parentheses
	assert_equal '<p>Instiki is a <a href="http://www.c2.com/cgi/wiki?WikiWikiClones">Wiki Clone' +
	    '</a> (<a href="http://wiki.org/wiki.cgi?WhatIsWiki">What is a wiki?</a>) that&#8217;s ' +
	    'so easy to setup</p>', @revision_with_link_in_parentheses.display_content
  end

  def test_content_with_image_link
	assert_equal '<p>This <img src="http://hobix.com/sample.jpg" alt="" /> is a Textile image ' +
	    'link.</p>', @revision_with_image_link.display_content
  end

  def test_content_with_nowiki_text
	assert_equal '<p>Do not mark up [[this text]] or http://www.thislink.com.</p>', 
	    @revision_with_nowiki_text.display_content
  end

  def test_content_with_bracketted_wiki_word
	@web.brackets_only = true
	assert_equal '<p>This is a WikiWord and a tricky name <span class="newWikiWord">' +
	    'Sperberg-McQueen<a href="../show/Sperberg-McQueen">?</a></span>.</p>', 
	    @revision_with_bracketted_wiki_word.display_content
  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 <span class="caps">GUI</span></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\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 />\n<span class=\"newWikiWord\">Version History" +
        "<a href=\"../show/VersionHistory\">?</a></span></p>\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&#8217;s just awesome <span class=\"caps\">GUI" +
        "</span>!<a href=\"../show/It%27s+just+awesome+GUI%21\">?</a></span></p>", 
        @revision.display_content
  end
  
  def test_revisions_diff
    page = PageStub.new
    web  = WebStub.new
    web.markup = :textile
    page.web = web

    page.revisions = [ 0 ] 
    page.revisions << Revision.new(page, 1, 'What a blue and lovely morning', 
        Time.local(2004, 4, 4, 16, 50), 'DavidHeinemeierHansson')

    page.revisions << Revision.new(page, 2, 'What a red and lovely morning today', 
        Time.local(2004, 4, 4, 16, 50), 'DavidHeinemeierHansson')
    
    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

end