From f8163f38482ebe4a48b08a3f49080821e62e383b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 2 Oct 2012 15:11:59 -0500
Subject: refactor tests

---
 t/mustache-extra.t | 58 ------------------------------------------------------
 1 file changed, 58 deletions(-)
 delete mode 100644 t/mustache-extra.t

(limited to 't/mustache-extra.t')

diff --git a/t/mustache-extra.t b/t/mustache-extra.t
deleted file mode 100644
index ac28498..0000000
--- a/t/mustache-extra.t
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-use Test::Fatal;
-
-use Text::Handlebars;
-
-render_ok(
-    <<'TEMPLATE',
-* {{name}}
-* {{age}}
-* {{company}}
-* {{& company}}
-TEMPLATE
-    {
-        name    => 'Chris',
-        company => '<b>GitHub</b>',
-    },
-    <<'RENDERED',
-* Chris
-* 
-* &lt;b&gt;GitHub&lt;/b&gt;
-* <b>GitHub</b>
-RENDERED
-    "& for make_raw"
-);
-
-sub render_ok {
-    local $Test::Builder::Level = $Test::Builder::Level + 1;
-    return _render_ok('render_string', @_);
-}
-
-sub render_file_ok {
-    local $Test::Builder::Level = $Test::Builder::Level + 1;
-    return _render_ok('render', @_);
-}
-
-sub _render_ok {
-    my $render_method = shift;
-    my $opts = ref($_[0]) && ref($_[0]) eq 'HASH' ? shift : {};
-    my ($template, $env, $expected, $desc) = @_;
-    local $Test::Builder::Level = $Test::Builder::Level + 1;
-
-    my $tx = Text::Handlebars->new(%$opts);
-
-    my $exception = exception {
-        is($tx->$render_method($template, $env), $expected, $desc);
-    };
-    fail("$desc (threw an exception)") if $exception;
-    is(
-        $exception,
-        undef,
-        "no exceptions for $desc"
-    );
-}
-
-done_testing;
-- 
cgit v1.2.3-54-g00ecf