From b551e9315f5e1e6c687fc2dfa90595a2ab3caecd Mon Sep 17 00:00:00 2001
From: Dexter Morgan <dmorgan@mageia.org>
Date: Thu, 2 Jun 2011 20:52:55 +0000
Subject: Branch for updates

---
 test/diff.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 test/diff.pl

(limited to 'test/diff.pl')

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) ],
+);
-- 
cgit v1.2.1