Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
26 lines (15 sloc) 384 Bytes
use strict;
use Test::More tests => 2;
use XML::Atom::Content;
my $stuff = "\x{1234}";
{
my $content = XML::Atom::Content->new(Version => 0.3);
$content->body($stuff);
isnt $content->mode, 'base64';
}
{
my $content = XML::Atom::Content->new(Version => 0.3);
eval { doo(); }; # this set $@
$content->body($stuff);
isnt $content->mode, 'base64';
}