Merge pull request #156 from AlanMarshall/modularity

Modularity tests fix for  9.1  8.8  &  8.7

needles/anaconda/install_destination/french/rocky-topbar_generic-20230222.json

@@ -0,0 +1,16 @@
+{
+  "area": [
+    {
+      "width": 664,
+      "ypos": 29,
+      "type": "match",
+      "height": 32,
+      "xpos": 78
+    }
+  ],
+  "properties": [],
+  "tags": [
+    "ENV-DISTRI-rocky",
+    "topbar_generic"
+  ]
+}

needles/anaconda/install_process/rocky_do_install_and_reboot-prerelease_note-20230220.json

@@ -0,0 +1,16 @@
+{
+  "area": [
+    {
+      "type": "match",
+      "xpos": 768,
+      "ypos": 9,
+      "width": 129,
+      "height": 27
+    }
+  ],
+  "properties": [],
+  "tags": [
+    "ENV-DISTRI-rocky",
+    "prerelease_note"
+  ]
+}

needles/anaconda/install_process/rocky_do_install_and_reboot-version_8_ident-20230220.json

@@ -0,0 +1,16 @@
+{
+  "area": [
+    {
+      "width": 113,
+      "height": 18,
+      "xpos": 769,
+      "type": "match",
+      "ypos": 14
+    }
+  ],
+  "properties": [],
+  "tags": [
+    "ENV-DISTRI-rocky",
+    "version_8_ident"
+  ]
+}

needles/cockpit/rocky-server_cockpit_basic-cockpit_services_entry-20230221.json

@@ -0,0 +1,16 @@
+{
+  "area": [
+    {
+      "width": 59,
+      "ypos": 52,
+      "type": "match",
+      "height": 25,
+      "xpos": 548
+    }
+  ],
+  "properties": [],
+  "tags": [
+    "ENV-DISTRI-rocky",
+    "cockpit_services_entry"
+  ]
+}

needles/cockpit/rocky-server_cockpit_updates-cockpit_main-20230221.json

@@ -0,0 +1,16 @@
+{
+  "area": [
+    {
+      "xpos": 7,
+      "height": 27,
+      "width": 97,
+      "ypos": 10,
+      "type": "match"
+    }
+  ],
+  "properties": [],
+  "tags": [
+    "ENV-DISTRI-rocky",
+    "cockpit_main"
+  ]
+}

tests/modularity_enable_disable_module.pm

@@ -11,8 +11,8 @@ sub run {
     $self->root_console(tty => 3);
 
     # Enable the module.
-    my $name = "swig";
-    my $stream = "4.0";
+    my $name = "ruby";
+    my $stream = "3.1";
     assert_script_run("dnf module enable -y $name:$stream");
 
     # Check that it is listed in the enabled list.
@@ -30,8 +30,8 @@ sub run {
     }
 
     # Disable some other module.
-    my $name_alt = "postgresql";
-    my $stream_alt = "13";
+    my $name_alt = "ruby";
+    my $stream_alt = "3.1";
     assert_script_run("dnf module disable -y $name_alt:$stream_alt");
 
     # Check that it is listed in the disabled list.

tests/modularity_install_module.pm

@@ -10,8 +10,8 @@ sub run {
     $self->root_console(tty => 3);
 
     # Install a Ruby module.
-    my $name = "nodejs";
-    my $stream = "14";
+    my $name = "ruby";
+    my $stream = "3.1";
     my $profile = "common";
     assert_script_run("dnf module install -y $name:$stream/$profile");
 

tests/modularity_module_list.pm

@@ -16,14 +16,20 @@ sub run {
     # NOTE: In Rocky the baseos and appstream default repos include and add modules in the
     #       default installation where in Fedora all modules are in separate modular repos.
     #       Until we figure out how to keep track of the count of expected enabled modular
-    #       packages this will need to assume what appears to be the default in minimal.
+    #       packages this will need to assume what appears to be the default in dvd-iso.
     my $modules = script_output('dnf module list --enabled', timeout => 270);
     my @modules = parse_module_list($modules);
     my $module_count = scalar @modules;
 
     my $flavor = get_var('FLAVOR', 'minimal-iso');
-    my $packageset = get_var('PACKAGE_SET', 'minimal');
+    my $packageset = get_var('PACKAGE_SET', 'graphical-server');
+    my $version = get_var('VERSION', 'none');
 
+    if ($version eq 'none') {
+        die "VERSION=9.1 or VERSION=8.8 or VERSION=8.7 need to be specified on the command line.";
+    } elsif ($version eq '9.1') {
+        die "Enabled modules ($module_count) is not equal to the default (0)." unless (scalar @modules == 0);
+    } elsif ($version eq '8.8' || $version eq '8.7') {
         if ($flavor eq 'boot-iso') {
            die "There seem to be enabled modules when the list should be empty." unless ($module_count == 0);
         } elsif ($flavor eq 'minimal-iso') {
@@ -40,12 +46,13 @@ sub run {
             } elsif ($packageset eq 'graphical-server') {
                 die "Enabled modules ($module_count) is not equal to the default (9)." unless (scalar @modules == 9);
             } elsif ($packageset eq 'workstation') {
-            die "Enabled modules ($module_count) is not equal to the default (6)." unless (scalar @modules == 6);
+                die "Enabled modules ($module_count) is not equal to the default (13)." unless (scalar @modules == 13);
             } elsif ($packageset eq 'virtualization-host') {
                 die "Enabled modules ($module_count) is not equal to the default (2)." unless (scalar @modules == 2);
             }
         } else {
-        die "Enabled modules ($module_count) is not equal to the default (2)." unless (scalar @modules == 2);
+            die "Enabled modules ($module_count) is not equal to the default (0)." unless (scalar @modules == 0);
+        }
     }
 
     # Check that dnf lists the disabled modules.
@@ -59,7 +66,6 @@ sub run {
     die "There seem to be installed modules when the list should be empty." unless (scalar @modules == 0);
 }
 
-
 1;
 
 # vim: set sw=4 et: