]>
iEval git - www-passmark.git/blob - t/WWW-Passmark.t
5 use Test
::RequiresInternet
('www.cpubenchmark.net' => 443, 'www.videocardbenchmark.net' => 443);
6 use Test
::More tests
=> 10;
7 use List
::Util qw
/first/;
9 BEGIN { use_ok
('WWW::Passmark') };
11 my $cpu_list = get_cpu_list
;
12 my $gpu_list = get_gpu_list
;
14 my $fx8350 = first
{ $_->name =~ /AMD FX-8350/i } @
$cpu_list;
15 my $rx460 = first
{ $_->name eq 'Radeon RX 460' } @
$gpu_list;
17 ok
defined $fx8350, 'Found AMD FX-8350 in CPU list';
18 ok
defined $rx460, 'Found Radeon RX 460 in GPU list';
20 cmp_ok
$fx8350->cpumark, '>', 0, 'cpumark is positive';
21 cmp_ok
$fx8350->single_thread_mark, '>', 0, 'single_thread_mark is positive';
22 is
$fx8350->tdp, 125, 'TDP is correct';
23 is
$fx8350->socket, 'AM3+', 'socket is correct';
25 cmp_ok
$rx460->g3dmark, '>', 0, 'g3dmark is positive';
26 cmp_ok
$rx460->g2dmark, '>', 0, 'g2dmark is positive';
27 is
$rx460->tdp, 75, 'TDP is correct';
This page took 0.044214 seconds and 5 git commands to generate.