git.shiar.nl
/
perl
/
html-form-simple.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
input method should be named text()
[perl/html-form-simple.git]
/
t
/
html.t
diff --git
a/t/html.t
b/t/html.t
index a9ee150c42778b3b8a7a46d135c01fb661c0a15c..2fea804b2353d89b0eeb9d07dc09b83047150aef 100644
(file)
--- a/
t/html.t
+++ b/
t/html.t
@@
-118,43
+118,43
@@
is(
# input
is(
# input
is(
- $form->
inpu
t,
+ $form->
tex
t,
'<input type="text">',
'empty input'
);
is(
'<input type="text">',
'empty input'
);
is(
- $form->
inpu
t(undef, undef, undef),
+ $form->
tex
t(undef, undef, undef),
'<input type="text">',
'explicit empty input'
);
is(
'<input type="text">',
'explicit empty input'
);
is(
- $form->
inpu
t('test'),
+ $form->
tex
t('test'),
'<input id="test" name="test" type="text">',
'input with name'
);
is(
'<input id="test" name="test" type="text">',
'input with name'
);
is(
- $form->
inpu
t(undef, 'test'),
+ $form->
tex
t(undef, 'test'),
'<input type="text" value="test">',
'input with value'
);
is(
'<input type="text" value="test">',
'input with value'
);
is(
- $form->
inpu
t(undef, {value => 'test'}),
+ $form->
tex
t(undef, {value => 'test'}),
'<input type="text" value="test">',
'input with attribute value'
);
is(
'<input type="text" value="test">',
'input with attribute value'
);
is(
- $form->
inpu
t({name => 'test', value => ''}),
+ $form->
tex
t({name => 'test', value => ''}),
'<input id="test" name="test" type="text" value="">',
'input with only attributes'
);
is(
'<input id="test" name="test" type="text" value="">',
'input with only attributes'
);
is(
- $form->
inpu
t('', '', {
+ $form->
tex
t('', '', {
disabled => 0,
something => undef,
class => undef,
disabled => 0,
something => undef,
class => undef,
@@
-167,31
+167,31
@@
is(
);
is(
);
is(
- $form->
inpu
t(undef, undef, {name => '0', value => '0'}),
+ $form->
tex
t(undef, undef, {name => '0', value => '0'}),
'<input id="0" name="0" type="text" value="0">',
'input overrides'
);
is(
'<input id="0" name="0" type="text" value="0">',
'input overrides'
);
is(
- $form->
inpu
t('name', {id => ''}),
+ $form->
tex
t('name', {id => ''}),
'<input name="name" type="text">',
'input with id override'
);
is(
'<input name="name" type="text">',
'input with id override'
);
is(
- $form->
inpu
t('<">', '<">', {id => '>"<'}),
+ $form->
tex
t('<">', '<">', {id => '>"<'}),
'<input id=">"<" name="<">" type="text" value="<">">',
'input quoting'
);
is(
'<input id=">"<" name="<">" type="text" value="<">">',
'input quoting'
);
is(
- $form->
inpu
t(undef, {disabled => 'something'}),
+ $form->
tex
t(undef, {disabled => 'something'}),
'<input disabled type="text">',
'disabled input'
);
is(
'<input disabled type="text">',
'disabled input'
);
is(
- $form->
inpu
t({type => 'password'}),
+ $form->
tex
t({type => 'password'}),
'<input type="password">',
'password'
);
'<input type="password">',
'password'
);
@@
-199,19
+199,19
@@
is(
# textarea
is(
# textarea
is(
- $form->
inpu
t({rows => 0}),
+ $form->
tex
t({rows => 0}),
'<textarea rows="0"></textarea>',
'minimal textarea'
);
is(
'<textarea rows="0"></textarea>',
'minimal textarea'
);
is(
- $form->
inpu
t(foo => 'bar', {cols => 42, rows => 1, disabled => 1}),
+ $form->
tex
t(foo => 'bar', {cols => 42, rows => 1, disabled => 1}),
'<textarea disabled cols="42" id="foo" name="foo" rows="1">bar</textarea>',
'textarea'
);
is(
'<textarea disabled cols="42" id="foo" name="foo" rows="1">bar</textarea>',
'textarea'
);
is(
- $form->
inpu
t(undef, qq{<foo>&bl'a"\n .}, {cols => undef, rows => '<">'}),
+ $form->
tex
t(undef, qq{<foo>&bl'a"\n .}, {cols => undef, rows => '<">'}),
qq{<textarea rows="<">"><foo>&bl'a"\n .</textarea>},
'textarea quoting'
);
qq{<textarea rows="<">"><foo>&bl'a"\n .</textarea>},
'textarea quoting'
);