haml_ejs 0.0.1

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,10 @@
+%h1 Partial layout used with for block:
+- if Haml::Util.ap_geq?("3.2.0.alpha1")
+  = render :layout => 'layout_for_partial' do
+    %p Some content within a layout
+- elsif Haml::Util.ap_geq_3?
+  = render :layout => 'layout_for_partial.haml' do
+    %p Some content within a layout
+- else
+  - 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,43 @@
+!!!
+%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{:code => 1 + 2}
+      = "Holy cow        " + |
+        "multiline       " + |      
+        "tags!           " + |
+        "A pipe (|) even!"   |
+      = [1, 2, 3].collect { |n| "PipesIgnored|" }.join
+      = [1, 2, 3].collect { |n|     |
+          n.to_s                    |
+        }.join("|")                 |
+    - bar = 17
+    %div.silent{:foo => bar}
+      - 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,43 @@
+!!!
+%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{:code => 1 + 2}
+      = "Holy cow        " + |
+        "multiline       " + |      
+        "tags!           " + |
+        "A pipe (|) even!"   |
+      = [1, 2, 3].collect { |n| "PipesIgnored|" }.join
+      = [1, 2, 3].collect { |n|     |
+          n.to_s                    |
+        }.join("|")                 |
+    - bar = 17
+    %div.silent{:foo => bar}
+      - 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,300 @@
+#!/usr/bin/env ruby
+require File.dirname(__FILE__) + '/../test_helper'
+require 'pathname'
+
+class UtilTest < Test::Unit::TestCase
+  include Haml::Util
+
+  class Dumpable
+    attr_reader :arr
+    def initialize; @arr = []; end
+    def _before_dump; @arr << :before; end
+    def _after_dump; @arr << :after; end
+    def _around_dump
+      @arr << :around_before
+      yield
+      @arr << :around_after
+    end
+    def _after_load; @arr << :loaded; end
+  end
+
+  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_restrict
+    assert_equal(0.5, restrict(0.5, 0..1))
+    assert_equal(1, restrict(2, 0..1))
+    assert_equal(1.3, restrict(2, 0..1.3))
+    assert_equal(0, restrict(-1, 0..1))
+  end
+
+  def test_merge_adjacent_strings
+    assert_equal(["foo bar baz", :bang, "biz bop", 12],
+      merge_adjacent_strings(["foo ", "bar ", "baz", :bang, "biz", " bop", 12]))
+    str = "foo"
+    assert_equal(["foo foo foo", :bang, "foo foo", 12],
+      merge_adjacent_strings([str, " ", str, " ", str, :bang, str, " ", str, 12]))
+  end
+
+  def test_intersperse
+    assert_equal(["foo", " ", "bar", " ", "baz"],
+      intersperse(%w[foo bar baz], " "))
+    assert_equal([], intersperse([], " "))
+  end
+
+  def test_substitute
+    assert_equal(["foo", "bar", "baz", 3, 4],
+      substitute([1, 2, 3, 4], [1, 2], ["foo", "bar", "baz"]))
+    assert_equal([1, "foo", "bar", "baz", 4],
+      substitute([1, 2, 3, 4], [2, 3], ["foo", "bar", "baz"]))
+    assert_equal([1, 2, "foo", "bar", "baz"],
+      substitute([1, 2, 3, 4], [3, 4], ["foo", "bar", "baz"]))
+
+    assert_equal([1, "foo", "bar", "baz", 2, 3, 4],
+      substitute([1, 2, 2, 2, 3, 4], [2, 2], ["foo", "bar", "baz"]))
+  end
+
+  def test_strip_string_array
+    assert_equal(["foo ", " bar ", " baz"],
+      strip_string_array([" foo ", " bar ", " baz "]))
+    assert_equal([:foo, " bar ", " baz"],
+      strip_string_array([:foo, " bar ", " baz "]))
+    assert_equal(["foo ", " bar ", :baz],
+      strip_string_array([" foo ", " bar ", :baz]))
+  end
+
+  def test_paths
+    assert_equal([[1, 3, 5], [2, 3, 5], [1, 4, 5], [2, 4, 5]],
+      paths([[1, 2], [3, 4], [5]]))
+    assert_equal([[]], paths([]))
+    assert_equal([[1, 2, 3]], paths([[1], [2], [3]]))
+  end
+
+  def test_lcs
+    assert_equal([1, 2, 3], lcs([1, 2, 3], [1, 2, 3]))
+    assert_equal([], lcs([], [1, 2, 3]))
+    assert_equal([], lcs([1, 2, 3], []))
+    assert_equal([1, 2, 3], lcs([5, 1, 4, 2, 3, 17], [0, 0, 1, 2, 6, 3]))
+
+    assert_equal([1], lcs([1, 2, 3, 4], [4, 3, 2, 1]))
+    assert_equal([1, 2], lcs([1, 2, 3, 4], [3, 4, 1, 2]))
+  end
+
+  def test_lcs_with_block
+    assert_equal(["1", "2", "3"],
+      lcs([1, 4, 2, 5, 3], [1, 2, 3]) {|a, b| a == b && a.to_s})
+    assert_equal([-4, 2, 8],
+      lcs([-5, 3, 2, 8], [-4, 1, 8]) {|a, b| (a - b).abs <= 1 && [a, b].max})
+  end
+
+  def test_silence_warnings
+    old_stderr, $stderr = $stderr, StringIO.new
+    warn "Out"
+    assert_equal("Out\n", $stderr.string)
+    silence_warnings {warn "In"}
+    assert_equal("Out\n", $stderr.string)
+  ensure
+    $stderr = old_stderr
+  end
+
+  def test_haml_warn
+    assert_warning("Foo!") {haml_warn "Foo!"}
+  end
+
+  def test_silence_haml_warnings
+    old_stderr, $stderr = $stderr, StringIO.new
+    silence_haml_warnings {warn "Out"}
+    assert_equal("Out\n", $stderr.string)
+    silence_haml_warnings {haml_warn "In"}
+    assert_equal("Out\n", $stderr.string)
+  ensure
+    $stderr = old_stderr
+  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_enum_cons
+    assert_equal(%w[foobar barbaz],
+      enum_cons(%w[foo bar baz], 2).map {|s1, s2| "#{s1}#{s2}"})
+  end
+
+  def test_ord
+    assert_equal(102, ord("f"))
+    assert_equal(98, ord("bar"))
+  end
+
+  def test_flatten
+    assert_equal([1, 2, 3], flatten([1, 2, 3], 0))
+    assert_equal([1, 2, 3], flatten([1, 2, 3], 1))
+    assert_equal([1, 2, 3], flatten([1, 2, 3], 2))
+
+    assert_equal([[1, 2], 3], flatten([[1, 2], 3], 0))
+    assert_equal([1, 2, 3], flatten([[1, 2], 3], 1))
+    assert_equal([1, 2, 3], flatten([[1, 2], 3], 2))
+
+    assert_equal([[[1], 2], [3], 4], flatten([[[1], 2], [3], 4], 0))
+    assert_equal([[1], 2, 3, 4], flatten([[[1], 2], [3], 4], 1))
+    assert_equal([1, 2, 3, 4], flatten([[[1], 2], [3], 4], 2))
+  end
+
+  def test_set_hash
+    assert(set_hash(Set[1, 2, 3]) == set_hash(Set[3, 2, 1]))
+    assert(set_hash(Set[1, 2, 3]) == set_hash(Set[1, 2, 3]))
+
+    s1 = Set[]
+    s1 << 1
+    s1 << 2
+    s1 << 3
+    s2 = Set[]
+    s2 << 3
+    s2 << 2
+    s2 << 1
+    assert(set_hash(s1) == set_hash(s2))
+  end
+
+  def test_set_eql
+    assert(set_eql?(Set[1, 2, 3], Set[3, 2, 1]))
+    assert(set_eql?(Set[1, 2, 3], Set[1, 2, 3]))
+
+    s1 = Set[]
+    s1 << 1
+    s1 << 2
+    s1 << 3
+    s2 = Set[]
+    s2 << 3
+    s2 << 2
+    s2 << 1
+    assert(set_eql?(s1, s2))
+  end
+
+  def test_caller_info
+    assert_equal(["/tmp/foo.rb", 12, "fizzle"], caller_info("/tmp/foo.rb:12: in `fizzle'"))
+    assert_equal(["/tmp/foo.rb", 12, nil], caller_info("/tmp/foo.rb:12"))
+    assert_equal(["(haml)", 12, "blah"], caller_info("(haml):12: in `blah'"))
+    assert_equal(["", 12, "boop"], caller_info(":12: in `boop'"))
+    assert_equal(["/tmp/foo.rb", -12, "fizzle"], caller_info("/tmp/foo.rb:-12: in `fizzle'"))
+    assert_equal(["/tmp/foo.rb", 12, "fizzle"], caller_info("/tmp/foo.rb:12: in `fizzle {}'"))
+  end
+
+  def test_version_gt
+    assert_version_gt("2.0.0", "1.0.0")
+    assert_version_gt("1.1.0", "1.0.0")
+    assert_version_gt("1.0.1", "1.0.0")
+    assert_version_gt("1.0.0", "1.0.0.rc")
+    assert_version_gt("1.0.0.1", "1.0.0.rc")
+    assert_version_gt("1.0.0.rc", "0.9.9")
+    assert_version_gt("1.0.0.beta", "1.0.0.alpha")
+
+    assert_version_eq("1.0.0", "1.0.0")
+    assert_version_eq("1.0.0", "1.0.0.0")
+  end
+
+  def assert_version_gt(v1, v2)
+    #assert(version_gt(v1, v2), "Expected #{v1} > #{v2}")
+    assert(!version_gt(v2, v1), "Expected #{v2} < #{v1}")
+  end
+
+  def assert_version_eq(v1, v2)
+    assert(!version_gt(v1, v2), "Expected #{v1} = #{v2}")
+    assert(!version_gt(v2, v1), "Expected #{v2} = #{v1}")
+  end
+
+  def test_dump_and_load
+    obj = Dumpable.new
+    data = dump(obj)
+    assert_equal([:before, :around_before, :around_after, :after], obj.arr)
+    obj2 = load(data)
+    assert_equal([:before, :around_before, :loaded], obj2.arr)
+  end
+
+  class FooBar
+    def foo
+      Haml::Util.abstract(self)
+    end
+  end
+
+  def test_abstract
+    assert_raise_message(NotImplementedError,
+      "UtilTest::FooBar must implement #foo") {FooBar.new.foo}
+  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