#
# File::       test_HTMLProcessor.rb
# Author::     wkm
# Copyright::  2009
# License::    GPL
#
# Unit tests for the HTMLProcessor
#

$:.unshift File.join(File.dirname(__FILE__),'..','lib')

require 'test/unit'
require 'sitefuel/processors/HTMLProcessor'
require 'sitefuel/extensions/StringFormatting'

include SiteFuel::Processor

class TestHTMLProcessor < Test::Unit::TestCase
  def test_file_extensions
    
    # negative tests
    assert_equal false, HTMLProcessor.processes_file?("testhtml")
    assert_equal false, HTMLProcessor.processes_file?("testhtm")
    assert_equal false, HTMLProcessor.processes_file?("testHTML")

    assert_equal false, HTMLProcessor.processes_file?("test.html.foo")
    assert_equal false, HTMLProcessor.processes_file?("test.htm.foo")

    # positive tests
    assert HTMLProcessor.processes_file?("test.html")
    assert HTMLProcessor.processes_file?("test.htm")
    assert HTMLProcessor.processes_file?("test.HTML")
    assert HTMLProcessor.processes_file?("test.HtMl")
    assert HTMLProcessor.processes_file?("test.hTm")
    
  end

  def test_name
    assert_equal "HTML", HTMLProcessor.processor_name
  end

  def test_beautify_quotes
    assert_equal(
      %q{<p>&#8220;Really?&#8221; Alice asked.<br>&#8220;Yes. Just yesterday.&#8221; said Bob.</p>},
      
      HTMLProcessor.filter_string(
        :beautify_quotes,
        %q{<p>"Really?" Alice asked.<br>"Yes. Just yesterday." said Bob.}
      )
    )

    assert_equal(
      %q{<p>This was Alice&#8217;s car; she bought it from the Hoovers.</p>},

      HTMLProcessor.filter_string(
        :beautify_quotes,
        %q{<p>This was Alice's car; she bought it from the Hoovers.</p>}
      )
    )
  end

  def test_beautify_dashes
    assert_equal(
      %q{<p>Alice&#8212;having just finished&#8212;shouted</p>},

      HTMLProcessor.filter_string(
        :beautify_dashes,
        %q{<p>Alice---having just finished---shouted</p>}
      )
    )

    assert_equal(
      %q{<p>See ppg. 12&#8211;15</p>},

      HTMLProcessor.filter_string(
        :beautify_dashes,
        %q{<p>See ppg. 12--15</p>}
      )
    )

    assert_equal(
      %q{<p>These--are left alone</p>},

      HTMLProcessor.filter_string(
        :beautify_dashes,
        %q{<p>These--are left alone</p>}
      )
    )

    # test --'s use as a filler for "bad words"
    assert_equal(
      %q{<p>f&#8211;&#8211;</p>},

      HTMLProcessor.filter_string(
        :beautify_dashes,
        %q{<p>f----</p>}
      )
    )
  end

  def test_beautify_arrows
    assert_equal(
      %q{<p>a &#8594; b &#8592; c &#8596; d</p>},

      HTMLProcessor.filter_string(
        :beautify_arrows,
        %q{<p>a --> b <-- c <-> d</p>}
      )
    )

    assert_equal(
      %q{<p>a &#8658; b &#8656; c &#8660; d</p>},
      
      HTMLProcessor.filter_string(
        :beautify_arrows,
        %q{<p>a ==> b <== c <=> d</p>}
      )
    )
  end

  def test_beautify_symbols
    assert_equal %q{<p>&#8482;</p>}, HTMLProcessor.filter_string(:beautify_symbols, %q{<p>(tm)</p>})
    assert_equal %q{<p>&#169;</p>}, HTMLProcessor.filter_string(:beautify_symbols, %q{<p>(c)</p>})
    assert_equal %q{<p>&#174;</p>}, HTMLProcessor.filter_string(:beautify_symbols, %q{<p>(r)</p>})

    assert_equal(
      %q{<p>Hello&#8230; Hi&#8230; And finally &#8230; that was it.</p>},

      HTMLProcessor.filter_string(
        :beautify_symbols,
        %q{<p>Hello... Hi... And finally ... that was it.</p>}
      )
    )
  end

  def test_traverse

    modifiable_tags = %w{h1 h2 h3 h4 h5 h6 p b i ul a li td th}
    unmodifiable_tags = %w{pre code html head}

    # test tags which should be modified
    modifiable_tags.each do |tag|
      assert_equal "<#{tag}>&#8482;</#{tag}>", HTMLProcessor.filter_string(:beautify_symbols, "<#{tag}>(tm)</#{tag}>")
    end


    # test tags which should be unmodified
    unmodifiable_tags.each do |tag|
      assert_equal "<#{tag}>(tm)</#{tag}>", HTMLProcessor.filter_string(:beautify_symbols, "<#{tag}>(tm)</#{tag}>")
    end

  end

  def test_embedded_css

    assert_equal(
      %q{<style>body{font-family:"lucida grande",sans-serif;}</style>},
      HTMLProcessor.filter_string(:minify_styles,
        <<-END
          <style>
            body {
              font-family: "lucida grande", sans-serif;
            }
          </style>
        END
      ).strip
    )

  end

  def test_embedded_javascript
    assert_equal(
      "<script>var protocol=document.location.protocol\ndocument.write(\"Web protocol used: \"+protocol)</script>",

      HTMLProcessor.filter_string(:minify_javascript,
        %q{
          <script>
            // some random java script invented by seriously fudging the
            // google analytics includes
            var protocol = document.location.protocol
            document.write("Web protocol used: "+protocol)
        }.align
      ).strip
    )
  end
end