]>
Commit | Line | Data |
---|---|---|
a2ab58da | 1 | #!/bin/bash |
a2ab58da EV |
2 | set -e |
3 | ||
c6448ee3 ZJS |
4 | which perl &>/dev/null || exit 77 |
5 | ||
a2ab58da EV |
6 | function generate_directives() { |
7 | perl -aF'/[\s,]+/' -ne ' | |
8 | if (my ($s, $d) = ($F[0] =~ /^([^\s\.]+)\.([^\s\.]+)$/)) { $d{$s}{"$d="} = 1; } | |
9 | END { while (my ($key, $value) = each %d) { | |
10 | printf "[%s]\n%s\n", $key, join("\n", keys(%$value)) | |
11 | }}' "$1" | |
12 | } | |
13 | ||
051f39c2 | 14 | ret=0 |
291539b7 | 15 | if ! diff \ |
c6448ee3 ZJS |
16 | <(generate_directives "$1"/src/network/networkd-network-gperf.gperf | sort) \ |
17 | <(cat "$1"/test/fuzz/fuzz-network-parser/directives.network | sort); then | |
cc5549ca ZJS |
18 | echo "Looks like test/fuzz/fuzz-network-parser/directives.network hasn't been updated" |
19 | ret=1 | |
a2ab58da EV |
20 | fi |
21 | ||
291539b7 | 22 | if ! diff \ |
c6448ee3 ZJS |
23 | <(generate_directives "$1"/src/network/netdev/netdev-gperf.gperf | sort) \ |
24 | <(cat "$1"/test/fuzz/fuzz-netdev-parser/directives.netdev | sort); then | |
cc5549ca ZJS |
25 | echo "Looks like test/fuzz/fuzz-netdev-parser/directives.netdev hasn't been updated" |
26 | ret=1 | |
a2ab58da | 27 | fi |
810d43a8 | 28 | |
291539b7 | 29 | if ! diff \ |
c6448ee3 ZJS |
30 | <(generate_directives "$1"/src/udev/net/link-config-gperf.gperf | sort) \ |
31 | <(cat "$1"/test/fuzz/fuzz-link-parser/directives.link | sort) ; then | |
cc5549ca ZJS |
32 | echo "Looks like test/fuzz/fuzz-link-parser/directives.link hasn't been updated" |
33 | ret=1 | |
810d43a8 | 34 | fi |
051f39c2 YW |
35 | |
36 | exit $ret |