#===============================================================================
#
# DESCRIPTION: test output block
#
# AUTHOR: Aliaksandr P. Zahatski, <zahatski@gmail.com>
#===============================================================================
#$Id$
package T::Block::input;
use strict;
use warnings;
use Test::More;
use base 'TBase';
sub p02_xhtml : Test {
my $t = shift;
my $x = $t->parse_to_xhtml(<<T);
=begin pod
=input
1.2.3
sdsd sd sd sd
=end pod
T
$t->is_deeply_xml(
$x,
q#<xhtml xmlns='http://www.w3.org/1999/xhtml'><pre><kbd> 1.2.3
sdsd sd sd sd
</kbd></pre></xhtml>#
);
}
sub p03_docbook : Test {
my $t = shift;
my $x = $t->parse_to_docbook(<<T);
=begin pod
=input
1.2.3
sdsd sd sd sd
=end pod
T
$t->is_deeply_xml(
$x,
q#<chapter><userinput> 1.2.3
sdsd sd sd sd
</userinput></chapter>#
);
}
1;