1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#!/usr/bin/env bash
######################################################################
# #
# OCamlFormat #
# #
# Copyright (c) 2017-present, Facebook, Inc. All rights reserved. #
# #
# This source code is licensed under the MIT license found in the #
# LICENSE file in the root directory of this source tree. #
# #
######################################################################
# usage: test_branch.sh [-n] [-o] [-l] [-s] [-a=rev] [-b=rev] [<option>=<value>*] [<option>=<value>*]
#
# -a set the base branch and -b the test branch. The default value for
# the base branch is the merge-base between the test branch and main.
# The default value for the test branch is HEAD.
#
# If -n is passed, values of -a and -b are paths to ocamlformat binaries
# instead of revs.
#
# If -o is passed, ocp-indent is applied after ocamlformat in the first pass.
# Pass it twice to apply ocp-indent after each passes.
# Options can be passed to it using the 'OCP_INDENT_CONFIG' environment
# variable.
#
# If -l is passed, it will not pull the latest version of the source code used
# for testing.
#
# If -s is passed, diffs are not shown.
#
# The first arg is the value of OCAMLFORMAT to be used when formatting
# using the base branch (a)
#
# The second arg is the value of OCAMLFORMAT to be used when formatting
# the test branch (b). When this arg is not provided, we use the same
# value than for the base branch. This arg should be the empty string ''
# to set OCAMLFORMAT to an empty value.
set -e
arg_a=
arg_b=
arg_n=0
arg_o=0
arg_l=0
arg_s=0
while getopts "a:b:nols" opt; do
case "$opt" in
a) arg_a=$OPTARG ;;
b) arg_b=$OPTARG ;;
n) arg_n=1 ;;
o) arg_o=$((arg_o + 1)) ;;
l) arg_l=1 ;;
s) arg_s=1 ;;
esac
done
shift $((OPTIND-1))
opts_a=$1
opts_b=${2-$opts_a}
# Build a specific version of ocamlformat and copy the binary.
# Arg: rev dest
build_version ()
{
local rev=$1 dest=$2
local tmp=`mktemp -d`
echo "Building $rev in $tmp"
git worktree add --detach "$tmp" "$rev"
( cd "$tmp"
dune subst
dune build @install
dune install --prefix=dist ocamlformat &>/dev/null )
cp "$tmp/dist/bin/ocamlformat" "$dest"
git worktree remove --force "$tmp"
}
if [[ $arg_n = 0 ]]; then
# Build two versions of ocamlformat in temporary directories
rev_b=$(git rev-parse "${arg_b:-HEAD}")
rev_a=$(git rev-parse "${arg_a:-$(git merge-base main "$rev_b")}")
if [[ "$rev_a" = "$rev_b" ]]; then
echo "The base branch is the same as the branch to test ($rev_a)" >&2
if [[ "$opts_a" = "$opts_b" ]]; then
exit 1
fi
fi
exe_dir=`mktemp -d`
trap 'rm -r "$exe_dir"' EXIT
exe_a="$exe_dir/a"
exe_b="$exe_dir/b"
build_version "$rev_a" "$exe_a"
build_version "$rev_b" "$exe_b"
else
# Two versions of ocamlformat are provided
if [[ -z $arg_a ]] || [[ -z $arg_b ]]; then
echo "-a and -b are mandatory when -n is passed." >&2
exit 1
fi
exe_a=`realpath $arg_a`
exe_b=`realpath $arg_b`
fi
echo "Running test_branch with versions:"
echo " a: $("$exe_a" --version)"
echo " b: $("$exe_b" --version)"
run () { make -C test-extra "$@"; }
run test_setup test_unstage test_clean
if [[ $arg_l -eq 0 ]]; then
run test_pull
fi
OCAMLFORMAT="$opts_a" run "OCAMLFORMAT_EXE=$exe_a" test
if [[ $arg_o -ge 1 ]]; then run apply_ocp; fi
run test_stage
OCAMLFORMAT="$opts_b" run "OCAMLFORMAT_EXE=$exe_b" test
if [[ $arg_o -ge 2 ]]; then run apply_ocp; fi
if [[ $arg_s -eq 0 ]]; then run test_diff; fi
run test_numstat
|
