The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# @(#) $Id$
use strict;
use warnings;

use Test::More tests => 1;
use Test::XML;

{
    local $TODO = 'make whitespace significant';
    isnt_xml(
        '<p>foo</p>',
        '<p>  foo  </p>',
        'whitespace is significant',
    );
}

# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# indent-tabs-mode: nil
# End:
# vim: set ai et sw=4 syntax=perl :