36 |
|
|
37 |
diag dump( @icons ) if $debug; |
diag dump( @icons ) if $debug; |
38 |
|
|
39 |
ok( my ($path,$styles) = $o->combine_image( @icons ), 'combine_image' ); |
ok( my ($path,$styles) = $o->combine_images( @icons ), 'combine_images' ); |
40 |
diag $path, dump( $styles ) if $debug; |
diag $path, dump( $styles ) if $debug; |
41 |
|
|
42 |
ok( my $markup = $o->as_markup, 'as_markup' ); |
ok( my $markup = $o->as_markup, 'as_markup' ); |
43 |
diag $markup if $debug; |
|
44 |
|
my $html_path = 'var/t/' . ref($o) . '.html'; |
45 |
|
$markup =~ s{/var/}{../}sg; |
46 |
|
$o->store( $html_path, $markup ); |
47 |
|
diag "created $html_path ", -s $html_path; |
48 |
|
|