diff --git a/t/08_session/06_cookie.t b/t/08_session/06_cookie.t deleted file mode 100644 index db633ce9e..000000000 --- a/t/08_session/06_cookie.t +++ /dev/null @@ -1,49 +0,0 @@ -use Test::More import => ['!pass']; - -use strict; -use warnings; -use Dancer; -use Dancer::ModuleLoader; -use Dancer::Config 'setting'; - -BEGIN { - plan skip_all => "need Crypt::CBC" - unless Dancer::ModuleLoader->load('Crypt::CBC'); - plan skip_all => "need String::CRC32" - unless Dancer::ModuleLoader->load('String::CRC32'); - plan skip_all => "need Crypt::Rijndael" - unless Dancer::ModuleLoader->load('Crypt::Rijndael'); - plan tests => 7; - use_ok 'Dancer::Session::Cookie' -} - -use lib 't/lib'; -use EasyMocker; - -my $loader_mock = {'Crypt::CBC' => 0, 'String::CRC32' => 0, 'Crypt::Rijndael' => 0}; -mock 'Dancer::ModuleLoader' - => method 'load' => should sub { $loader_mock->{$_[1]} }; - -my $session; -setting session_cookie_key => 'test/secret*@?)'; - -eval { $session = Dancer::Session::Cookie->create }; -like $@, qr/Crypt::CBC/, "Need Crypt CBC"; - -$loader_mock->{'Crypt::CBC'} = 1; -eval { $session = Dancer::Session::Cookie->create }; -like $@, qr/String::CRC32/, "Need String::CRC32"; - -$loader_mock->{'String::CRC32'} = 1; -eval { $session = Dancer::Session::Cookie->create }; -like $@, qr/Crypt::Rijndael/, "Need Crypt::Rijndael"; - -$loader_mock->{'Crypt::Rijndael'} = 1; - -eval { $session = Dancer::Session::Cookie->create }; -is $@, '', "Cookie session created"; - -isa_ok $session, 'Dancer::Session::Cookie'; -can_ok $session, qw(init create retrieve destroy flush); - -# see ./03_http_requests.t for a full functional test diff --git a/t/10_template/06_micro_template.t b/t/10_template/06_micro_template.t deleted file mode 100644 index c49fc2a03..000000000 --- a/t/10_template/06_micro_template.t +++ /dev/null @@ -1,53 +0,0 @@ -use Test::More; - - -use strict; -use warnings; -use Dancer::ModuleLoader; -use Dancer::FileUtils 'path'; - -use lib 't/lib'; -use EasyMocker; - -BEGIN { - plan skip_all => "need Text::MicroTemplate to run this test" - unless Dancer::ModuleLoader->load('Text::MicroTemplate::File'); - plan tests => 6; - use_ok 'Dancer::Template::MicroTemplate'; -} - -my $mock = {'Text::MicroTemplate::File' => 0}; -mock 'Dancer::ModuleLoader' => method 'load' => should sub { $mock->{$_[1]} }; - -my $engine; -eval { $engine = Dancer::Template::MicroTemplate->new }; -like $@, qr/Text::MicroTemplate is needed by Dancer::Template::MicroTemplate/, - "Text::MicroTemplate dependency caught at init time"; - -$mock->{'Text::MicroTemplate::File'} = 1; -eval { $engine = Dancer::Template::MicroTemplate->new }; -is $@, '', - "Text::MicroTemplate dependency is not triggered if Text::MicroTemplate is there"; - -my $template = path('t', '10_template', 'index.mt'); -my $result = $engine->render( - $template, - { var1 => 1, - var2 => 2, - foo => 'one', - bar => 'two', - baz => 'three' - } -); - -my $expected = - 'this is var1="1" and var2=2' . "\n\nanother line\n\n one two three\n"; -is $result, $expected, "processed a template given as a file name"; - -$template = '% my $one=1; one=<%= $one %>'; - -eval { $engine->render($template, {one => 1, two => 2, three => 3}) }; -like $@, qr/is not a regular file/, "prorotype failure detected"; - -eval { $engine->render(\$template, {one => 1, two => 2, three => 3}) }; -like $@, qr/is not a regular file/, "prototype failure detected";