sitefuel 0.0.0a

data/test/test_FileComparisons.rb

@@ -0,0 +1,42 @@
+#
+# File::       test_FileComparisons.rb
+# Author::     wkm
+# Copyright::  2009
+# License::    GPL
+#
+# Unit tests for File.equivalent? class method. The method is
+# heuristic based so lots of tests are needed, although perhaps
+# this is a little excessive.
+#
+
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+
+require 'test/unit'
+require 'sitefuel/extensions/FileComparison'
+
+class TestFileComparion < Test::Unit::TestCase
+  def test_equivalent
+
+    # files which are clearly not equivalent
+    assert !File.equivalent?('a.rb', 'b.rb')
+    assert !File.equivalent?('f/a.rb', 'f/b.rb')
+    assert !File.equivalent?('b/a.rb', 'c/a.rb')
+    assert !File.equivalent?('c/b/a.rb', 'c/a.rb')
+
+    # files which are potentially equivalent
+    assert File.equivalent?('b/a.rb', 'a.rb')
+    assert File.equivalent?('./a.rb', 'b/a.rb')
+    assert File.equivalent?('b/a.rb', 'b/a.rb')
+    assert File.equivalent?('../a.rb', './a.rb')
+    assert File.equivalent?('../../../.././../a.rb', 'a.rb')
+
+    # trivial, but incorrect, variations on the potentially
+    # equivalent files above
+    assert !File.equivalent?('./a.rb', 'b/c.rb')
+    assert !File.equivalent?('b/a.rb', 'c/a.rb')
+    assert !File.equivalent?('b/a.rb', 'b/c.rb')
+    assert !File.equivalent?('../a.rb', './b.rb')
+    assert !File.equivalent?('../../../.././../a.rb', 'b.rb')
+
+  end
+end

data/test/test_HAMLProcessor.rb.rb

@@ -0,0 +1,60 @@
+#
+# File::       test_HAMLProcessor.rb
+# Author::     wkm
+# Copyright::  2009
+# License::    GPL
+#
+# Unit tests for the HAMLProcessor
+#
+
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+
+require 'test/unit'
+require 'sitefuel/extensions/StringFormatting'
+require 'sitefuel/processors/HAMLProcessor'
+
+include SiteFuel::Processor
+
+class TestHAMLProcessor < Test::Unit::TestCase
+  def test_file_extensions
+
+    # negative tests
+    assert_equal false, HAMLProcessor.processes_file?("testhaml")
+
+    # positive tests
+    assert HAMLProcessor.processes_file?("test.haml")
+    assert HAMLProcessor.processes_file?("test.HAML")
+
+  end
+
+  def test_name
+    assert_equal "HAML", HAMLProcessor.processor_name
+  end
+
+  def test_generate
+    assert_equal(
+      "<strong class='code' id='message'>Hello, World!</strong>",
+
+      HAMLProcessor.filter_string(:generate,
+        %q{
+          %strong{:class => "code", :id => "message"} Hello, World!
+        }.align
+      ).strip
+    )
+  end
+
+  def test_minify
+    assert_equal(
+      "<quote><p><strong class=\"code\" id=\"message\">Hello, World!</strong></p></quote>",
+
+      HAMLProcessor.filter_string([:generate, :minify],
+        %q{
+          %quote
+            %p
+              %strong{:class => "code", :id => "message"} Hello, World!
+        }.align
+      ).strip
+    )
+  end
+
+end

data/test/test_HTMLProcessor.rb

@@ -0,0 +1,186 @@
+#
+# 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

data/test/test_JPEGTran.rb

@@ -0,0 +1,40 @@
+#
+# File::      test_JPEGTran.rb
+# Author::    wkm
+# Copyright:: 2009
+# License::   GPL
+#
+# Unit tests for the JPEGTran wrapper.
+#
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'sitefuel/external/ExternalProgramTestCase'
+require 'sitefuel/external/JPEGTran'
+
+include SiteFuel::External
+
+class TestJPEGTran < Test::Unit::TestCase
+  include ExternalProgramTestCase
+
+  SAMPLE_IMAGE = 'test/test_images/sample_jpg01.jpg'
+
+  def test_options
+    assert JPEGTran.option?(:version)
+    assert JPEGTran.option?(:copy)
+    assert JPEGTran.option?(:optimize)
+    assert JPEGTran.option?(:perfect)
+    assert JPEGTran.option?(:input)
+    assert JPEGTran.option?(:output)
+
+    assert_equal '-optimize', JPEGTran.option_template(:optimize)
+  end
+
+  def test_lossless
+    new_image =  'test/test_images/tmp-sample_jpg01-lossless.jpg'
+    JPEGTran.compress_losslessly SAMPLE_IMAGE, new_image
+
+
+    assert File.size(SAMPLE_IMAGE) > File.size(new_image)
+  end
+end

data/test/test_JavaScriptProcessor.rb

@@ -0,0 +1,63 @@
+#
+# File::      test_JavaScriptProcessor.rb
+# Copyright:: 2009
+# License::   GPL
+#
+# Unit tests for the JavaScriptProcessor
+#
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'test/unit'
+require 'sitefuel/processors/JavaScriptProcessor'
+
+include SiteFuel::Processor
+
+class TestJavaScriptProcessor < Test::Unit::TestCase
+
+  def test_file_extensions
+    assert JavaScriptProcessor.processes_file?('foo.js')
+  end
+
+  def test_name
+    assert_equal 'JS', JavaScriptProcessor.processor_name
+  end
+
+  # CDATA fields need to be left intact
+  def test_cdata
+    assert_equal(
+      "//<![CDATA[\nfunction foo(){12}\n//]]>",
+
+      JavaScriptProcessor.filter_string(:minify,
+        %q{
+          //<![CDATA[
+          function foo() {
+            12
+          }
+          //]]>
+        }
+      )
+    )
+  end
+
+  # test comment-only javascripts
+  def test_comments_only
+    assert_equal(
+      '',
+      JavaScriptProcessor.filter_string(:minify,
+        %q{
+          // just a comment....
+        }
+      )
+    )
+
+    assert_equal(
+      '',
+      JavaScriptProcessor.filter_string(:minify,
+        %q{//just a comment...}
+      )
+    )
+  end
+
+end
+

data/test/test_PHPProcessor.rb

@@ -0,0 +1,51 @@
+#
+# File::       test_PHPProcessor.rb
+# Author::     wkm
+# Copyright::  2009
+# License::    GPL
+#
+# Unit tests for the PHPProcessor
+#
+
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+
+require 'test/unit'
+require 'sitefuel/processors/PHPProcessor'
+
+include SiteFuel::Processor
+
+class TestPHPProcessor < Test::Unit::TestCase
+
+  def test_file_extensions
+    assert PHPProcessor.processes_file?('test.php')
+    assert PHPProcessor.processes_file?('test.php5')
+    assert PHPProcessor.processes_file?('test.phtml')
+  end
+
+  def test_name
+    assert_equal 'PHP', PHPProcessor.processor_name
+  end
+
+  # test support for PHP documents
+  def test_php
+    assert_equal(
+      "<html><head><title>PHP test</title></head><body><?php echo '<?>Hello World' ?> <p>Some filler text.</p> <? echo 'some more php! Weeee' ?> </body></html>",
+
+      PHPProcessor.filter_string(:whitespace,
+        %q{
+          <html>
+            <head>
+              <title>PHP test</title>
+            </head>
+            <body>
+              <?php echo '<p>Hello World</p>' ?>
+              <p>Some filler text.</p>
+              <? echo 'some more php! Weeee' ?>
+            </body>
+          </html>
+        }
+      )
+    )
+  end
+  
+end

data/test/test_PNGCrush.rb

@@ -0,0 +1,58 @@
+#
+# File::        test_PNGCrush.m
+# Author::      wkm
+# Copyright::   2009
+# License::     GPL
+#
+# Unit tests for the PNGCrush wrapper.
+#
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'sitefuel/external/ExternalProgramTestCase'
+require 'sitefuel/external/PNGCrush'
+
+include SiteFuel::External
+
+class TestPNGCrush < Test::Unit::TestCase
+  include ExternalProgramTestCase
+
+  SAMPLE_IMAGE = 'test/test_images/sample_png01.png'
+
+  def test_option
+    # test that we have all options
+    assert PNGCrush.option?(:version)
+    assert PNGCrush.option?(:brute)
+    assert PNGCrush.option?(:reduce)
+    assert PNGCrush.option?(:method)
+    assert PNGCrush.option?(:input)
+    assert PNGCrush.option?(:output)
+
+    assert_equal '-brute',   PNGCrush.option_template(:brute)
+#    assert_equal '-version', PNGCrush.option_template(:version)
+  end
+
+  def test_brute
+    # test the crush capability against one of the test files
+    new_image = './test/test_images/tmp-sample_png01-brute.png'
+    PNGCrush.brute SAMPLE_IMAGE, new_image
+
+    assert File.size(SAMPLE_IMAGE) > File.size(new_image)
+
+  end
+
+  def test_quick
+    new_image = './test/test_images/tmp-sample_png01-quick.png'
+    PNGCrush.quick SAMPLE_IMAGE, new_image
+
+    assert File.size(SAMPLE_IMAGE) > File.size(new_image)
+  end
+
+  def test_chainsaw
+    new_image = './test/test_images/tmp-sample_png01-chainsaw.png'
+    PNGCrush.chainsaw SAMPLE_IMAGE, new_image
+
+    assert File.size(SAMPLE_IMAGE) > File.size(new_image)
+  end
+
+end

data/test/test_PNGProcessor.rb

@@ -0,0 +1,32 @@
+#
+# File::           test_PNGProcessor.rb
+# Author::         wkm
+# Copyright::      2009
+# License::        GPL
+#
+# Unit tests for the PNGProcessor
+#
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'test/unit'
+require 'sitefuel/processors/PNGProcessor'
+
+include SiteFuel::Processor
+
+class TestPNGProcessor < Test::Unit::TestCase
+  def test_file_extensions
+    assert_equal false, PNGProcessor.processes_file?("testpng")
+
+    assert PNGProcessor.processes_file?("test.png")
+    assert PNGProcessor.processes_file?("test.PNG")
+  end
+
+  def test_name
+    assert_equal 'PNG', PNGProcessor.processor_name
+  end
+
+  def test_crush
+    PNGProcessor.process_file('test/test_images/sample_png01.png')
+  end
+end

data/test/test_RHTMLProcessor.rb

@@ -0,0 +1,62 @@
+#
+# File::       test_RHTMLProcessor.rb
+# Author::     wkm
+# Copyright::  2009
+# License::    GPL
+#
+# Unit tests for the RHTMLProcessor
+#
+
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+
+require 'test/unit'
+require 'sitefuel/processors/RHTMLProcessor'
+
+include SiteFuel::Processor
+
+class TestRHTMLProcessor < Test::Unit::TestCase
+
+  def test_file_extensions
+    assert RHTMLProcessor.processes_file?('test.rhtml')
+    assert RHTMLProcessor.processes_file?('test.erb')
+  end
+
+  def test_name
+    assert_equal 'RHTML', RHTMLProcessor.processor_name
+  end
+
+  # test support for RHTML documents (really testing hpricot here)
+  def test_rhtml
+    assert_equal(
+      "<html><head><title>Goodbye, World.</title></head><body><h1>Goodbye!</h1> <% 5.times do || %> <p>and again...</p> <% end %> </body></html>",
+      RHTMLProcessor.filter_string(:whitespace,
+        %q{
+          <html>
+            <head>
+              <title>Goodbye, World.</title>
+            </head>
+            <body>
+              <h1>Goodbye!</h1>
+              <% 5.times do || %>
+                <p>and again...</p>
+              <% end %>
+            </body>
+          </html>
+        }
+      )
+    )
+
+    assert_equal(
+      "<html> <%= page.title %> </html>",
+
+      RHTMLProcessor.filter_string(:whitespace,
+        %q{
+          <html>
+            <%= page.title %>
+          </html>
+        }
+      )
+    )
+  end
+
+end

data/test/test_SASSProcessor.rb

@@ -0,0 +1,68 @@
+#
+# File::       test_SASSProcessor.rb
+# Author::     wkm
+# Copyright::  2009
+# License::    GPL
+#
+# Unit tests for the SASSProcessor
+#
+
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+
+require 'test/unit'
+require 'sitefuel/extensions/StringFormatting'
+require 'sitefuel/processors/SASSProcessor'
+
+include SiteFuel::Processor
+
+class TestSASSProcessor < Test::Unit::TestCase
+  def test_file_extensions
+
+    # negative tests
+    assert_equal false, SASSProcessor.processes_file?("testsass")
+
+    # positive tests
+    assert SASSProcessor.processes_file?("test.sass")
+    assert SASSProcessor.processes_file?("test.SASS")
+
+  end
+
+  def test_name
+    assert_equal "SASS", SASSProcessor.processor_name
+  end
+
+  def test_generate
+    assert_equal(
+      %q{
+        #main {
+          background-color: #ff0000;
+          width: 98%; }
+      }.align.strip,
+
+      SASSProcessor.filter_string(:generate,
+        %q{
+          // from the SASS documentation
+          #main
+            background-color: #ff0000
+            width: 98%
+        }.align
+      ).strip
+    )
+  end
+
+  def test_minify
+    assert_equal(
+      "#main{background-color:#f00;width:98%;}",
+
+      SASSProcessor.filter_string([:generate, :minify],
+        %q{
+          // from the SASS documentation
+          #main
+            background-color: #ff0000
+            width: 98%
+        }.align
+      ).strip
+    )
+  end
+
+end