2007-07-24 09:15:27 +00:00
#!/usr/bin/env ruby
2008-06-08 09:54:36 -07:00
require File . dirname ( __FILE__ ) + '/../test_helper'
2009-10-23 12:45:27 -07:00
require File . dirname ( __FILE__ ) + '/html2haml/erb_tests'
2007-07-24 09:15:27 +00:00
require 'haml/html'
class Html2HamlTest < Test :: Unit :: TestCase
def test_empty_render_should_remain_empty
assert_equal '' , render ( '' )
end
2009-12-18 13:29:32 -08:00
def test_doctype
assert_equal '!!!' , render ( " <!DOCTYPE html> " )
assert_equal '!!! 1.1' , render ( '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">' )
assert_equal '!!! Strict' , render ( '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">' )
assert_equal '!!! Frameset' , render ( '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">' )
assert_equal '!!! Mobile 1.2' , render ( '<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.2//EN" "http://www.openmobilealliance.org/tech/DTD/xhtml-mobile12.dtd">' )
assert_equal '!!! Basic 1.1' , render ( '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML Basic 1.1//EN" "http://www.w3.org/TR/xhtml-basic/xhtml-basic11.dtd">' )
assert_equal '!!!' , render ( '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' )
assert_equal '!!! Strict' , render ( '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">' )
assert_equal '!!! Frameset' , render ( '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">' )
assert_equal '!!!' , render ( '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">' )
end
2007-07-24 09:15:27 +00:00
def test_id_and_class_should_be_removed_from_hash
assert_equal '%span#foo.bar' , render ( '<span id="foo" class="bar"> </span>' )
end
def test_no_tag_name_for_div_if_class_or_id_is_present
assert_equal '#foo' , render ( '<div id="foo"> </div>' )
assert_equal '.foo' , render ( '<div class="foo"> </div>' )
end
def test_multiple_class_names
assert_equal '.foo.bar.baz' , render ( '<div class=" foo bar baz "> </div>' )
end
def test_should_have_pretty_attributes
2009-10-05 20:17:33 -07:00
assert_equal ( '%input{:name => "login", :type => "text"}/' ,
2008-11-29 11:52:55 -08:00
render ( '<input type="text" name="login" />' ) )
2009-10-05 20:17:33 -07:00
assert_equal ( '%meta{:content => "text/html", "http-equiv" => "Content-Type"}/' ,
2008-11-29 11:52:55 -08:00
render ( '<meta http-equiv="Content-Type" content="text/html" />' ) )
2007-07-24 09:15:27 +00:00
end
2009-10-20 01:36:20 -07:00
def test_class_with_dot_and_hash
2009-10-20 01:07:14 -07:00
assert_equal ( '%div{:class => "foo.bar"}' , render ( " <div class='foo.bar'></div> " ) )
2009-10-20 01:36:20 -07:00
assert_equal ( '%div{:class => "foo#bar"}' , render ( " <div class='foo # bar'></div> " ) )
assert_equal ( '.foo.bar{:class => "foo#bar foo.bar"}' , render ( " <div class='foo foo # bar bar foo.bar'></div> " ) )
end
def test_id_with_dot_and_hash
assert_equal ( '%div{:id => "foo.bar"}' , render ( " <div id='foo.bar'></div> " ) )
assert_equal ( '%div{:id => "foo#bar"}' , render ( " <div id='foo # bar'></div> " ) )
2009-10-20 01:07:14 -07:00
end
2009-10-05 03:42:15 -07:00
def test_interpolation
assert_equal ( 'Foo \#{bar} baz' , render ( 'Foo #{bar} baz' ) )
end
def test_interpolation_in_attrs
2009-10-05 03:24:35 -07:00
assert_equal ( '%p{:foo => "\#{bar} baz"}' , render ( '<p foo="#{bar} baz"></p>' ) )
2009-10-05 03:42:15 -07:00
end
2009-10-04 21:07:57 -07:00
def test_cdata
assert_equal ( <<HAML.strip, render(<<HTML))
% p
:cdata
< a foo = " bar " baz = " bang " >
< div id = " foo " > flop < / div>
< / a>
HAML
< p > < ! [ CDATA [
< a foo = " bar " baz = " bang " >
< div id = " foo " > flop < / div>
< / a>
] ] > < / p>
HTML
end
2009-10-05 20:17:33 -07:00
def test_self_closing_tag
assert_equal ( " %foo/ " , render ( " <foo /> " ) )
end
2009-10-04 21:36:05 -07:00
def test_inline_text
assert_equal ( " %p foo " , render ( " <p>foo</p> " ) )
end
2009-10-05 19:56:40 -07:00
def test_inline_comment
assert_equal ( " / foo " , render ( " <!-- foo --> " ) )
end
def test_non_inline_comment
assert_equal ( <<HAML.rstrip, render(<<HTML))
/
Foo
Bar
HAML
< ! - - Foo
Bar - - >
HTML
end
2009-10-04 21:36:05 -07:00
def test_non_inline_text
assert_equal ( <<HAML.rstrip, render(<<HTML))
% p
foo
HAML
< p >
foo
< / p>
HTML
assert_equal ( <<HAML.rstrip, render(<<HTML))
% p
foo
HAML
< p >
foo < / p>
HTML
assert_equal ( <<HAML.rstrip, render(<<HTML))
% p
foo
HAML
< p > foo
< / p>
HTML
end
2009-10-05 17:53:35 -07:00
def test_script_tag
assert_equal ( <<HAML.rstrip, render(<<HTML))
:javascript
function foo ( ) {
return " 12 " & " 13 " ;
}
HAML
< script type = " text/javascript " >
function foo ( ) {
return " 12 " & amp ; " 13 " ;
}
< / script>
HTML
end
def test_script_tag_with_cdata
assert_equal ( <<HAML.rstrip, render(<<HTML))
:javascript
function foo ( ) {
return " & " ;
}
HAML
< script type = " text/javascript " >
< ! [ CDATA [
function foo ( ) {
return " & " ;
}
] ] >
< / script>
HTML
end
2009-10-05 19:44:03 -07:00
def test_pre
assert_equal ( <<HAML.rstrip, render(<<HTML))
% pre
:preserve
foo
bar
baz
HAML
< pre > foo
bar
baz < / pre>
HTML
end
def test_pre_code
assert_equal ( <<HAML.rstrip, render(<<HTML))
% pre
% code
:preserve
foo
bar
baz
HAML
< pre > < code > foo
bar
baz < / code>< / pre >
HTML
end
def test_code_without_pre
assert_equal ( <<HAML.rstrip, render(<<HTML))
% code
foo
bar
baz
HAML
< code > foo
bar
baz < / code>
HTML
end
2009-10-10 17:42:57 -07:00
def test_conditional_comment
assert_equal ( <<HAML.rstrip, render(<<HTML))
/ [if foo]
bar
baz
HAML
< ! - - [ if foo ] >
bar
baz
< ! [ endif ] - - >
HTML
end
2009-11-09 19:51:30 -08:00
def test_style_to_css_filter
2009-10-05 18:03:35 -07:00
assert_equal ( <<HAML.rstrip, render_erb(<<HTML))
:css
foo {
bar : baz ;
}
HAML
< style type = " text/css " >
foo {
bar : baz ;
}
< / style>
HTML
end
2009-10-10 17:42:57 -07:00
def test_inline_conditional_comment
assert_equal ( <<HAML.rstrip, render(<<HTML))
/ [if foo] bar baz
HAML
< ! - - [ if foo ] > bar baz < ! [ endif ] - - >
HTML
end
2009-10-23 12:55:28 -07:00
def test_minus_in_tag
assert_equal ( " %p - foo bar - " , render ( " <p>- foo bar -</p> " ) )
end
def test_equals_in_tag
assert_equal ( " %p = foo bar = " , render ( " <p>= foo bar =</p> " ) )
end
def test_hash_in_tag
assert_equal ( " %p # foo bar # " , render ( " <p> # foo bar # </p> " ) )
end
2009-10-23 12:45:27 -07:00
begin
require 'haml/html/erb'
include ErbTests
rescue LoadError = > e
puts " \n ** Couldn't require #{ e . message [ / -- (.*)$ / , 1 ] } , skipping some tests "
2009-10-23 02:17:07 -07:00
end
2009-09-23 15:54:46 -07:00
# Encodings
unless Haml :: Util . ruby1_8?
def test_encoding_error
render ( " foo \n bar \n b \xFE az " . force_encoding ( " utf-8 " ) )
assert ( false , " Expected exception " )
rescue Haml :: Error = > e
assert_equal ( 3 , e . line )
assert_equal ( 'Invalid UTF-8 character "\xFE"' , e . message )
end
def test_ascii_incompatible_encoding_error
template = " foo \n bar \n b_z " . encode ( " utf-16le " )
template [ 9 ] = " \xFE " . force_encoding ( " utf-16le " )
render ( template )
assert ( false , " Expected exception " )
rescue Haml :: Error = > e
assert_equal ( 3 , e . line )
assert_equal ( 'Invalid UTF-16LE character "\xFE"' , e . message )
end
end
2009-11-11 14:46:38 -08:00
# Regression Tests
def test_xhtml_strict_doctype
assert_equal ( '!!! Strict' , render ( <<HTML))
< ! DOCTYPE html PUBLIC " -//W3C//DTD XHTML 1.0 Strict//EN "
" http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd " >
HTML
end
2007-07-24 09:15:27 +00:00
protected
2008-11-29 11:51:04 -08:00
def render ( text , options = { } )
Haml :: HTML . new ( text , options ) . render . rstrip
end
2007-07-24 09:15:27 +00:00
2009-10-04 21:15:16 -07:00
def render_erb ( text )
render ( text , :erb = > true )
2008-11-29 11:51:04 -08:00
end
2007-07-24 09:15:27 +00:00
end
