summaryrefslogtreecommitdiffstats
path: root/t/mustache-extra.t
diff options
context:
space:
mode:
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;