fix extention and suffix problem

1 files changed, 29 insertions, 0 deletions

diff --git a/t/03-cascade.t b/t/03-cascade.t
new file mode 100644
index 0000000..5da25e2
--- /dev/null
+++ b/t/03-cascade.t
@@ -0,0 +1,29 @@
+use strict;
+use warnings;
+use Test::More tests => 2;
+use File::Spec::Functions qw(catfile);
+
+use Dancer::Template::Xslate;
+my $engine = Dancer::Template::Xslate->new(
+    config =>
+    {
+        extension => 'tx',
+        path      => [catfile(qw(t views))],
+    },
+);
+
+my $template = catfile(qw(t views cascade.tx));
+my $result = $engine->render($template);
+my $expected = "header\nbody\nfooter\n";
+
+is $result, $expected, "cascade and extension test";
+
+$engine = Dancer::Template::Xslate->new(
+    config =>
+    {
+        suffix => '.tx',
+        path   => [catfile(qw(t views))],
+    },
+);
+$result = $engine->render($template);
+is $result, $expected, "cascade and extension test";