# Copyright (c) 2005 bivio Software, Inc. All Rights Reserved.
#
# Visit http://www.bivio.biz for more info.
#
# This library is free software; you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License as
# published by the Free Software Foundation; either version 2.1 of the
# License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; If not, you may get a copy from:
# http://www.opensource.org/licenses/lgpl-license.html
#
# $Id: Image.bunit,v 1.5 2010/11/12 00:11:31 moeller Exp $
Widget({
setup_render => sub {
shift->put(xhtml => shift->get('object')->unsafe_get('xhtml'));
return;
},
parse_return => sub {
my($case, $actual, $expect) = @_;
unless ($expect->[0] =~ />/) {
$expect->[0] .= qq{ src="/i/dot.gif" width="1" height="1" />};
}
return $actual;
},
});
[
dot => '
'
{class => 'bp'}] =>
'
',
['dot', ''] => '
'n',
alt_text => vs_new('Join', ['image_bunit']),
attributes => ' x=y',
}] => '
1,
}] => '
0,
height => 1,
}] => '
',
['dot', {
width => 1,
height => 0,
}] => '
',
['dot', {
width => 2,
height => 3,
}] => '
',
['/i/foo.gif', {
width => 2,
height => 3,
}] => '
',
['/dot.png', {
xhtml => 1,
}] => '
',
];