drnic-haml 2.3.0

data/test/haml/templates/original_engine.haml

@@ -0,0 +1,17 @@
+!!!
+%html
+  %head
+    %title Stop. haml time
+    #content
+      %h1 This is a title!
+      %p Lorem ipsum dolor sit amet, consectetur adipisicing elit
+      %p{:class => 'foo'} Cigarettes!
+      %h2 Man alive!
+      %ul.things
+        %li Slippers
+        %li Shoes
+        %li Bathrobe
+        %li Coffee
+      %pre
+        This is some text that's in a pre block!
+        Let's see what happens when it's rendered! What about now, since we're on a new line?

data/test/haml/templates/partial_layout.haml

@@ -0,0 +1,3 @@
+%h1 Partial layout used with for block:
+- render :layout => 'layout_for_partial.haml' do
+  %p Some content within a layout

data/test/haml/templates/partialize.haml

@@ -0,0 +1 @@
+= render :file => "#{name}.haml"

data/test/haml/templates/partials.haml

@@ -0,0 +1,12 @@
+- @foo = 'value one'
+%p
+  @foo = 
+  = @foo
+- @foo = 'value two'
+%p
+  @foo = 
+  = @foo
+= test_partial "partial"
+%p
+  @foo = 
+  = @foo

data/test/haml/templates/render_layout.haml

@@ -0,0 +1,2 @@
+= render :layout => 'layout' do
+  During

data/test/haml/templates/silent_script.haml

@@ -0,0 +1,40 @@
+%div
+  %h1 I can count!
+  - (1..20).each do |i|
+    = i
+  %h1 I know my ABCs!
+  %ul
+    - ('a'..'z').each do |i|
+      %li= i
+  %h1 I can catch errors!
+  - begin
+    - String.silly
+  - rescue NameError => e
+    = "Oh no! \"#{e}\" happened!"
+  %p
+    "false" is:
+    - if false
+      = "true"
+    - else
+      = "false"
+  - if true
+    - 5.times do |i|
+      - if i % 2 == 1
+        Odd!
+      - else
+        Even!
+  - else
+    = "This can't happen!"
+- 13 |
+.foo
+  %strong foobar
+- 5.times   |
+    do      |
+      |a|   |
+  %strong= a
+.test
+  - "foo  |
+     bar  |
+     baz" |
+    
+  %p boom

data/test/haml/templates/standard.haml

@@ -0,0 +1,42 @@
+!!!
+%html{:xmlns => "http://www.w3.org/1999/xhtml", "xml:lang" => "en-US", "lang" => "en-US"}
+  %head
+    %title Hampton Catlin Is Totally Awesome
+    %meta{"http-equiv" => "Content-Type", :content => "text/html; charset=utf-8"}
+  %body
+    / You're In my house now!
+    .header
+      Yes, ladies and gentileman. He is just that egotistical.
+      Fantastic! This should be multi-line output
+      The question is if this would translate! Ahah!
+      = 1 + 9 + 8 + 2 #numbers should work and this should be ignored
+    #body= " Quotes should be loved! Just like people!"
+    - 120.times do |number|
+      = number
+    Wow.|
+    %p
+      = "Holy cow        " + |
+        "multiline       " + |      
+        "tags!           " + |
+        "A pipe (|) even!"   |
+      = [1, 2, 3].collect { |n| "PipesIgnored|" }.join
+      = [1, 2, 3].collect { |n|     |
+          n.to_s                    |
+        }.join("|")                 |
+    %div.silent
+      - foo = String.new
+      - foo << "this"
+      - foo << " shouldn't"
+      - foo << " evaluate"
+      = foo + " but now it should!"
+      -# Woah crap a comment!
+
+    -# That was a line that shouldn't close everything.
+    %ul.really.cool
+      - ('a'..'f').each do |a|
+        %li= a
+    #combo.of_divs_with_underscore= @should_eval = "with this text"
+    = "foo".each_line do |line|
+      - nil
+    .footer
+      %strong.shout= "This is a really long ruby quote. It should be loved and wrapped because its more than 50 characters. This value may change in the future and this test may look stupid. \nSo, I'm just making it *really* long. God, I hope this works"

data/test/haml/templates/standard_ugly.haml

@@ -0,0 +1,42 @@
+!!!
+%html{:xmlns => "http://www.w3.org/1999/xhtml", "xml:lang" => "en-US", "lang" => "en-US"}
+  %head
+    %title Hampton Catlin Is Totally Awesome
+    %meta{"http-equiv" => "Content-Type", :content => "text/html; charset=utf-8"}
+  %body
+    / You're In my house now!
+    .header
+      Yes, ladies and gentileman. He is just that egotistical.
+      Fantastic! This should be multi-line output
+      The question is if this would translate! Ahah!
+      = 1 + 9 + 8 + 2 #numbers should work and this should be ignored
+    #body= " Quotes should be loved! Just like people!"
+    - 120.times do |number|
+      = number
+    Wow.|
+    %p
+      = "Holy cow        " + |
+        "multiline       " + |      
+        "tags!           " + |
+        "A pipe (|) even!"   |
+      = [1, 2, 3].collect { |n| "PipesIgnored|" }.join
+      = [1, 2, 3].collect { |n|     |
+          n.to_s                    |
+        }.join("|")                 |
+    %div.silent
+      - foo = String.new
+      - foo << "this"
+      - foo << " shouldn't"
+      - foo << " evaluate"
+      = foo + " but now it should!"
+      -# Woah crap a comment!
+
+    -# That was a line that shouldn't close everything.
+    %ul.really.cool
+      - ('a'..'f').each do |a|
+        %li= a
+    #combo.of_divs_with_underscore= @should_eval = "with this text"
+    = "foo".each_line do |line|
+      - nil
+    .footer
+      %strong.shout= "This is a really long ruby quote. It should be loved and wrapped because its more than 50 characters. This value may change in the future and this test may look stupid. \nSo, I'm just making it *really* long. God, I hope this works"

data/test/haml/templates/tag_parsing.haml

@@ -0,0 +1,21 @@
+%div.tags
+  %foo 1
+  %FOO 2
+  %fooBAR 3
+  %fooBar 4
+  %foo_bar 5
+  %foo-bar 6
+  %foo:bar 7
+  %foo.bar 8
+  %fooBAr_baz:boom_bar 9
+  %foo13 10
+  %foo2u 11
+%div.classes
+  %p.foo.bar#baz#boom
+  .fooBar a
+  .foo-bar b
+  .foo_bar c
+  .FOOBAR d
+  .foo16 e
+  .123 f
+  .foo2u g

data/test/haml/templates/very_basic.haml

@@ -0,0 +1,4 @@
+!!!
+%html
+  %head
+  %body

data/test/haml/templates/whitespace_handling.haml

@@ -0,0 +1,87 @@
+#whitespace_test
+  = test_partial "text_area", :value => "Oneline"
+  = test_partial "text_area", :value => "Two\nlines"
+  ~ test_partial "text_area", :value => "Oneline"
+  ~ test_partial "text_area", :value => "Two\nlines"
+  #flattened~ test_partial "text_area", :value => "Two\nlines"
+.hithere
+  ~ "Foo bar"
+  ~ "<pre>foo bar</pre>"
+  ~ "<pre>foo\nbar</pre>"
+  %p~ "<pre>foo\nbar</pre>"
+  %p~ "foo\nbar"
+.foo
+  ~ 13
+  ~ "<textarea>\na\n</textarea>".each_line do |l|
+    - haml_concat l.strip
+#whitespace_test
+  = test_partial "text_area", :value => "Oneline"
+  = test_partial "text_area", :value => "Two\nlines"
+  = find_and_preserve test_partial("text_area", :value => "Oneline")
+  = find_and_preserve test_partial("text_area", :value => "Two\nlines")
+  #flattened= find_and_preserve test_partial("text_area", :value => "Two\nlines")
+.hithere
+  = find_and_preserve("Foo bar")
+  = find_and_preserve("<pre>foo bar</pre>")
+  = find_and_preserve("<pre>foo\nbar</pre>")
+  %p= find_and_preserve("<pre>foo\nbar</pre>")
+  %p= find_and_preserve("foo\nbar")
+  %pre
+    :preserve
+                                                       ___
+                                                    ,o88888
+                                                 ,o8888888'
+                           ,:o:o:oooo.        ,8O88Pd8888"
+                       ,.::.::o:ooooOoOoO. ,oO8O8Pd888'"
+                     ,.:.::o:ooOoOoOO8O8OOo.8OOPd8O8O"
+                    , ..:.::o:ooOoOOOO8OOOOo.FdO8O8"
+                   , ..:.::o:ooOoOO8O888O8O,COCOO"
+                  , . ..:.::o:ooOoOOOO8OOOOCOCO"
+                   . ..:.::o:ooOoOoOO8O8OCCCC"o
+                      . ..:.::o:ooooOoCoCCC"o:o
+                      . ..:.::o:o:,cooooCo"oo:o:
+                   `   . . ..:.:cocoooo"'o:o:::'
+                   .`   . ..::ccccoc"'o:o:o:::'
+                  :.:.    ,c:cccc"':.:.:.:.:.'
+                ..:.:"'`::::c:"'..:.:.:.:.:.'  http://www.chris.com/ASCII/
+              ...:.'.:.::::"'    . . . . .'
+             .. . ....:."' `   .  . . ''
+           . . . ...."'
+           .. . ."'     -hrr-
+          .
+
+
+                                                    It's a planet!
+      %strong This shouldn't be bold!
+  %strong This should!
+  %textarea
+    :preserve
+            ___           ___           ___           ___ 
+           /\__\         /\  \         /\__\         /\__\
+          /:/  /        /::\  \       /::|  |       /:/  /
+         /:/__/        /:/\:\  \     /:|:|  |      /:/  / 
+        /::\  \ ___   /::\~\:\  \   /:/|:|__|__   /:/  /  
+       /:/\:\  /\__\ /:/\:\ \:\__\ /:/ |::::\__\ /:/__/   
+       \/__\:\/:/  / \/__\:\/:/  / \/__/~~/:/  / \:\  \   
+            \::/  /       \::/  /        /:/  /   \:\  \  
+            /:/  /        /:/  /        /:/  /     \:\  \ 
+           /:/  /        /:/  /        /:/  /       \:\__\
+           \/__/         \/__/         \/__/         \/__/
+           
+           Many
+                         thanks
+                 to
+                                      http://www.network-science.de/ascii/
+    %strong indeed!
+.foo
+  = find_and_preserve(13)
+%pre
+  :preserve
+           __     ______        __               ______
+    .----.|  |--.|__    |.----.|  |--..--------.|  __  |
+    |  __||     ||__    ||  __||    < |        ||  __  |
+    |____||__|__||______||____||__|__||__|__|__||______|
+%pre
+  :preserve
+    foo
+  bar

data/test/haml/util_test.rb

@@ -0,0 +1,92 @@
+#!/usr/bin/env ruby
+require File.dirname(__FILE__) + '/../test_helper'
+require 'pathname'
+
+class UtilTest < Test::Unit::TestCase
+  include Haml::Util
+
+  def test_scope
+    assert(File.exist?(scope("Rakefile")))
+  end
+
+  def test_to_hash
+    assert_equal({
+        :foo => 1,
+        :bar => 2,
+        :baz => 3
+      }, to_hash([[:foo, 1], [:bar, 2], [:baz, 3]]))
+  end
+
+  def test_map_keys
+    assert_equal({
+        "foo" => 1,
+        "bar" => 2,
+        "baz" => 3
+      }, map_keys({:foo => 1, :bar => 2, :baz => 3}) {|k| k.to_s})
+  end
+
+  def test_map_vals
+    assert_equal({
+        :foo => "1",
+        :bar => "2",
+        :baz => "3"
+      }, map_vals({:foo => 1, :bar => 2, :baz => 3}) {|k| k.to_s})
+  end
+
+  def test_map_hash
+    assert_equal({
+        "foo" => "1",
+        "bar" => "2",
+        "baz" => "3"
+      }, map_hash({:foo => 1, :bar => 2, :baz => 3}) {|k, v| [k.to_s, v.to_s]})
+  end
+
+  def test_powerset
+    return unless Set[Set[]] == Set[Set[]] # There's a bug in Ruby 1.8.6 that breaks nested set equality
+    assert_equal([[].to_set].to_set,
+      powerset([]))
+    assert_equal([[].to_set, [1].to_set].to_set,
+      powerset([1]))
+    assert_equal([[].to_set, [1].to_set, [2].to_set, [1, 2].to_set].to_set,
+      powerset([1, 2]))
+    assert_equal([[].to_set, [1].to_set, [2].to_set, [3].to_set,
+        [1, 2].to_set, [2, 3].to_set, [1, 3].to_set, [1, 2, 3].to_set].to_set,
+      powerset([1, 2, 3]))
+  end
+
+  def test_has
+    assert(has?(:instance_method, String, :chomp!))
+    assert(has?(:private_instance_method, Haml::Engine, :set_locals))
+  end
+
+  def test_enum_with_index
+    assert_equal(%w[foo0 bar1 baz2],
+      enum_with_index(%w[foo bar baz]).map {|s, i| "#{s}#{i}"})
+  end
+
+  def test_def_static_method
+    klass = Class.new
+    def_static_method(klass, :static_method, [:arg1, :arg2],
+      :sarg1, :sarg2, <<RUBY)
+      s = "Always " + arg1
+      s << " <% if sarg1 %>and<% else %>but never<% end %> " << arg2
+
+      <% if sarg2 %>
+        s << "."
+      <% end %>
+RUBY
+    c = klass.new
+    assert_equal("Always brush your teeth and comb your hair.",
+      c.send(static_method_name(:static_method, true, true),
+        "brush your teeth", "comb your hair"))
+    assert_equal("Always brush your teeth and comb your hair",
+      c.send(static_method_name(:static_method, true, false),
+        "brush your teeth", "comb your hair"))
+    assert_equal("Always brush your teeth but never play with fire.",
+      c.send(static_method_name(:static_method, false, true),
+        "brush your teeth", "play with fire"))
+    assert_equal("Always brush your teeth but never play with fire",
+      c.send(static_method_name(:static_method, false, false),
+        "brush your teeth", "play with fire"))
+  end
+end

data/test/linked_rails.rb

@@ -0,0 +1,12 @@
+# allows testing with edge Rails by creating a test/rails symlink
+linked_rails = File.dirname(__FILE__) + '/rails'
+
+if File.exists?(linked_rails) && !$:.include?(linked_rails + '/activesupport/lib')
+  puts "[ using linked Rails ]"
+  $:.unshift linked_rails + '/activesupport/lib'
+  $:.unshift linked_rails + '/actionpack/lib'
+else
+  require 'rubygems'
+end
+require 'action_controller'
+require 'action_view'

data/test/sass/css2sass_test.rb

@@ -0,0 +1,294 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../test_helper'
+require 'sass/css'
+
+class CSS2SassTest < Test::Unit::TestCase
+  def test_basic
+    css = <<CSS
+h1 {
+  color: red;
+}
+CSS
+    assert_equal(<<SASS, css2sass(css))
+h1
+  color: red
+SASS
+    assert_equal(<<SASS, css2sass(css, :old => true))
+h1
+  :color red
+SASS
+  end
+
+  def test_nesting
+    assert_equal(<<SASS, css2sass(<<CSS))
+li
+  display: none
+
+  a
+    text-decoration: none
+
+    span
+      color: yellow
+
+    &:hover
+      text-decoration: underline
+SASS
+li {
+  display: none;
+}
+
+li a {
+  text-decoration: none;
+}
+
+li a span {
+  color: yellow;
+}
+
+li a:hover {
+  text-decoration: underline;
+}
+CSS
+  end
+
+  def test_no_nesting_around_rules
+    assert_equal(<<SASS, css2sass(<<CSS))
+div .warning
+  color: #d21a19
+
+
+span .debug
+  cursor: crosshair
+
+
+div .debug
+  cursor: default
+SASS
+div .warning {
+  color: #d21a19; }
+span .debug { 
+  cursor: crosshair;}
+div .debug {
+  cursor: default; }
+CSS
+  end
+
+  def test_comments_multiline
+    css = <<CSS
+/* comment */
+elephant.rawr {
+  rampages: excessively;
+}
+
+/* actual multiline
+  comment */
+span.turkey {
+  isdinner: true;
+}
+
+.turducken {
+  /* Sounds funny
+     doesn't it */
+  chimera: not_really;
+}
+
+#overhere {
+  bored: sorta; /* it's for a good
+  cause */
+  better_than: thread_pools;
+}
+
+#one_more {
+  finally: srsly;
+} /* just a line here */
+CSS
+    sass = <<SASS
+elephant.rawr
+  rampages: excessively
+
+
+span.turkey
+  isdinner: true
+
+
+.turducken
+  chimera: not_really
+
+
+#overhere
+  bored: sorta
+  better_than: thread_pools
+
+
+#one_more
+  finally: srsly
+SASS
+    assert_equal(css2sass(css), sass)
+  end
+
+  def test_fold_commas
+    assert_equal(<<SASS, css2sass(<<CSS))
+li
+  .one, .two
+    color: red
+SASS
+li .one {
+  color: red;
+}
+li .two {
+  color: red;
+}
+CSS
+
+    assert_equal(<<SASS, css2sass(<<CSS))
+.one
+  color: green
+
+
+.two
+  color: green
+  color: red
+
+
+.three
+  color: red
+SASS
+.one, .two {
+  color: green;
+}
+
+.two, .three {
+  color: red;
+}
+CSS
+  end
+
+  def test_bad_formatting
+    assert_equal(<<SASS, css2sass(<<CSS))
+hello
+  parent: true
+
+  there
+    parent: false
+
+  who
+    hoo: false
+
+  why
+    y: true
+
+  when
+    wen: nao
+
+
+down_here
+  yeah: true
+SASS
+hello {
+  parent: true;
+}
+
+hello  there {
+  parent: false;
+}
+hello who  {
+  hoo: false;
+}
+hello why {
+   y: true;
+}
+hello when {
+  wen:  nao;
+}
+
+
+
+down_here { yeah: true; }
+CSS
+  end
+
+  def test_comments_in_selectors
+    assert_equal(<<SASS, css2sass(<<CSS))
+.js
+  #location-navigation-form .form-submit, #business-listing-form .form-submit, #detailTabs ul, #detailsEnhanced #addTags, #locationSearchList, #moreHoods
+    display: none
+
+
+#navListLeft
+  display: none
+SASS
+.js #location-navigation-form .form-submit,
+.js #business-listing-form .form-submit,
+.js #detailTabs ul,
+/* .js #addReview, */
+/* .js #addTags, */
+.js #detailsEnhanced #addTags,
+.js #locationSearchList,
+.js #moreHoods,
+#navListLeft
+  { display: none; }
+CSS
+  end
+
+  # Error reporting
+
+  def test_error_reporting
+    css2sass("foo")
+    assert(false, "Expected exception")
+  rescue Sass::SyntaxError => err
+    assert_equal(1, err.sass_line)
+    assert_equal('Invalid CSS after "foo": expected "{", was ""', err.message)
+  end
+
+  def test_error_reporting_in_line
+    css2sass("foo\nbar }\nbaz")
+    assert(false, "Expected exception")
+  rescue Sass::SyntaxError => err
+    assert_equal(2, err.sass_line)
+    assert_equal('Invalid CSS after "bar ": expected "{", was "}"', err.message)
+  end
+
+  def test_error_truncate_after
+    css2sass("#{"a" * 15}foo")
+    assert(false, "Expected exception")
+  rescue Sass::SyntaxError => err
+    assert_equal(1, err.sass_line)
+    assert_equal('Invalid CSS after "...aaaaaaaaaaaafoo": expected "{", was ""', err.message)
+  end
+
+  def test_error_truncate_was
+    css2sass("foo }#{"a" * 15}")
+    assert(false, "Expected exception")
+  rescue Sass::SyntaxError => err
+    assert_equal(1, err.sass_line)
+    assert_equal('Invalid CSS after "foo ": expected "{", was "}aaaaaaaaaaaaaa..."', err.message)
+  end
+
+  # Encodings
+
+  unless Haml::Util.ruby1_8?
+    def test_encoding_error
+      css2sass("foo\nbar\nb\xFEaz".force_encoding("utf-8"))
+      assert(false, "Expected exception")
+    rescue Sass::SyntaxError => e
+      assert_equal(3, e.sass_line)
+      assert_equal('Invalid UTF-8 character "\xFE"', e.message)
+    end
+
+    def test_ascii_incompatible_encoding_error
+      template = "foo\nbar\nb_z".encode("utf-16le")
+      template[9] = "\xFE".force_encoding("utf-16le")
+      css2sass(template)
+      assert(false, "Expected exception")
+    rescue Sass::SyntaxError => e
+      assert_equal(3, e.sass_line)
+      assert_equal('Invalid UTF-16LE character "\xFE"', e.message)
+    end
+  end
+
+  private
+
+  def css2sass(string, opts={})
+    Sass::CSS.new(string, opts).render
+  end
+end