Merge pull request os-autoinst#20749 from lpalovsky/sdaf_pc_library

Add SDAF PC lib compatibility layer

lib/sles4sap/sap_deployment_automation_framework/inventory_tools.pm

@@ -14,6 +14,7 @@ use Exporter qw(import);
 use Carp qw(croak);
 use sles4sap::sap_deployment_automation_framework::naming_conventions
   qw($deployer_private_key_path $sut_private_key_path);
+use publiccloud::azure;
 
 =head1 SYNOPSIS
 
@@ -61,6 +62,7 @@ our @EXPORT = qw(
   prepare_ssh_config
   verify_ssh_proxy_connection
   create_redirection_data
+  sdaf_create_instances
 );
 
 =head2 read_inventory_file
@@ -296,3 +298,46 @@ sub translate_hosts_data {
     } } keys(%hosts_data);
     return %result;
 }
+
+
+=head2 sdaf_create_instances
+
+    sdaf_create_instances(inventory_content=>HASHREF);
+
+Creates and returns  B<$instances> class which is a main component of F<lib/sles4sap_publiccloud.pm> and
+general public cloud libraries F</lib/publiccloud/*>.
+Check SDAF inventory file example in B<SYNOPSIS>
+
+=over
+
+=item * B<inventory_content> Referenced content of the SDAF inventory yaml file
+
+=item * B<sut_ssh_key_path> Path to private key file allowing SSH connection to SUT
+
+=back
+=cut
+
+sub sdaf_create_instances {
+    my (%args) = @_;
+    my @instances;
+
+    for my $instance_type (keys(%{$args{inventory_content}})) {
+        my $hosts = $args{inventory_content}->{$instance_type}{hosts};
+        for my $physical_host (keys %$hosts) {
+            my $instance = publiccloud::instance->new(
+                public_ip => $hosts->{$physical_host}->{ansible_host},
+                instance_id => $physical_host,
+                username => $hosts->{$physical_host}->{ansible_user},
+                ssh_key => $args{sut_ssh_key_path},
+                # Provider does not seem to be needed for SDAF as SDAF does AZ authentication differently
+                # Calling it causes a lot of troubles like creating ssh keys and .ssh/config which breaks SSH connections
+                provider => 'dummy',
+                region => get_required_var('PUBLIC_CLOUD_REGION')
+            );
+            push(@instances, $instance);
+        }
+    }
+
+    publiccloud::instances::set_instances(@instances);
+    return \@instances;
+}

schedule/sles4sap/sap_deployment_automation_framework/hanasr_publiccloud.yml

@@ -0,0 +1,13 @@
+---
+name: sap_deployment_automation_framework
+description: |
+    Hana SR test scenario executed on deployment created by 'SAP Deployment automation framework'
+    Uses `lib/publiccloud/*` libraries for interacting with SUT.
+    Interaction happens using wrapper function around `ssh` command.
+vars:
+    TEST_CONTEXT: 'OpenQA::Test::RunArgs'
+schedule:
+    - boot/boot_to_desktop
+    - sles4sap/sap_deployment_automation_framework/connect_to_deployer
+    - sles4sap/sap_deployment_automation_framework/setup_publiccloud_instances
+    - sles4sap/sap_deployment_automation_framework/cleanup

tests/sles4sap/sap_deployment_automation_framework/setup_publiccloud_instances.pm

@@ -0,0 +1,88 @@
+# SUSE's openQA tests
+#
+# Copyright SUSE LLC
+# SPDX-License-Identifier: FSFAP
+# Maintainer: QE-SAP <qe-sap@suse.de>
+# Summary: Prepares compatibility layer for using `lib/publiccloud/*` library with SDAF deployment
+
+use parent 'sles4sap::sap_deployment_automation_framework::basetest';
+
+use warnings;
+use strict;
+use testapi;
+use serial_terminal qw(select_serial_terminal);
+use sles4sap::console_redirection qw(connect_target_to_serial disconnect_target_from_serial);
+use sles4sap::sap_deployment_automation_framework::inventory_tools qw(read_inventory_file sdaf_create_instances);
+use sles4sap::sap_deployment_automation_framework::naming_conventions
+  qw(get_sdaf_inventory_path convert_region_to_short get_sdaf_config_path get_workload_vnet_code);
+
+sub run {
+    my ($self, $run_args) = @_;
+    select_serial_terminal;
+    my $workload_vnet_code = get_workload_vnet_code();
+    my $sap_sid = get_required_var('SAP_SID');
+    my $sdaf_region_short = convert_region_to_short(get_required_var('PUBLIC_CLOUD_REGION'));
+    my $sdaf_env_code = get_required_var('SDAF_ENV_CODE');
+
+    my $inventory_path = get_sdaf_inventory_path(
+        env_code => $sdaf_env_code,
+        sdaf_region_code => $sdaf_region_short,
+        vnet_code => $workload_vnet_code,
+        sap_sid => $sap_sid
+    );
+
+    my $sut_ssh_private_key = get_sdaf_config_path(
+        deployment_type => 'sap_system',
+        env_code => $sdaf_env_code,
+        sdaf_region_code => $sdaf_region_short,
+        vnet_code => $workload_vnet_code,
+        sap_sid => $sap_sid) . '/sshkey';
+
+    # Redirect serial to deployer VM. Deployer VM takes same role as worker VM.
+    # Normally PC test runs under root user
+    connect_target_to_serial(switch_root => 'yes');
+
+    # PC lib uses 'bernhard' user by default - change global variable to override this default value
+    $testapi::username = "root";
+
+    my $inventory_data = read_inventory_file($inventory_path);
+
+    # Copy SUT ssh key to root user home dir which is what PC library is using by default.
+    assert_script_run("cp -Rp $sut_ssh_private_key /root/.ssh/id_rsa");
+    # Copy known_hosts file from azureadm user
+    assert_script_run("cp /home/azureadm/.ssh/known_hosts /root/.ssh/");
+
+    # Create $instances data
+    my $instances = sdaf_create_instances(inventory_content => $inventory_data, sut_ssh_key_path => $sut_ssh_private_key);
+    $run_args->{instances} = $self->{instances} = $instances;
+    publiccloud::instances::set_instances(@$instances);
+
+    # This is required for `lib/sles4sap_publiccloud.pm`
+    $run_args->{site_a} = $run_args->{instances}[0];
+    $run_args->{site_b} = $run_args->{instances}[1];
+
+    # Basic check if PC library calls work.
+    for my $instance (@$instances) {
+        $self->{my_instance} = $instance;
+        record_info('Wait SSH', 'Running "wait_for_ssh()" on: ' . $instance->{instance_id});
+        $instance->wait_for_ssh();
+
+        # Check hostname and verify `ssh_script_output` function working
+        record_info('hostname check', "Checking expected hostname '$instance->{instance_id}'");
+        my $real_hostname = $instance->ssh_script_output(cmd => 'hostname');
+        die "Hostname '$real_hostname' returned by server does not match expected one - $instance->{instance_id}" unless
+          $real_hostname =~ $instance->{instance_id};
+
+        # Check connected user and verify `ssh_script_run` working
+        die 'Check if connected user is "azureadm"' if $instance->ssh_script_run(cmd => 'whoami | grep azureadm');
+
+        # Check system status and test 'run_ssh_command' function
+        $instance->run_ssh_command(cmd => 'systemctl is-system-running');
+
+        # Check NTP service and verify 'ssh_assert_script_run' function
+        $instance->ssh_assert_script_run(cmd => 'systemctl is-active chronyd');
+    }
+    disconnect_target_from_serial;
+}
+
+1;