add monitor-probe and monitor-probe-using-X

1 files changed, 26 insertions, 0 deletions

diff --git a/test/check-probe-using-X b/test/check-probe-using-X
new file mode 100755
index 0000000..d3ff316
--- /dev/null
+++ b/test/check-probe-using-X
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use MDK::Common;
+
+foreach my $file (glob("Xorg.*")) {
+    my %wanted = cat_($file) =~ /\(=> (\S+): (\S+)\)/g;
+
+    my %got = map {
+	(Resolution => /(\S+)/);
+    } `../monitor-probe-using-X $file`;
+
+    my @missing = difference2([ keys %wanted ], [ keys %got ]);
+    if (@missing) {
+	warn "for $file, missing: ", join(' ', @missing), "\n";
+    }
+
+    my @surprise = difference2([ keys %got ], [ keys %wanted ]);
+    if (@surprise) {
+	warn "for $file, surprise: ", join(' ', map { "$_: $got{$_}" } @surprise), "\n";
+    }
+
+    my @bad = grep { $wanted{$_} ne $got{$_} } intersection([ keys %wanted ], [ keys %got ]);
+    if (@bad) {
+	warn "for $file, bad $_: $wanted{$_} != $got{$_}\n" foreach @bad;
+    }
+}