From d6dcf220d57e4fbdb736121acb19a83f485fa158 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 2 Oct 2012 14:46:41 -0500
Subject: clean up tests

---
 t/helpers.t  | 2 ++
 t/mustache.t | 6 ++++++
 2 files changed, 8 insertions(+)

(limited to 't')

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,
-- 
cgit v1.2.3-54-g00ecf