Codebase list libemail-address-xs-perl / 205cb63
When input string passed to parse method contains trailing garbage, mark the last parsed object as invalid Pali 1 year, 8 months ago
2 changed file(s) with 12 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all
+1
-0
dovecot-parser.c less more
12151215 break;
12161216 if (ctx->parser.data >= ctx->parser.end ||
12171217 *ctx->parser.data != ',') {
1218 ctx->last_addr->invalid_syntax = true;
12181219 ret = -1;
12191220 break;
12201221 }
+11
-1
t/Email-Address-XS.t less more
1818 $Carp::Internal{'Test::Builder'} = 1;
1919 $Carp::Internal{'Test::More'} = 1;
2020
21 use Test::More tests => 511;
21 use Test::More tests => 516;
2222 use Test::Builder;
2323
2424 local $SIG{__WARN__} = sub {
695695 is($address->user(), 'winston.smith.', $subtest);
696696 is($address->host(), 'recdep.minitrue', $subtest);
697697 is($address->address(), '"winston.smith."@recdep.minitrue', $subtest);
698 }
699
700 {
701 my $subtest = 'test method parse() in scalar context with valid address followed by garbage';
702 my $address = Email::Address::XS->parse('winston.smith@recdep.minitrue garbage');
703 ok(!$address->is_valid(), $subtest);
704 is($address->original(), 'winston.smith@recdep.minitrue ', $subtest);
705 is($address->user(), 'winston.smith', $subtest);
706 is($address->host(), 'recdep.minitrue', $subtest);
707 is($address->address(), 'winston.smith@recdep.minitrue', $subtest);
698708 }
699709
700710 }