diff options
author | Dexter Morgan <dmorgan@mageia.org> | 2011-06-02 20:52:55 +0000 |
---|---|---|
committer | Dexter Morgan <dmorgan@mageia.org> | 2011-06-02 20:52:55 +0000 |
commit | b551e9315f5e1e6c687fc2dfa90595a2ab3caecd (patch) | |
tree | 7f21dfab4b512f626906f7d0825bef5891c1e57b /test/diff.pl | |
download | drak3d-distro/mga1.tar drak3d-distro/mga1.tar.gz drak3d-distro/mga1.tar.bz2 drak3d-distro/mga1.tar.xz drak3d-distro/mga1.zip |
Branch for updatesdistro/mga1
Diffstat (limited to 'test/diff.pl')
-rwxr-xr-x | test/diff.pl | 19 |
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) ], +); |