#!perl -T
use
Spark::Form;
my
$form
= Spark::Form->new;
my
$b
= SparkX::Form::Field::Password->new(
name
=>
'test'
,
form
=>
$form
);
is(
$b
->to_xhtml,
'<input name="test" type="password" />'
,
'Test xhtml representation'
);
#!perl -T
use
Spark::Form;
my
$form
= Spark::Form->new;
my
$b
= SparkX::Form::Field::Password->new(
name
=>
'test'
,
form
=>
$form
);
is(
$b
->to_xhtml,
'<input name="test" type="password" />'
,
'Test xhtml representation'
);