File Coverage

backend/ikvm.pm
Criterion Covered Total %
statement 26 40 65.0
total 26 40 65.0


line stmt code
1   # Copyright 2009-2013 Bernhard M. Wiedemann
2   # Copyright 2012-2020 SUSE LLC
3   # SPDX-License-Identifier: GPL-2.0-or-later
4    
5    
6   use Mojo::Base 'backend::ipmi', -signatures;
7 1 use autodie ':all';
  1  
  1  
8 1  
  1  
  1  
9   backend::baseclass::handle_deprecate_backend('IKVM');
10 2 return $class->SUPER::new;
  2  
  2  
11 2 }
12 1  
13   my $vncopts = {
14   hostname => $bmwqemu::vars{IPMI_HOSTNAME},
15 1 port => 5900,
  1  
  1  
16   username => $bmwqemu::vars{IPMI_USER},
17   password => $bmwqemu::vars{IPMI_PASSWORD},
18   };
19   my $hwclass = $bmwqemu::vars{IPMI_HW} || 'supermicro';
20   $vncopts->{ikvm} = 1 if $hwclass eq 'supermicro';
21 1 if ($hwclass eq 'dell') {
22 1 $vncopts->{dell} = 1;
23 1 $vncopts->{port} = 5901;
24 1 }
25 0 my $vnc = $testapi::distri->add_console('sut', 'vnc-base', $vncopts);
26 0 $vnc->backend($self);
27   $self->select_console({testapi_console => 'sut'});
28 1  
29 1 return 1;
30 1 }
31    
32 1 $self->get_mc_status;
33   $self->restart_host;
34   $self->relogin_vnc;
35 1 $self->truncate_serial_file;
  1  
  1  
36 1 my $sol = $testapi::distri->add_console('sol', 'ipmi-sol', {serialfile => $self->{serialfile}});
37 0 $sol->activate;
38 0 return {};
39 0 }
40 0  
41 0 $self->ipmitool("chassis power off");
42 0 $self->deactivate_console({testapi_console => 'sol'});
43   return {};
44   }
45 0  
  0  
  0  
46 0 1;