$eml->header_str_set('Subject', "\x{100}");
like($eml->header_raw('Subject'), qr/utf-8\?B\?/i,
'MIME-B encoded UTF-8 Subject');
- is_deeply([$eml->header_str('Subject')], [ "\x{100}" ],
+ is_deeply([$eml->header('Subject')], [ "\x{100}" ],
'got wide character back');
}
is(scalar(@tmp), 1, 'got one part even w/o boundary');
is($tmp[0]->[0]->[0]->body, "hello world\n", 'body preserved');
is($tmp[0]->[0]->[1], 0, '$depth is zero');
- is($tmp[0]->[0]->[2], 0, '@idx is zero');
+ is($tmp[0]->[0]->[2], 1, '@idx is one');
}
# I guess the following only worked in PI::M because of a happy accident