diff options
author | Thierry Vignaud <tv@mandriva.org> | 2007-06-07 21:11:56 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2007-06-07 21:11:56 +0000 |
commit | 9e2f460998c85976f00f6f5d75a0098155ba196c (patch) | |
tree | 650689ebf9b24c42fda353bbaed40bc93a6f4ad6 /test/diff.pl | |
parent | 8f3f6121feee52bed602842f953df78d3c30135a (diff) | |
download | drak3d-9e2f460998c85976f00f6f5d75a0098155ba196c.tar drak3d-9e2f460998c85976f00f6f5d75a0098155ba196c.tar.gz drak3d-9e2f460998c85976f00f6f5d75a0098155ba196c.tar.bz2 drak3d-9e2f460998c85976f00f6f5d75a0098155ba196c.tar.xz drak3d-9e2f460998c85976f00f6f5d75a0098155ba196c.zip |
reimport from latest checkout
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) ], +); |