+ "1r6976bs86j7zp51m5vh42xlyah951jgdlkimv202413kjvqc2i5"))
+ (modules '((guix build utils)))
+ (snippet
+ '(begin
+ ;; The contents of /proc/cpuinfo can differ and confuse the
+ ;; cpu_clock and cpu_type methods, so we replace the test
+ ;; with one that marks cpu_clock and cpu_type as TODO.
+ ;; Borrowed from Debian.
+ (call-with-output-file "t/Sys-CPU.t"
+ (lambda (port)
+ (format port "#!/usr/bin/perl
+
+use Test::More tests => 4;
+
+BEGIN { use_ok('Sys::CPU'); }
+
+$number = &Sys::CPU::cpu_count();
+ok( defined($number), \"CPU Count: $number\" );
+
+TODO: {
+ local $TODO = \"/proc/cpuinfo doesn't always report 'cpu MHz' or 'clock' or 'bogomips' ...\";
+ $speed = &Sys::CPU::cpu_clock();
+ ok( defined($speed), \"CPU Speed: $speed\" );
+}
+
+TODO: {
+ local $TODO = \"/proc/cpuinfo doesn't always report 'model name' or 'machine' ...\";
+ $type = &Sys::CPU::cpu_type();
+ ok( defined($type), \"CPU Type: $type\" );
+}~%")))))))