diff --git a/scripts/test/simple_tests.pl b/scripts/test/simple_tests.pl index d8b452f..ad932f5 100755 --- a/scripts/test/simple_tests.pl +++ b/scripts/test/simple_tests.pl @@ -14,8 +14,6 @@ use Data::Dumper; use DNA; use Clone qw(clone); use Test::Deep; -use Sys::Info; -use Sys::Info::Constants qw( :device_cpu ); my $bowtie = ""; my $bowtie_build = ""; @@ -1130,9 +1128,8 @@ sub runbowtie($$$$$$$$$$$$$$$$$$$$$$$) { while() { print $_; } close(FA); if($do_build) { - my $info = Sys::Info->new; - my $cpu = $info->device('CPU'); - my $nthreads = int(rand($cpu->count || 1)) + 1; + my $cpu_count = 2; + my $nthreads = int(rand($cpu_count || 1)) + 1; my $build_args = ""; $build_args .= " -C " if $color; my $cmd = "$bowtie_build $idx_type --threads $nthreads --quiet --sanity $build_args $fa .simple_tests.tmp"; -- 2.21.0