From 8b38ae039d55b86f25819b8dda992e1961b9dfcc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 14 Mar 2005 15:09:23 +0000
Subject: add dmitable

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

(limited to 'test/check_dmidecode.pl')

diff --git a/test/check_dmidecode.pl b/test/check_dmidecode.pl
new file mode 100755
index 00000000..53adb90d
--- /dev/null
+++ b/test/check_dmidecode.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use MDK::Common;
+
+foreach my $file (glob("dmidecode.*")) {
+    my %wanted = cat_($file) =~ /\(=> (\S+): (\S+)\)/g;
+
+    my %got = map {
+	s/\s*: .*//;
+	/(\S+):(.*)/ ? ($1 => $2) : ();
+    } `lspcidrake -p /dev/null -u /dev/null --dmidecode $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;
+    }
+}
-- 
cgit v1.2.1