regress: Provide fuzzcat.d

[adns.git] / regress / categorizefuzz

diff --git a/regress/categorizefuzz b/regress/categorizefuzz
new file mode 100755 (executable)
index 0000000..5a6a623
--- /dev/null
+++ b/regress/categorizefuzz
@@ -0,0 +1,18 @@
+#!/bin/sh
+set -e
+
+out=fuzzcat.d
+
+rm -rf "$out"
+mkdir "$out"
+
+for case in "$@"; do
+       fuzz="fuzz-$case"
+       exec <"$fuzz"
+       read nargs
+       read arg0len
+       read program
+       program="${program##*/}"
+       mkdir -p "$out/$program"
+       ln "$fuzz" "$out/$program"/.
+done