#!/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 : [email protected]
ok 4 - same output : <[email protected]>
ok 5 - same output : Jane <[email protected]>
ok 6 - same output : Jane Doe <[email protected]>
ok 7 - same output : "Jane" <[email protected]>
ok 8 - same output : "Doe, Jane" <[email protected]>
ok 9 - same output : "Jane@:;\>.,()<Doe" <[email protected]>
ok 10 - same output : Jane!\#$%&'*+-/=?^_{|}~Doe' <[email protected]>
ok 11 - same output : "<[email protected]>"
ok 12 - same output : "Jane [email protected]"
ok 13 - same output : Jane Doe <jdoe    @   example.com  >
ok 14 - same output : Jane       Doe <  [email protected]  >
ok 15 - same output : Jane @ Doe @ Jane @ Doe
ok 16 - same output : "Jane, 'Doe'" <[email protected]>
ok 17 - same output : 'Doe, "Jane' <[email protected]>
ok 18 - same output : "Jane" "Do"e <[email protected]>
ok 19 - same output : "Jane' Doe" <[email protected]>
ok 20 - same output : "Jane Doe <[email protected]>" <[email protected]>
ok 21 - same output : "Jane\" Doe" <[email protected]>
ok 22 - same output : Doe, jane <[email protected]>
ok 23 - same output : "Jane Doe <[email protected]>
ok 24 - same output : 'Jane 'Doe' <[email protected]>
not ok 25 - same output : Jane\ Doe <[email protected]> # TODO known breakage
#   Failed (TODO) test 'same output : Jane\ Doe <[email protected]>'
#   at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
#     Structures begin differing at:
#          $got->[0] = '"Jane \ Doe" <[email protected]>'
#     $expected->[0] = '"Jane\ Doe" <[email protected]>'
not ok 26 - same output : "Doe, Ja"ne <[email protected]> # TODO known breakage
#   Failed (TODO) test 'same output : "Doe, Ja"ne <[email protected]>'
#   at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
#     Structures begin differing at:
#          $got->[0] = '"Doe, Ja" ne <[email protected]>'
#     $expected->[0] = '"Doe, Ja ne" <[email protected]>'
not ok 27 - same output : "Doe, Katarina" Jane <[email protected]> # TODO known 
breakage
#   Failed (TODO) test 'same output : "Doe, Katarina" Jane <[email protected]>'
#   at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
#     Structures begin differing at:
#          $got->[0] = '"Doe, Katarina" Jane <[email protected]>'
#     $expected->[0] = '"Doe, Katarina Jane" <[email protected]>'
not ok 28 - same output : Jane@:;\.,()<>Doe <[email protected]> # TODO known 
breakage
#   Failed (TODO) test 'same output : Jane@:;\.,()<>Doe <[email protected]>'
#   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 [email protected] # TODO known breakage
#   Failed (TODO) test 'same output : Jane [email protected]'
#   at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
#     Structures begin differing at:
#          $got->[0] = 'Jane'
#     $expected->[0] = '[email protected]'
not ok 30 - same output : <[email protected]> Jane Doe # TODO known breakage
#   Failed (TODO) test 'same output : <[email protected]> Jane Doe'
#   at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
#     Structures begin differing at:
#          $got->[0] = 'Jane Doe <[email protected]>'
#     $expected->[0] = '[email protected]'
not ok 31 - same output : Jane <[email protected]> Doe # TODO known breakage
#   Failed (TODO) test 'same output : Jane <[email protected]> Doe'
#   at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
#     Structures begin differing at:
#          $got->[0] = 'Jane Doe <[email protected]>'
#     $expected->[0] = 'Jane <[email protected]>'
not ok 32 - same output : "Jane "Kat"a" ri"na" ",Doe" <[email protected]> # TODO 
known breakage
#   Failed (TODO) test 'same output : "Jane "Kat"a" ri"na" ",Doe" 
<[email protected]>'
#   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" <[email protected]>'
#     $expected->[0] = '"Jane  Kat a ri na ,Doe" <[email protected]>'
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 <[email protected]>" # TODO known breakage
#   Failed (TODO) test 'same output : Jane "Doe <[email protected]>"'
#   at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
#     Structures begin differing at:
#          $got->[0] = 'Jane'
#     $expected->[0] = '"Jane Doe <[email protected]>"'
not ok 35 - same output : \"Jane Doe <[email protected]> # TODO known breakage
#   Failed (TODO) test 'same output : \"Jane Doe <[email protected]>'
#   at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
#     Structures begin differing at:
#          $got->[0] = '\ " Jane Doe <[email protected]>'
#     $expected->[0] = '"\"Jane Doe" <[email protected]>'
not ok 36 - same output : Jane\"\" Doe <[email protected]> # TODO known breakage
#   Failed (TODO) test 'same output : Jane\"\" Doe <[email protected]>'
#   at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
#     Structures begin differing at:
#          $got->[0] = 'Jane \ " \ " Doe <[email protected]>'
#     $expected->[0] = '"Jane\"\" Doe" <[email protected]>'
not ok 37 - same output : 'Jane "Katarina\" \' Doe' <[email protected]> # TODO 
known breakage
#   Failed (TODO) test 'same output : 'Jane "Katarina\" \' Doe' 
<[email protected]>'
#   at /Users/me/projects/git/git.pu/t/t9000/test.pl line 62.
#     Structures begin differing at:
#          $got->[0] = ''Jane " Katarina \ " \ ' Doe' <[email protected]>'
#     $expected->[0] = '"'Jane  Katarina\" \' Doe'" <[email protected]>'
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 [email protected]
More majordomo info at  http://vger.kernel.org/majordomo-info.html

Reply via email to