mirror of
https://github.com/git/git.git
synced 2024-11-27 12:03:55 +08:00
8d314d7afe
parse_address_line had not the same behavior whether the user had Mail::Address or not. Teach parse_address_line to behave like Mail::Address. When the user input is correct, this implementation behaves exactly like Mail::Address except when there are quotes inside the name: "Jane Do"e <jdoe@example.com> In this case the result of parse_address_line is: With M::A : "Jane Do" e <jdoe@example.com> Without : "Jane Do e" <jdoe@example.com> When the user input is not correct, the behavior is also mostly the same. Unlike Mail::Address, this doesn't parse groups and recursive commentaries. Signed-off-by: Remi Lespinet <remi.lespinet@ensimag.grenoble-inp.fr> Signed-off-by: Matthieu Moy <Matthieu.Moy@imag.fr> Signed-off-by: Junio C Hamano <gitster@pobox.com>
28 lines
576 B
Bash
Executable File
28 lines
576 B
Bash
Executable File
#!/bin/sh
|
|
|
|
test_description='compare address parsing with and without Mail::Address'
|
|
. ./test-lib.sh
|
|
|
|
if ! test_have_prereq PERL; then
|
|
skip_all='skipping perl interface tests, perl not available'
|
|
test_done
|
|
fi
|
|
|
|
perl -MTest::More -e 0 2>/dev/null || {
|
|
skip_all="Perl Test::More unavailable, skipping test"
|
|
test_done
|
|
}
|
|
|
|
perl -MMail::Address -e 0 2>/dev/null || {
|
|
skip_all="Perl Mail::Address unavailable, skipping test"
|
|
test_done
|
|
}
|
|
|
|
test_external_has_tap=1
|
|
|
|
test_external_without_stderr \
|
|
'Perl address parsing function' \
|
|
perl "$TEST_DIRECTORY"/t9000/test.pl
|
|
|
|
test_done
|