Install source graphical mirrorlist + repo

main.pm

@@ -30,11 +30,18 @@ else
 
     unless (get_var("KICKSTART"))
     {
-	# Select minimal flavor
+
+        ## Select installation source
+        if (get_var('MIRRORLIST_GRAPHICAL') || get_var("REPOSITORY_GRAPHICAL")){
+            autotest::loadtest get_var('CASEDIR')."/tests/install_source_graphical.pm";
+        }
+
+        ## Select minimal flavor
         if (get_var("FLAVOR") eq "server") {
             autotest::loadtest get_var('CASEDIR')."/tests/_select_minimal.pm";
         }
 
+
         ## Disk partitioning
         if (get_var('DISK_GUIDED_EMPTY')){
             autotest::loadtest get_var('CASEDIR')."/tests/disk_guided_empty.pm";

needles/anaconda_install_source_check_repo_added.json

@@ -0,0 +1,18 @@
+{
+  "area": [
+    {
+      "xpos": 98,
+      "ypos": 29,
+      "width": 313,
+      "height": 19,
+      "type": "match"
+    }
+  ],
+  "tags": [
+    "anaconda_install_source_check_repo_added",
+    "ENV-DISTRI-fedora",
+    "ENV-INSTLANG-en_US",
+    "ENV-OFW-1",
+    "ENV-FLAVOR-server"
+  ]
+}

needles/anaconda_install_source_http_selected.json

@@ -0,0 +1,18 @@
+{
+  "tags": [
+    "anaconda_install_source_http_selected",
+    "ENV-DISTRI-fedora",
+    "ENV-INSTLANG-en_US",
+    "ENV-OFW-1",
+    "ENV-FLAVOR-server"
+  ],
+  "area": [
+    {
+      "xpos": 56,
+      "ypos": 163,
+      "width": 115,
+      "height": 21,
+      "type": "match"
+    }
+  ]
+}

needles/anaconda_install_source_on_the_network.json

@@ -0,0 +1,18 @@
+{
+  "tags": [
+    "anaconda_install_source_on_the_network",
+    "ENV-DISTRI-fedora",
+    "ENV-INSTLANG-en_US",
+    "ENV-OFW-1",
+    "ENV-FLAVOR-server"
+  ],
+  "area": [
+    {
+      "xpos": 58,
+      "ypos": 128,
+      "width": 108,
+      "height": 20,
+      "type": "match"
+    }
+  ]
+}

needles/anaconda_install_source_repo_select_mirrorlist.json

@@ -0,0 +1,18 @@
+{
+  "area": [
+    {
+      "xpos": 178,
+      "ypos": 195,
+      "width": 238,
+      "height": 26,
+      "type": "match"
+    }
+  ],
+  "tags": [
+    "anaconda_install_source_repo_select_mirrorlist",
+    "ENV-DISTRI-fedora",
+    "ENV-INSTLANG-en_US",
+    "ENV-OFW-1",
+    "ENV-FLAVOR-server"
+  ]
+}

needles/anaconda_main_hub_installation_source.json

@@ -0,0 +1,25 @@
+{
+  "tags": [
+    "anaconda_main_hub_installation_source",
+    "ENV-DISTRI-fedora",
+    "ENV-INSTLANG-en_US",
+    "ENV-OFW-1",
+    "ENV-FLAVOR-server"
+  ],
+  "area": [
+    {
+      "xpos": 185,
+      "ypos": 347,
+      "width": 72,
+      "height": 61,
+      "type": "match"
+    },
+    {
+      "xpos": 267,
+      "ypos": 348,
+      "width": 199,
+      "height": 29,
+      "type": "match"
+    }
+  ]
+}

tests/install_source_graphical.pm

@@ -0,0 +1,78 @@
+use base "basetest";
+use strict;
+use testapi;
+
+sub run {
+    # Anaconda hub
+    assert_screen "anaconda_main_hub", 300; #
+
+    # Go into the Install Sourcre spoke
+    assert_and_click "anaconda_main_hub_installation_source";
+
+
+
+    # select "http" on the network
+    assert_and_click "anaconda_install_source_on_the_network";
+    send_key "tab";
+    for (my $i=0; $i<4; $i++){
+        send_key "up";
+    }
+    assert_screen "anaconda_install_source_http_selected";
+
+
+    # insert the url
+    send_key "tab";
+    my $fedora_version = "";
+    my $repourl = "";
+    if (get_var("VERSION") eq "rawhide"){
+        $fedora_version = "rawhide";
+    }
+    else {
+        $fedora_version = (split /_/, get_var("BUILD"))[0];
+
+        if (get_var("MIRRORLIST_GRAPHICAL")){
+            $fedora_version = "fedora-".$fedora_version;
+        }
+    }
+
+    if (get_var("MIRRORLIST_GRAPHICAL")){
+        $repourl = "mirrors.fedoraproject.org/mirrorlist?repo=".$fedora_version."&arch=".get_var('ARCH');
+        type_string $repourl;
+
+        # select as mirror list
+        assert_and_click "anaconda_install_source_repo_select_mirrorlist";
+    }
+    elsif (get_var("REPOSITORY_GRAPHICAL")){
+        $repourl = "download.fedoraproject.org/pub/fedora/linux/development/".$fedora_version."/".get_var("ARCH")."/os";
+        type_string $repourl;
+    }
+
+    assert_and_click "anaconda_spoke_done";
+
+    # Anaconda hub
+    assert_screen "anaconda_main_hub", 300;
+
+    # check that the repo was used
+    send_key "ctrl-alt-f3";
+    wait_idle 10;
+    type_string "grep \"".$repourl."\" /tmp/packaging.log | grep \"added repo\"";
+    send_key "ret";
+    assert_screen "anaconda_install_source_check_repo_added";
+    send_key "ctrl-alt-f6";
+
+    # Anaconda hub
+    assert_screen "anaconda_main_hub", 30; #
+
+}
+
+sub test_flags {
+    # without anything - rollback to 'lastgood' snapshot if failed
+    # 'fatal' - whole test suite is in danger if this fails
+    # 'milestone' - after this test succeeds, update 'lastgood'
+    # 'important' - if this fails, set the overall state to 'fail'
+    return { fatal => 1 };
+}
+
+1;
+
+# vim: set sw=4 et: