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
|
#!/bin/sh
set -u
base="$(readlink -f "${0%/*}"/..)"
# perltidy test is ran only during dev
if test "$(cd "$base" && dpkg-parsechangelog -c0 -SDistribution)" != UNRELEASED; then
echo "SKIP: Not checking a released version with perltidy."
exit 0
fi
# perltidy test isn't ran in autopkgtest environment
if test "${1:-}" = --installed; then
echo "SKIP: Not running perltidy in autopkgtest."
exit 0
fi
# Don't run this test with old Perltidy versions
if test "$(perl -MPerl::Tidy -le 'print $Perl::Tidy::VERSION')" -lt 20250105; then
echo "SKIP: perltidy version too old, skipping this test."
exit 0
fi
testPerltidy() {
LIST=$(find "$base/lib/" "$base/scripts/" -iname '*.pl' -or -iname '*.pm')
for file in $LIST; do
perltidy --output-path="$SHUNIT_TMPDIR/" --profile="$base/.perltidyrc" "$file"
cmp -s "$file" "$SHUNIT_TMPDIR/$(basename "$file").tdy"
retval=$?
assertEquals "## $file isn't following perltidy" 0 "$retval"
if test "$retval" != 0; then
diff --unchanged-line-format="" --old-line-format="original line %dn: %L" \
--new-line-format="perltidy line %dn: %L"\
"$file" "$SHUNIT_TMPDIR/$(basename "$file").tdy"
fi
done
}
. shunit2
|
