← Back to branch summary

~ubuntu-branches/ubuntu/utopic/libmime-tools-perl/utopic

« back to all changes in this revision

Viewing changes to t/ticket-41632.t

  • Committer: Bazaar Package Importer
  • Author(s): gregor herrmann
  • Date: 2010-06-12 21:32:48 UTC
  • Revision ID: james.westby@ubuntu.com-20100612213248-u0okbx1f26wpqu32
Tags: upstream-5.428
Import upstream version 5.428

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/ticket-41632.t
 
1
use strict;
 
2
use warnings;
 
3
 
 
4
use Test::More tests => 6;
 
5
 
 
6
# Handle the case of both RFC-2231 and non-RFC-2231 parameter values.
 
7
# In this case, we ignore the non-RFC-2231 parameters
 
8
 
 
9
use MIME::Field::ParamVal;
 
10
 
 
11
my $params;
 
12
 
 
13
$params = MIME::Field::ParamVal->parse_params('inline; filename="foo"; filename*1="ar"; filename*0="b"');
 
14
 
 
15
is($params->{'_'}, 'inline', 'Got the "inline" right');
 
16
is($params->{'filename'}, 'bar', 'Ignored non-RFC-2231 value if RFC-2231 parameters are present');
 
17
 
 
18
$params = MIME::Field::ParamVal->parse_params('inline; filename="foo"');
 
19
is($params->{'filename'}, 'foo', 'Got filename if RFC-2231 parameters are absent');
 
20
 
 
21
$params = MIME::Field::ParamVal->parse_params('inline; filename*1="ar"; filename*0="b"');
 
22
is($params->{'filename'}, 'bar', 'Got RFC-2231 value');
 
23
 
 
24
$params = MIME::Field::ParamVal->parse_params('inline; filename*1="ar"; filename="foo"; filename*0="b"');
 
25
is($params->{'filename'}, 'bar', 'Ignored non-RFC-2231 value if RFC-2231 parameters are present');
 
26
 
 
27
$params = MIME::Field::ParamVal->parse_params('inline; filename*1="ar"; filename*0="b"; filename="foo"');
 
28
is($params->{'filename'}, 'bar', 'Ignored non-RFC-2231 value if RFC-2231 parameters are present');