is( $p_p1->cmd_name(), 'head2', 'Pod::Paragraph->cmd_name()' );
is( $p_p1->cmd_name( 'head1' ), 'head1',
'Pod::Paragraph->cmd_name( head1 )' );
- cmp_ok( $p_p2->cmd_name(), 'eq', '',
+ ok( !$p_p2->cmd_name(),
'Pod::Paragraph->cmd_name() revisited' );
is( $p_p1->text(), 'NAME', 'Pod::Paragraph->text()' );