#=============================================================================================
# @TITLE			Checking forth window - Backup Wizard.
#
# @NUMBER			DBM2_FKT_02108
#
# @DESCRIPTION		Checking the rename window of a backup medium.
#
# @EXP_RESULT		All controls will be displayed there will be two media in the lvwMedia -
# @					listview.
#
# @REQUIREMENTS		"Database Manager" is installed.
#=============================================================================================
static WizardOpen = 1;
static list_array_ok = 1;

#change copy_Medium in 2nd run of Complete Backup
if (CompleteBackupRun == 1) {
		copy_Medium = "TestBackupCopy";
		maxListEntries = 2;
		list_array[0] = "TestBackup";
		list_array[1] = "TestRename";
	}
	else {
		copy_Medium = "TestBackup_2Copy";
		maxListEntries = 3;
		list_array[0] = "TestBackup";
		list_array[1] = "TestBackup_2";
		list_array[2] = "TestRename";
		}
#=============================================================================================
# @STEP 1			Checking window and clicking 'New Parallel Medium'.
#=============================================================================================
if (win_exists("Database Manager Backup Wizard",0) == 0) {
	
	tl_step("Database Manager Backup Wizard - Window Check", "0", "Window still open");
#=============================================================================================
# @STEP 2			Rename TestBackupCopy --> Test.
#=============================================================================================	
	set_window ("Database Manager Backup Wizard", 2);
	list_select_item("lvwMedia",copy_Medium);
	toolbar_button_press ("msvb_lib_toolbar", "Rename");	
	
	edit_set ("Edit", "TestRename");
	obj_type ("Edit","<kReturn>");
	
	wait(4);
#=============================================================================================
# @STEP 3			Checking entries in lvwMedia.
#=============================================================================================
	
	#sort the lvwMedia list alphabetically
	set_window ("Database Manager Backup Wizard", 3);
	list_get_item("lvwMedia", 0, firstitem);
	while (firstitem != "TestBackup")
	{
	obj_mouse_click ("msvb_lib_header", 1, 1, LEFT);
	list_get_item("lvwMedia", 0, firstitem);
	}
	
	
	set_window ("Database Manager Backup Wizard", 2);
	for (i = 0;i < maxListEntries;i++) {
		
		list_get_item("lvwMedia", i, Listitem);
		
		if (Listitem != list_array[i]) {
			
			list_array_ok = 0;
			break;
		}
	}
	
	if (list_array_ok == 0) {
		
		tl_step ("Database Manager Backup Wizard - Rename", "1", "Not all listitems are correct");
		tl_step ("Database Manager Backup Wizard - Rename", "1", "Last item: " & Listitem & " expected: " & list_array [i]);
	} else {
		
		tl_step ("Database Manager Backup Wizard - Rename", "0", "All listitems are correct - rename correct");
	}
#=============================================================================================
# @STEP 2			Rename TestBackupCopy --> Test.
#=============================================================================================	
	set_window ("Database Manager Backup Wizard", 2);
	list_rename_item ("lvwMedia", "TestRename");
	toolbar_button_press ("msvb_lib_toolbar", "Rename");

	edit_set ("Edit", copy_Medium);
	obj_type ("Edit","<kReturn>");
	
	wait(4);
} else {
	
	tl_step("Database Manager Backup Wizard - Window Check", "1", "Window not open");
	WizardOpen = 0;
}
