blob: e2fd38898f359af0871b913bef7ac0de20c46819 [file] [log] [blame]
Evgeny Vereshchagina2ab58d2018-11-28 04:50:04 +01001#!/bin/bash
2
3set -e
4
5function generate_directives() {
6 perl -aF'/[\s,]+/' -ne '
7 if (my ($s, $d) = ($F[0] =~ /^([^\s\.]+)\.([^\s\.]+)$/)) { $d{$s}{"$d="} = 1; }
8 END { while (my ($key, $value) = each %d) {
9 printf "[%s]\n%s\n", $key, join("\n", keys(%$value))
10 }}' "$1"
11}
12
13if [[ $(generate_directives src/network/networkd-network-gperf.gperf | wc -l) -ne $(wc -l <test/fuzz/fuzz-network-parser/directives.network) ]]; then
14 echo "Looks like test/fuzz/fuzz-network-parser/directives.network hasn't been updated"
15 exit 1
16fi
17
18if [[ $(generate_directives src/network/netdev/netdev-gperf.gperf | wc -l) -ne $(wc -l <test/fuzz/fuzz-netdev-parser/directives.netdev) ]]; then
19 echo "Looks like test/fuzz/fuzz-netdev-parser/directives.netdev hasn't been updated"
20 exit 1
21fi