haml-edge 2.1.1

data/test/haml/templates/just_stuff.haml

@@ -0,0 +1,83 @@
+!!! XML
+!!! XML ISO-8859-1
+!!! XML UtF-8 Foo bar
+!!!
+!!! 1.1
+!!! 1.1 Strict
+!!! Strict foo bar
+!!! FRAMESET
+%strong{:apos => "Foo's bar!"} Boo!
+== Embedded? false!
+== Embedded? #{true}!
+- embedded = true
+== Embedded? #{embedded}!
+== Embedded? #{"twice! #{true}"}!
+== Embedded? #{"one"} af"t"er #{"another"}!
+%p== Embedded? false!
+%p== Embedded? #{true}!
+- embedded = true
+%p== Embedded? #{embedded}!
+%p== Embedded? #{"twice! #{true}"}!
+%p== Embedded? #{"one"} af"t"er #{"another"}!
+= "stuff followed by whitespace"
+  
+- if true
+
+  %strong block with whitespace
+%p
+  \Escape
+  \- character
+  \%p foo
+  \yee\ha
+/ Short comment
+/
+  This is a block comment
+  cool, huh?
+  %strong there can even be sub-tags!
+  = "Or script!"
+-# Haml comment
+-#
+  Nested Haml comment
+  - raise 'dead'
+%p{ :class => "" } class attribute should appear!
+%p{ :gorbachev => nil } this attribute shouldn't appear
+/[if lte IE6] conditional comment!
+/[if gte IE7]
+  %p Block conditional comment
+  %div
+    %h1 Cool, eh?
+/[if gte IE5.2]
+  Woah a period.
+= "test" |
+  "test" |
+-# Hard tabs shouldn't throw errors.
+	
+- case :foo
+- when :bar
+  %br Blah
+- when :foo
+  %br
+- case :foo
+  - when :bar
+    %meta{ :foo => 'blah'}
+  - when :foo
+    %meta{ :foo => 'bar'}
+%img
+%hr
+%link
+%script Inline content
+%br
+  Nested content
+%p.foo{:class => true ? 'bar' : 'baz'}[@article] Blah
+%p.foo{:class => false ? 'bar' : ''}[@article] Blah
+%p.qux{:class => 'quux'}[@article] Blump
+== #{"Woah inner quotes"}
+%p.dynamic_quote{:quotes => "single '", :dyn => 1 + 2}
+%p.dynamic_self_closing{:dyn => 1 + 2}/
+%body
+  :plain
+    hello
+  %div
+
+    %img
+

data/test/haml/templates/list.haml

@@ -0,0 +1,12 @@
+!Not a Doctype!
+%ul
+  %li a
+  %li b
+  %li c
+  %li d
+  %li e
+  %li f
+  %li g
+  %li h
+  %li i
+

data/test/haml/templates/nuke_inner_whitespace.haml

@@ -0,0 +1,32 @@
+%p
+  %q< Foo
+%p
+  %q{:a => 1 + 1}< Foo
+%p
+  %q<= "Foo\nBar"
+%p
+  %q{:a => 1 + 1}<= "Foo\nBar"
+%p
+  %q<
+    Foo
+    Bar
+%p
+  %q{:a => 1 + 1}<
+    Foo
+    Bar
+%p
+  %q<
+    %div
+      Foo
+      Bar
+%p
+  %q{:a => 1 + 1}<
+    %div
+      Foo
+      Bar
+
+-# Regression test
+%p
+  %q<= "foo"
+  %q{:a => 1 + 1}
+    bar

data/test/haml/templates/nuke_outer_whitespace.haml

@@ -0,0 +1,144 @@
+%p
+  %p
+    %q>
+      Foo
+%p
+  %p
+    %q{:a => 1 + 1}>
+      Foo
+%p
+  %p
+    %q> Foo
+%p
+  %p
+    %q{:a => 1 + 1}> Foo
+%p
+  %p
+    %q>
+      = "Foo"
+%p
+  %p
+    %q{:a => 1 + 1}>
+      = "Foo"
+%p
+  %p
+    %q>= "Foo"
+%p
+  %p
+    %q{:a => 1 + 1}>= "Foo"
+%p
+  %p
+    %q>
+      = "Foo\nBar"
+%p
+  %p
+    %q{:a => 1 + 1}>
+      = "Foo\nBar"
+%p
+  %p
+    %q>= "Foo\nBar"
+%p
+  %p
+    %q{:a => 1 + 1}>= "Foo\nBar"
+%p
+  %p
+    - tab_up
+    foo
+    %q>
+      Foo
+    bar
+    - tab_down
+%p
+  %p
+    - tab_up
+    foo
+    %q{:a => 1 + 1}>
+      Foo
+    bar
+    - tab_down
+%p
+  %p
+    - tab_up
+    foo
+    %q> Foo
+    bar
+    - tab_down
+%p
+  %p
+    - tab_up
+    foo
+    %q{:a => 1 + 1}> Foo
+    bar
+    - tab_down
+%p
+  %p
+    - tab_up
+    foo
+    %q>
+      = "Foo"
+    bar
+    - tab_down
+%p
+  %p
+    - tab_up
+    foo
+    %q{:a => 1 + 1}>
+      = "Foo"
+    bar
+    - tab_down
+%p
+  %p
+    - tab_up
+    foo
+    %q>= "Foo"
+    bar
+    - tab_down
+%p
+  %p
+    - tab_up
+    foo
+    %q{:a => 1 + 1}>= "Foo"
+    bar
+    - tab_down
+%p
+  %p
+    - tab_up
+    foo
+    %q>
+      = "Foo\nBar"
+    bar
+    - tab_down
+%p
+  %p
+    - tab_up
+    foo
+    %q{:a => 1 + 1}>
+      = "Foo\nBar"
+    bar
+    - tab_down
+%p
+  %p
+    - tab_up
+    foo
+    %q>= "Foo\nBar"
+    bar
+    - tab_down
+%p
+  %p
+    - tab_up
+    foo
+    %q{:a => 1 + 1}>= "Foo\nBar"
+    bar
+    - tab_down
+%p
+  %p
+    %q>
+%p
+  %p
+    %q>/
+%p
+  %p
+    %q{:a => 1 + 1}>
+%p
+  %p
+    %q{:a => 1 + 1}>/

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,87 @@
+#!/usr/bin/env ruby
+require File.dirname(__FILE__) + '/../test_helper'
+
+class UtilTest < Test::Unit::TestCase
+  include Haml::Util
+
+  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'