From 82166696c912e9ca2e2b1937606f9af58982cae6 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sun, 13 Jun 2010 22:09:57 +0200
Subject: first commit

---
 t/01-basic.t | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 t/01-basic.t

(limited to 't')

diff --git a/t/01-basic.t b/t/01-basic.t
new file mode 100644
index 0000000..9193bdf
--- /dev/null
+++ b/t/01-basic.t
@@ -0,0 +1,32 @@
+use strict;
+use warnings;
+use Test::More import => ['!pass'];
+
+package mytemplate;
+use Template::Declare::Tags;
+use base 'Template::Declare';
+
+template hello => sub {
+    my ($self, $vars) = @_;
+    html {
+        head {
+            title {"Hello, $vars->{user}"};
+        };
+        body {
+            h1 {"Hello, $vars->{user}"};
+        };
+    };
+};
+
+package main;
+
+use Dancer::Template::Declare;
+
+ok my $td =
+  Dancer::Template::Declare->new(config => {dispatch_to => [qw/mytemplate/]}),
+  'D::T::Declare object created';
+
+ok my $result = $td->render('hello', {user => 'marc'}), 'render is ok';
+like $result, qr/<title>Hello, marc<\/title>/, 'content match';
+
+done_testing;
-- 
cgit 1.4.1