23 |
|
|
24 |
ok( defined $o->debug, 'debug' ); |
ok( defined $o->debug, 'debug' ); |
25 |
|
|
26 |
ok( my $m = $o->markup, 'markup' ); |
ok( my $m = $o->as_markup, 'markup' ); |
27 |
diag $m if $debug; |
diag $m if $debug; |
28 |
|
|
29 |
my $head_count = $#{ $o->head }; |
my $head_count = $#{ $o->head }; |
36 |
|
|
37 |
cmp_ok( $#{ $o->head }, '>', $head_count, 'more head_countent' ); |
cmp_ok( $#{ $o->head }, '>', $head_count, 'more head_countent' ); |
38 |
|
|
39 |
ok( my $m2 = $o->markup, 'markup' ); |
ok( my $m2 = $o->as_markup, 'markup' ); |
40 |
diag $m2 if $debug; |
diag $m2 if $debug; |
41 |
|
|
42 |
cmp_ok( length($m), '<', length($m2), 'bigger markup' ); |
cmp_ok( length($m), '<', length($m2), 'bigger markup' ); |