view release on metacpan or  search on metacpan

t/builtin.t  view on Meta::CPAN

#========================================================================
# Derived datatypes
#========================================================================

#------------------------------------------------------------------------
# CDATA

$pkg = 'XML::Schema::Type::CDATA';
my $cdata = $pkg->new();
ok( $cdata );
match( $cdata->name(), 'CDATA' );

$item = $cdata->instance("  \tThe cat\n\tsat on\r\tthe mat\n\t  ");
ok( $item );
match( $item->{ value }, "   The cat  sat on  the mat    ");

#------------------------------------------------------------------------
# token

$pkg = 'XML::Schema::Type::token';
my $token = $pkg->new();
ok( $token );
match( $token->name(), 'token' );