Skip to content

Commit

Permalink
get rid of those prototype mismatch warnings.
Browse files Browse the repository at this point in the history
  • Loading branch information
gugod committed Mar 3, 2011
1 parent 8cf213a commit cedc788
Showing 1 changed file with 12 additions and 12 deletions.
24 changes: 12 additions & 12 deletions t/tag-inline.t
Expand Up @@ -4,36 +4,36 @@ use strict;
package View;
use Markapl;

template hr => sub {
template vhr => sub {
hr;
};

template br => sub {
template vbr => sub {
br;
};

template img => sub {
template vimg => sub {
img(src => "/one.jpg");
};

template meta => sub {
template vmeta => sub {
meta(content => "text/html", "http-equiv" => "content-type");
};

template html_link => sub {
template vhtml_link => sub {
html_link(rel=>'stylesheet', href=>'/style.css');
};

template input => sub {
template vinput => sub {
input(type => "text", name => "foo");
};

package main;
use Test::More tests => 6;

is(View->render("hr"), qq{<hr>});
is(View->render("br"), qq{<br>});
is(View->render("img"), qq{<img src="/one.jpg">});
is(View->render("meta"), qq{<meta content="text/html" http-equiv="content-type">});
is(View->render("html_link"), qq{<link rel="stylesheet" href="/style.css">});
is(View->render("input"), qq{<input type="text" name="foo">});
is(View->render("vhr"), qq{<hr>});
is(View->render("vbr"), qq{<br>});
is(View->render("vimg"), qq{<img src="/one.jpg">});
is(View->render("vmeta"), qq{<meta content="text/html" http-equiv="content-type">});
is(View->render("vhtml_link"), qq{<link rel="stylesheet" href="/style.css">});
is(View->render("vinput"), qq{<input type="text" name="foo">});

0 comments on commit cedc788

Please sign in to comment.