summaryrefslogtreecommitdiffstats
path: root/t/mustache-extra.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-10-02 15:11:59 -0500
committerJesse Luehrs <doy@tozt.net>2012-10-02 15:31:20 -0500
commitf8163f38482ebe4a48b08a3f49080821e62e383b (patch)
tree83398b2cd786e538487d13e4d50a547d91b0bbbf /t/mustache-extra.t
parent5dc5000f75492b6f78d27fab3c56055d4534b5a7 (diff)
downloadtext-handlebars-f8163f38482ebe4a48b08a3f49080821e62e383b.tar.gz
text-handlebars-f8163f38482ebe4a48b08a3f49080821e62e383b.zip
refactor tests
Diffstat (limited to 't/mustache-extra.t')
-rw-r--r--t/mustache-extra.t58
1 files changed, 0 insertions, 58 deletions
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;