#!/usr/bin/perl
Should we have hard-coded PATH to perl here ?
/usr/bin/perl --version
This is perl, v5.10.0 built for darwin-thread-multi-2level
(with 2 registered patches, see perl -V for more detail)
> +
> +my $is_passing = Test::More->builder->is_passing;
> +exit($is_passing ? 0 : 1);
>
This seems to give problems:
debug=t verbose=t ./t9000-addresses.sh
Initialized empty Git repository in /Users/me/projects/git/git.pu/t/trash directory.t9000-addresses/.git/
# run 0: Perl address parsing function (perl /Users/me/projects/git/git.pu/t/t9000/test.pl)
ok 1 - use Git;
ok 2 - same output : Jane
ok 3 - same output : jdoe@xxxxxxxxxxx
ok 4 - same output : <jdoe@xxxxxxxxxxx>
ok 5 - same output : Jane <jdoe@xxxxxxxxxxx>
ok 6 - same output : Jane Doe <jdoe@xxxxxxxxxxx>
ok 7 - same output : "Jane" <jdoe@xxxxxxxxxxx>
ok 8 - same output : "Doe, Jane" <jdoe@xxxxxxxxxxx>
ok 9 - same output : "Jane@:;\>.,()<Doe" <jdoe@xxxxxxxxxxx>
ok 10 - same output : Jane!\#$%&'*+-/=?^_{|}~Doe' <jdoe@xxxxxxxxxxx>
ok 11 - same output : "<jdoe@xxxxxxxxxxx>"
ok 12 - same output : "Jane jdoe@xxxxxxxxxxx"
ok 13 - same output : Jane Doe <jdoe @ example.com >
ok 14 - same output : Jane Doe < jdoe@xxxxxxxxxxx >
ok 15 - same output : Jane @ Doe @ Jane @ Doe
ok 16 - same output : "Jane, 'Doe'" <jdoe@xxxxxxxxxxx>
ok 17 - same output : 'Doe, "Jane' <jdoe@xxxxxxxxxxx>
ok 18 - same output : "Jane" "Do"e <jdoe@xxxxxxxxxxx>
ok 19 - same output : "Jane' Doe" <jdoe@xxxxxxxxxxx>
ok 20 - same output : "Jane Doe <jdoe@xxxxxxxxxxx>" <jdoe@xxxxxxxxxxx>
ok 21 - same output : "Jane\" Doe" <jdoe@xxxxxxxxxxx>
ok 22 - same output : Doe, jane <jdoe@xxxxxxxxxxx>
ok 23 - same output : "Jane Doe <jdoe@xxxxxxxxxxx>
ok 24 - same output : 'Jane 'Doe' <jdoe@xxxxxxxxxxx>
not ok 25 - same output : Jane\ Doe <jdoe@xxxxxxxxxxx> # TODO known breakage
# Failed (TODO) test 'same output : Jane\ Doe <jdoe@xxxxxxxxxxx>'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = '"Jane \ Doe" <jdoe@xxxxxxxxxxx>'
# $expected->[0] = '"Jane\ Doe" <jdoe@xxxxxxxxxxx>'
not ok 26 - same output : "Doe, Ja"ne <jdoe@xxxxxxxxxxx> # TODO known breakage
# Failed (TODO) test 'same output : "Doe, Ja"ne <jdoe@xxxxxxxxxxx>'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = '"Doe, Ja" ne <jdoe@xxxxxxxxxxx>'
# $expected->[0] = '"Doe, Ja ne" <jdoe@xxxxxxxxxxx>'
not ok 27 - same output : "Doe, Katarina" Jane <jdoe@xxxxxxxxxxx> # TODO known breakage
# Failed (TODO) test 'same output : "Doe, Katarina" Jane <jdoe@xxxxxxxxxxx>'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = '"Doe, Katarina" Jane <jdoe@xxxxxxxxxxx>'
# $expected->[0] = '"Doe, Katarina Jane" <jdoe@xxxxxxxxxxx>'
not ok 28 - same output : Jane@:;\.,()<>Doe <jdoe@xxxxxxxxxxx> # TODO known breakage
# Failed (TODO) test 'same output : Jane@:;\.,()<>Doe <jdoe@xxxxxxxxxxx>'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[1] = '\.'
# $expected->[1] = '"\."'
not ok 29 - same output : Jane jdoe@xxxxxxxxxxx # TODO known breakage
# Failed (TODO) test 'same output : Jane jdoe@xxxxxxxxxxx'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = 'Jane'
# $expected->[0] = 'Janejdoe@xxxxxxxxxxx'
not ok 30 - same output : <jdoe@xxxxxxxxxxx> Jane Doe # TODO known breakage
# Failed (TODO) test 'same output : <jdoe@xxxxxxxxxxx> Jane Doe'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = 'Jane Doe <jdoe@xxxxxxxxxxx>'
# $expected->[0] = 'jdoe@example.comJaneDoe'
not ok 31 - same output : Jane <jdoe@xxxxxxxxxxx> Doe # TODO known breakage
# Failed (TODO) test 'same output : Jane <jdoe@xxxxxxxxxxx> Doe'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = 'Jane Doe <jdoe@xxxxxxxxxxx>'
# $expected->[0] = 'Jane <jdoe@example.comDoe>'
not ok 32 - same output : "Jane "Kat"a" ri"na" ",Doe" <jdoe@xxxxxxxxxxx> # TODO known breakage
# Failed (TODO) test 'same output : "Jane "Kat"a" ri"na" ",Doe" <jdoe@xxxxxxxxxxx>'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = '"Jane " Kat "a" ri "na" ",Doe" <jdoe@xxxxxxxxxxx>'
# $expected->[0] = '"Jane Kat a ri na ,Doe" <jdoe@xxxxxxxxxxx>'
not ok 33 - same output : Jane Doe # TODO known breakage
# Failed (TODO) test 'same output : Jane Doe'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = 'Jane'
# $expected->[0] = 'Jane Doe'
not ok 34 - same output : Jane "Doe <jdoe@xxxxxxxxxxx>" # TODO known breakage
# Failed (TODO) test 'same output : Jane "Doe <jdoe@xxxxxxxxxxx>"'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = 'Jane'
# $expected->[0] = '"Jane Doe <jdoe@xxxxxxxxxxx>"'
not ok 35 - same output : \"Jane Doe <jdoe@xxxxxxxxxxx> # TODO known breakage
# Failed (TODO) test 'same output : \"Jane Doe <jdoe@xxxxxxxxxxx>'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = '\ " Jane Doe <jdoe@xxxxxxxxxxx>'
# $expected->[0] = '"\"Jane Doe" <jdoe@xxxxxxxxxxx>'
not ok 36 - same output : Jane\"\" Doe <jdoe@xxxxxxxxxxx> # TODO known breakage
# Failed (TODO) test 'same output : Jane\"\" Doe <jdoe@xxxxxxxxxxx>'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = 'Jane \ " \ " Doe <jdoe@xxxxxxxxxxx>'
# $expected->[0] = '"Jane\"\" Doe" <jdoe@xxxxxxxxxxx>'
not ok 37 - same output : 'Jane "Katarina\" \' Doe' <jdoe@xxxxxxxxxxx> # TODO known breakage
# Failed (TODO) test 'same output : 'Jane "Katarina\" \' Doe' <jdoe@xxxxxxxxxxx>'
# at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
# Structures begin differing at:
# $got->[0] = ''Jane " Katarina \ " \ ' Doe' <jdoe@xxxxxxxxxxx>'
# $expected->[0] = '"'Jane Katarina\" \' Doe'" <jdoe@xxxxxxxxxxx>'
1..37
# test_external test Perl address parsing function failed: perl /Users/me/projects/git/git.pu/t/t9000/test.pl
# expecting no stderr from previous command
# test_external_without_stderr test no stderr: Perl address parsing function failed: perl /Users/me/projects/git/git.pu/t/t9000/test.pl:
# Stderr is:
Can't locate object method "is_passing" via package "Test::Builder" at /Users/me/projects/git/git.pu/t/t9000/test.pl line 66.
# Looks like your test died just after 37.
--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html