reimport from latest checkout

1 files changed, 19 insertions, 0 deletions

diff --git a/test/diff.pl b/test/diff.pl
new file mode 100755
index 0000000..e081986
--- /dev/null
+++ b/test/diff.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+use Xconfig::glx;
+use MDK::Common;
+
+use Data::Dumper;
+
+my ($extension, $file1, $file2) = @ARGV;
+
+my ($extensions1, $extensions2) = map {
+    print Dumper(Xconfig::glx::parse_glxinfo(file => $_));
+    Xconfig::glx::parse_glxinfo(file => $_)->{extensions}{$extension};
+} $file1, $file2;
+
+print Dumper(
+    [ difference2($extensions1, $extensions2) ],
+    [ difference2($extensions2, $extensions1) ],
+);