diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-10-02 14:46:41 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-10-02 14:46:41 -0500 |
| commit | d6dcf220d57e4fbdb736121acb19a83f485fa158 (patch) | |
| tree | f3aeb4151c9cb767cf424cccfb8cc74264cd042f /t | |
| parent | 09ed3913a9bf4059f7e7b72e2c9ee4488251979a (diff) | |
| download | text-handlebars-d6dcf220d57e4fbdb736121acb19a83f485fa158.tar.gz text-handlebars-d6dcf220d57e4fbdb736121acb19a83f485fa158.zip | |
clean up tests
Diffstat (limited to 't')
| -rw-r--r-- | t/helpers.t | 2 | ||||
| -rw-r--r-- | t/mustache.t | 6 |
2 files changed, 8 insertions, 0 deletions
diff --git a/t/helpers.t b/t/helpers.t index 55b3b5a..7286371 100644 --- a/t/helpers.t +++ b/t/helpers.t @@ -3,6 +3,8 @@ use warnings; use Test::More; use Text::Xslate; +plan skip_all => "unimplemented"; + my $tx = Text::Xslate->new(syntax => 'Handlebars'); # XXX I'm not sure how helpers should be registered in Perl diff --git a/t/mustache.t b/t/mustache.t index d82ebbf..e12f4ef 100644 --- a/t/mustache.t +++ b/t/mustache.t @@ -88,6 +88,7 @@ RENDERED "section with non-empty list" ); +{ local $TODO = "unimplemented"; local $SIG{__WARN__} = sub { }; render_ok( <<'TEMPLATE', {{#wrapped}} @@ -110,6 +111,7 @@ TEMPLATE RENDERED "lambdas" ); +} render_ok( <<'TEMPLATE', @@ -156,6 +158,7 @@ RENDERED "comments" ); +{ local $TODO = "unimplemented"; render_file_ok( { path => ['t/mustache/partials'] }, 'base.mustache', @@ -195,6 +198,7 @@ TEMPLATE RENDERED "set delimiter" ); +} sub render_ok { local $Test::Builder::Level = $Test::Builder::Level + 1; @@ -215,9 +219,11 @@ sub _render_ok { my $tx = Text::Handlebars->new(%$opts); my $exception = exception { + local $Test::Builder::Level = $Test::Builder::Level + 5; is($tx->$render_method($template, $env), $expected, $desc); }; fail("$desc (threw an exception)") if $exception; + local $TODO = undef unless $exception; is( $exception, undef, |