]> git.ipfire.org Git - thirdparty/git.git/blame - t/t4018-diff-funcname.sh
git-for-each-ref.txt: 'raw' is a supported date format
[thirdparty/git.git] / t / t4018-diff-funcname.sh
CommitLineData
f258475a
JH
1#!/bin/sh
2#
3# Copyright (c) 2007 Johannes E. Schindelin
4#
5
6test_description='Test custom diff function name patterns'
7
8. ./test-lib.sh
9
10LF='
11'
d64d6cdc 12cat >Beer.java <<\EOF
f258475a
JH
13public 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}
30EOF
d64d6cdc 31sed 's/beer\\/beer,\\/' <Beer.java >Beer-correct.java
f143d9c6 32cat >Beer.perl <<\EOT
f12c66b9
JN
33package Beer;
34
35use strict;
36use warnings;
37use parent qw(Exporter);
ea2ca449
JN
38our @EXPORT_OK = qw(round finalround);
39
40sub other; # forward declaration
41
42# hello
f12c66b9
JN
43
44sub 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
ea2ca449
JN
53sub finalround
54{
55 print "Go to the store, buy some more\n";
56 print "99 bottles of beer on the wall.\n");
57}
58
f143d9c6
JN
59sub withheredocument {
60 print <<"EOF"
61decoy here-doc
62EOF
63 # some lines of context
64 # to pad it out
65 print "hello\n";
66}
67
f12c66b9
JN
68__END__
69
70=head1 NAME
71
72Beer - subroutine to output fragment of a drinking song
73
74=head1 SYNOPSIS
75
ea2ca449 76 use Beer qw(round finalround);
f12c66b9
JN
77
78 sub song {
79 for (my $i = 99; $i > 0; $i--) {
80 round $i;
81 }
ea2ca449 82 finalround;
f12c66b9
JN
83 }
84
85 song;
86
87=cut
f143d9c6 88EOT
f12c66b9 89sed -e '
ea2ca449 90 s/hello/goodbye/
f12c66b9 91 s/beer\\/beer,\\/
ea2ca449 92 s/more\\/more,\\/
f12c66b9
JN
93 s/song;/song();/
94' <Beer.perl >Beer-correct.perl
f258475a 95
f792a0b8
JN
96test_config () {
97 git config "$1" "$2" &&
98 test_when_finished "git config --unset $1"
99}
100
d64d6cdc 101test_expect_funcname () {
f12c66b9
JN
102 lang=${2-java}
103 test_expect_code 1 git diff --no-index -U1 \
104 "Beer.$lang" "Beer-correct.$lang" >diff &&
d64d6cdc
JN
105 grep "^@@.*@@ $1" diff
106}
107
e90d065e 108for p in ada bibtex cpp csharp fortran html java matlab objc pascal perl php python ruby tex
e3bf5e43
BC
109do
110 test_expect_success "builtin $p pattern compiles" '
5b5e4594 111 echo "*.java diff=$p" >.gitattributes &&
d64d6cdc
JN
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
e3bf5e43 116 '
bff42061 117 test_expect_success "builtin $p wordRegex pattern compiles" '
5b5e4594 118 echo "*.java diff=$p" >.gitattributes &&
d64d6cdc
JN
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
bff42061 123 '
e3bf5e43
BC
124done
125
f258475a 126test_expect_success 'default behaviour' '
e3bf5e43 127 rm -f .gitattributes &&
d64d6cdc 128 test_expect_funcname "public class Beer\$"
f258475a
JH
129'
130
5b5e4594 131test_expect_success 'set up .gitattributes declaring drivers to test' '
f12c66b9
JN
132 cat >.gitattributes <<-\EOF
133 *.java diff=java
134 *.perl diff=perl
135 EOF
5b5e4594
JN
136'
137
f258475a 138test_expect_success 'preset java pattern' '
d64d6cdc 139 test_expect_funcname "public static void main("
f258475a
JH
140'
141
f12c66b9
JN
142test_expect_success 'preset perl pattern' '
143 test_expect_funcname "sub round {\$" perl
144'
145
ea2ca449
JN
146test_expect_success 'perl pattern accepts K&R style brace placement, too' '
147 test_expect_funcname "sub finalround\$" perl
148'
149
f143d9c6
JN
150test_expect_success 'but is not distracted by end of <<here document' '
151 test_expect_funcname "sub withheredocument {\$" perl
152'
153
f12c66b9
JN
154test_expect_success 'perl pattern is not distracted by sub within POD' '
155 test_expect_funcname "=head" perl
156'
157
12f0967a
JN
158test_expect_success 'perl pattern gets full line of POD header' '
159 test_expect_funcname "=head1 SYNOPSIS\$" perl
160'
161
ea2ca449
JN
162test_expect_success 'perl pattern is not distracted by forward declaration' '
163 test_expect_funcname "package Beer;\$" perl
164'
165
f258475a 166test_expect_success 'custom pattern' '
f792a0b8
JN
167 test_config diff.java.funcname "!static
168!String
169[^ ].*s.*" &&
d64d6cdc 170 test_expect_funcname "int special;\$"
f258475a
JH
171'
172
173test_expect_success 'last regexp must not be negated' '
f792a0b8 174 test_config diff.java.funcname "!static" &&
d64d6cdc
JN
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
f258475a
JH
177'
178
563d5a2c 179test_expect_success 'pattern which matches to end of line' '
d64d6cdc
JN
180 test_config diff.java.funcname "Beer\$" &&
181 test_expect_funcname "Beer\$"
f258475a
JH
182'
183
3632cfc2 184test_expect_success 'alternation in pattern' '
f792a0b8
JN
185 test_config diff.java.funcname "Beer$" &&
186 test_config diff.java.xfuncname "^[ ]*((public|static).*)$" &&
d64d6cdc 187 test_expect_funcname "public static void main("
3632cfc2
AL
188'
189
f258475a 190test_done