# require 'test/unit'
# require 'wlang'
# module WLang
# 
#   # Tests the IntelligentBuffer class
#   class AnagramBugsTest < Test::Unit::TestCase
#     include IntelligentBuffer::Methods
#    
#     def test_on_anagram_spacing_policy
#       WLang::dialect("anagram") do
#         rule '=~' do |parser,offset|
#           match, reached = parser.parse(offset, "wlang/dummy")
#           block, reached = parser.parse_block(reached, "wlang/dummy")
# 
#           # puts "Here is the block ==="
#           # puts "#{block.gsub(/ /, '.').gsub(/\n/, "\\n\n")}"
#           # puts "=== Here is the block"
# 
#           [block, reached]
#         end
#       end
#       template = %q{
#         =~{String}{
#           this is an anagram template
#         }
#       }.gsub(/^ {8}/, '').strip
#       result = template.wlang_instantiate({}, "anagram")
#       #assert IntelligentBuffer===result
# #      assert_equal("this is an anagram template", result)
# 
#       template = %q{
#         =~{String}{
#           module MyModule
#           end
#         }
#       }.gsub(/^ {8}/, '').strip
#       result = template.wlang_instantiate({}, "anagram")
#       #assert IntelligentBuffer===result
#       assert_equal("module MyModule\nend\n", result)
#     end
#     
#     def test_missing_end_bug
#       WLang::dialect("anagram") do
#         rules WLang::RuleSet::Basic
#         rules WLang::RuleSet::Imperative
#         rule '=~' do |parser,offset|
#           match, reached = parser.parse(offset, "wlang/dummy")
#           match = parser.evaluate(match)
#           block, reached = parser.parse_block(reached, "wlang/dummy")
#           block = block.strip_block(block)
#           block = block.tabto(block,0)
#           parser.evaluate("matching_rules") << [match, block]
#     
#           # puts "Here is the block ==="
#           # puts "#{block.gsub(/ /, '.').gsub(/\n/, "\\n\n")}"
#           # puts "=== Here is the block"
#     
#           ["", reached]
#         end
#         rule '+~' do |parser,offset|
#           what, reached = parser.parse(offset, "wlang/dummy")
#           evaluated = parser.evaluate(what)
#           raise "Unexpected case, #{what} leads to nil" unless evaluated
#     
#           rules = parser.evaluate("matching_rules")
#           found = rules.find {|r| r[0]===evaluated}
#           raise "Unexpected case: no match for #{what.class}" unless found
#     
#           context = {"n" => evaluated, "matching_rules" => rules}
#           inst = found[1].wlang_instantiate(context, "anagram")
#           
#           inst2 = inst.gsub(/ /, '.').gsub(/\n/, "\\n\n")
#           # puts "Here is the inst ==="
#           # puts "#{inst2}"
#           # puts "=== Here is the inst"
#           
#           found = [inst, reached]
#         end
#       end
#       template = %Q{
#         =~{Array}{
#           module MyModule
#             *{n as c}{
#               +~{c}
#             }
#           end
#         }
#         =~{Integer}{
#           +{n}
#         }
#         +~{n}
#       }.gsub(/ {8}/,'').strip
#       context = {'n' => [10, 20, 30], 'matching_rules' => []}
#       result = template.wlang_instantiate(context, "anagram")
#     
#       # template = template.gsub(/ /, '.').gsub(/\n/, "\\n\n")
#       # puts "Here is the template ==="
#       # puts "#{template}"
#       # puts "=== Here is the template"
#     
#       # result = result.gsub(/ /, '.').gsub(/\n/, "\\n\n")
#       # puts "Here is the result ==="
#       # puts "#{result}"
#       # puts "=== Here is the result"
#       result = result.strip
#       expected = "module MyModule\n  10\n  \n  20\n  \n  30\n\nend"
#       assert_equal expected, result
#     end
#     
#   end
# end