#=============================================================================================
# @TITLE			Checking forth window - Backup Wizard - Log.
#
# @NUMBER			DBM2_FKT_02130
#
# @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 [] = {"TestBackupL","Test"};
static list_array_ok = 1;
#=============================================================================================
# @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_rename_item ("lvwMedia", "TestBackupLCopy");
	toolbar_button_press ("msvb_lib_toolbar", "Rename");	
	
	edit_set ("Edit", "Test");
	obj_type ("Edit","<kReturn>");
	
	wait(4);
#=============================================================================================
# @STEP 3			Checking entries in lvwMedia.
#=============================================================================================	
	set_window ("Database Manager Backup Wizard", 2);
	
	for (i = 0;i < 2;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", "Test");
	toolbar_button_press ("msvb_lib_toolbar", "Rename");

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