|
@@ -0,0 +1,64 @@
|
|
|
+# Compare metadata filter output containing float value strings to reference
|
|
|
+# output data. Returns the whole reference data if delta of each value is below
|
|
|
+# threshold, else returns the whole input data.
|
|
|
+
|
|
|
+function abs(val) {
|
|
|
+ return ((val < 0.0) ? -val : val);
|
|
|
+}
|
|
|
+
|
|
|
+function max(val1, val2) {
|
|
|
+ return ((val1 >= val2) ? val1 : val2);
|
|
|
+}
|
|
|
+
|
|
|
+function is_numeric_str(str) {
|
|
|
+ return (str ~ /^[+-]?[0-9]*\.?[0-9]+$/);
|
|
|
+}
|
|
|
+
|
|
|
+BEGIN {
|
|
|
+ FS = "=";
|
|
|
+ # check for "fuzz" (threshold) program parameter, else use default
|
|
|
+ if (fuzz <= 0.0) {
|
|
|
+ fuzz = 0.1;
|
|
|
+ }
|
|
|
+ # check for "ref" (reference file) program parameter
|
|
|
+ if (ref) {
|
|
|
+ ref_nr = 0;
|
|
|
+ while ((getline line < ref) > 0) {
|
|
|
+ ref_nr++;
|
|
|
+ ref_lines[ref_nr] = line;
|
|
|
+ if (split(line, fields) == 2 && is_numeric_str(fields[2])) {
|
|
|
+ ref_keys[ref_nr] = fields[1];
|
|
|
+ ref_vals[ref_nr] = fields[2] + 0; # convert to number
|
|
|
+ }
|
|
|
+ }
|
|
|
+ close(ref);
|
|
|
+ }
|
|
|
+ delta_max = 0;
|
|
|
+ result = (ref ? 1 : 0);
|
|
|
+}
|
|
|
+
|
|
|
+{
|
|
|
+ cmp_lines[NR] = $0;
|
|
|
+ if (NF == 2 && is_numeric_str($2) && ref_vals[NR]) {
|
|
|
+ val = $2 + 0; # convert to number
|
|
|
+ delta = abs((val / ref_vals[NR]) - 1);
|
|
|
+ delta_max = max(delta_max, delta);
|
|
|
+ result = result && ($1 == ref_keys[NR]) && (delta <= fuzz);
|
|
|
+ } else {
|
|
|
+ result = result && ($0 == ref_lines[NR]);
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+END {
|
|
|
+ if (result) {
|
|
|
+ for (i = 1; i <= ref_nr; i++)
|
|
|
+ print ref_lines[i];
|
|
|
+ } else {
|
|
|
+ for (i = 1; i <= NR; i++)
|
|
|
+ print cmp_lines[i];
|
|
|
+ if (NR != ref_nr)
|
|
|
+ print "[refcmp] lines: " NR " != " ref_nr > "/dev/stderr";
|
|
|
+ if (delta_max >= fuzz)
|
|
|
+ print "[refcmp] delta_max: " delta_max " >= " fuzz > "/dev/stderr";
|
|
|
+ }
|
|
|
+}
|