diff options
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, |