Merge branch 'jc/maint-bundle-too-quiet' into maint
[git] / t / t4018-diff-funcname.sh
1 #!/bin/sh
2 #
3 # Copyright (c) 2007 Johannes E. Schindelin
4 #
5
6 test_description='Test custom diff function name patterns'
7
8 . ./test-lib.sh
9
10 LF='
11 '
12 cat >Beer.java <<\EOF
13 public class Beer
14 {
15         int special;
16         public static void main(String args[])
17         {
18                 String s=" ";
19                 for(int x = 99; x > 0; x--)
20                 {
21                         System.out.print(x + " bottles of beer on the wall "
22                                 + x + " bottles of beer\n"
23                                 + "Take one down, pass it around, " + (x - 1)
24                                 + " bottles of beer on the wall.\n");
25                 }
26                 System.out.print("Go to the store, buy some more,\n"
27                         + "99 bottles of beer on the wall.\n");
28         }
29 }
30 EOF
31 sed 's/beer\\/beer,\\/' <Beer.java >Beer-correct.java
32 cat >Beer.perl <<\EOT
33 package Beer;
34
35 use strict;
36 use warnings;
37 use parent qw(Exporter);
38 our @EXPORT_OK = qw(round finalround);
39
40 sub other; # forward declaration
41
42 # hello
43
44 sub round {
45         my ($n) = @_;
46         print "$n bottles of beer on the wall ";
47         print "$n bottles of beer\n";
48         print "Take one down, pass it around, ";
49         $n = $n - 1;
50         print "$n bottles of beer on the wall.\n";
51 }
52
53 sub finalround
54 {
55         print "Go to the store, buy some more\n";
56         print "99 bottles of beer on the wall.\n");
57 }
58
59 sub withheredocument {
60         print <<"EOF"
61 decoy here-doc
62 EOF
63         # some lines of context
64         # to pad it out
65         print "hello\n";
66 }
67
68 __END__
69
70 =head1 NAME
71
72 Beer - subroutine to output fragment of a drinking song
73
74 =head1 SYNOPSIS
75
76         use Beer qw(round finalround);
77
78         sub song {
79                 for (my $i = 99; $i > 0; $i--) {
80                         round $i;
81                 }
82                 finalround;
83         }
84
85         song;
86
87 =cut
88 EOT
89 sed -e '
90         s/hello/goodbye/
91         s/beer\\/beer,\\/
92         s/more\\/more,\\/
93         s/song;/song();/
94 ' <Beer.perl >Beer-correct.perl
95
96 test_config () {
97         git config "$1" "$2" &&
98         test_when_finished "git config --unset $1"
99 }
100
101 test_expect_funcname () {
102         lang=${2-java}
103         test_expect_code 1 git diff --no-index -U1 \
104                 "Beer.$lang" "Beer-correct.$lang" >diff &&
105         grep "^@@.*@@ $1" diff
106 }
107
108 for p in bibtex cpp csharp fortran html java objc pascal perl php python ruby tex
109 do
110         test_expect_success "builtin $p pattern compiles" '
111                 echo "*.java diff=$p" >.gitattributes &&
112                 test_expect_code 1 git diff --no-index \
113                         Beer.java Beer-correct.java 2>msg &&
114                 ! grep fatal msg &&
115                 ! grep error msg
116         '
117         test_expect_success "builtin $p wordRegex pattern compiles" '
118                 echo "*.java diff=$p" >.gitattributes &&
119                 test_expect_code 1 git diff --no-index --word-diff \
120                         Beer.java Beer-correct.java 2>msg &&
121                 ! grep fatal msg &&
122                 ! grep error msg
123         '
124 done
125
126 test_expect_success 'default behaviour' '
127         rm -f .gitattributes &&
128         test_expect_funcname "public class Beer\$"
129 '
130
131 test_expect_success 'set up .gitattributes declaring drivers to test' '
132         cat >.gitattributes <<-\EOF
133         *.java diff=java
134         *.perl diff=perl
135         EOF
136 '
137
138 test_expect_success 'preset java pattern' '
139         test_expect_funcname "public static void main("
140 '
141
142 test_expect_success 'preset perl pattern' '
143         test_expect_funcname "sub round {\$" perl
144 '
145
146 test_expect_success 'perl pattern accepts K&R style brace placement, too' '
147         test_expect_funcname "sub finalround\$" perl
148 '
149
150 test_expect_success 'but is not distracted by end of <<here document' '
151         test_expect_funcname "sub withheredocument {\$" perl
152 '
153
154 test_expect_success 'perl pattern is not distracted by sub within POD' '
155         test_expect_funcname "=head" perl
156 '
157
158 test_expect_success 'perl pattern gets full line of POD header' '
159         test_expect_funcname "=head1 SYNOPSIS\$" perl
160 '
161
162 test_expect_success 'perl pattern is not distracted by forward declaration' '
163         test_expect_funcname "package Beer;\$" perl
164 '
165
166 test_expect_success 'custom pattern' '
167         test_config diff.java.funcname "!static
168 !String
169 [^      ].*s.*" &&
170         test_expect_funcname "int special;\$"
171 '
172
173 test_expect_success 'last regexp must not be negated' '
174         test_config diff.java.funcname "!static" &&
175         test_expect_code 128 git diff --no-index Beer.java Beer-correct.java 2>msg &&
176         grep ": Last expression must not be negated:" msg
177 '
178
179 test_expect_success 'pattern which matches to end of line' '
180         test_config diff.java.funcname "Beer\$" &&
181         test_expect_funcname "Beer\$"
182 '
183
184 test_expect_success 'alternation in pattern' '
185         test_config diff.java.funcname "Beer$" &&
186         test_config diff.java.xfuncname "^[     ]*((public|static).*)$" &&
187         test_expect_funcname "public static void main("
188 '
189
190 test_done