framework_gem 0.1.0

data/lib/dsllib/performance/DTA/utils.rb

@@ -0,0 +1,96 @@
+require './dsllib/performance/DTA/roi'
+require './dsllib/common/utils/roi_common'
+require './dsllib/common/utils/tmc_utils'
+require './dsllib/common/screens/twc_nav/guide_screen'
+require './dsllib/common/utils/remotekey_utils'
+require './dsllib/common/screens/twc_nav/info_banner_screen'
+require './dsllib/common/screens/twc_nav/settings_screen'
+require './dsllib/common/utils/menu_iterator'
+require './dsllib/common/mas_db/mas_conductor'
+
+def tuneToChannel(channel, sleepTimeInSec=0)
+	press_exit(5.sec())
+	
+	tune_to channel.to_s
+	press_select
+	
+	sleep sleepTimeInSec.to_s.to_i.sec if !(sleepTimeInSec==0)
+end
+
+def verify_video_playing?  timeOutInMilliSec=1500, retries=10, sleepTimeInSec=1, percent=nil
+	result = false
+
+	retries.times do
+		return true if (video_playing? stb_img_roi(:check_video_playing), timeOutInMilliSec, percent)
+		sleep sleepTimeInSec.to_s.to_i.sec if !(sleepTimeInSec==0)
+	end
+
+	return false
+end
+
+def waitTillVideoStopsPlaying(timeOutInSec=15)
+	statTime = Time.now
+
+	begin
+		return time_diff_milli(statTime, Time.now) if !(verify_video_playing? 150,1,0)
+	end while (time_diff_milli(statTime, Time.now) < timeOutInSec * 1000.0)
+
+	loginfo("Unable to detect video stop playing",false)
+
+	return 0
+end
+
+def waitTillVideoStartsPlaying(timeOutInSec=15)
+	statTime = Time.now
+
+	begin
+		return time_diff_milli(statTime, Time.now) if (verify_video_playing? 150,1,0)
+	end while (time_diff_milli(statTime, Time.now) < timeOutInSec * 1000.0)
+
+	loginfo("Unable to detect video playing",false)
+
+	return 0
+end
+
+def initializeExecution()
+	press_exit(5.sec())
+
+	press_power_sleep if !(verify_video_playing?)
+	sleep 5.sec
+
+	tuneToChannel($firstChannel, 5)
+
+	return true if (verify_video_playing?)
+
+	loginfo("Unable to INITIALIZE",false)
+	return false
+end
+
+def time_diff_milli(t1, t2)
+	return (t2 - t1) * 1000.0
+end
+
+def buildExecutionArray()
+	execArray = Array.new
+
+	for j in 0..$SDChans.length-1
+		execArray[j] = "SD-"+$SDChans[j]
+	end
+
+	k = execArray.length()
+
+	for j in k..(k+$HDChans.length-1)
+		execArray[j] = "HD-"+$HDChans[j-k]
+	end
+	return execArray
+end
+
+def writeToReportFile(text)
+	if not(File.exist? $resultsLocation+$resultsFileName)
+		rFile = File.new($resultsLocation+$resultsFileName, "w")
+	else
+		rFile = File.open($resultsLocation+$resultsFileName, "a")
+	end
+	rFile.puts(text + "\n")
+	rFile.close
+end

data/lib/dsllib/performance/iguide_concurrent_test/ROI.rb

@@ -0,0 +1,236 @@
+require './dsllib/common/utils/stb_registry.rb'
+
+class TwcNavRoi
+  include ::DSL
+
+  @@OCRROI = {
+    :default => {
+		:iGuide_selected_submenu_text => [8, 132, 296, 23, [6], "", ""],
+		:iGuide_selected_program_title => [11, 94, 335, 35, [6], "", ""],
+    },
+  }
+
+  @@StbImageROI = {  
+    :default => {
+        :iGuide_menu_title => [103, 105, 202, 22, 75, "client\\images\\iguide_concurrent_test\\iguide_concurrent_test_menuItem.jpg" ],
+        :iGuide_selected_submenu => [8, 132, 209, 18, 75, "client\\images\\iguide_concurrent_test\\iguide_concurrent_test_menuItem.jpg" ],
+		:iGuide_submenu_ON_icon =>  [3, 95, 190, 38, 65, "client\\images\\iguide_concurrent_test\\ON_icon.JPG" ],
+		
+		:iGuide_list_ON_icon =>  [3, 198, 62, 55, 65, "client\\images\\iguide_concurrent_test\\ON_icon.JPG" ],
+		:iGuide_list_title => [18, 218, 164, 17, 75, "client\\images\\iguide_concurrent_test\\iguide_concurrent_test_programTitle.jpg" ],
+		:iGuide_selected_program_name => [12, 93, 185, 22, 75, "client\\images\\iguide_concurrent_test\\iguide_concurrent_test_programTitle.jpg" ],
+		:iGuide_selected_program_name_l => [12, 93, 346, 22, 75, "client\\images\\iguide_concurrent_test\\iguide_concurrent_test_programTitle.jpg" ],
+		:iGuide_selected_program_run_time => [10, 137, 90, 39, 75, "client\\images\\iguide_concurrent_test\\iguide_concurrent_test_programTitle.jpg" ],
+		
+		:iguide_no_listing_available_icon => [174, 245, 228, 34, 60, "client\\images\\iguide_concurrent_test\\no_listing_available_icon.JPG" ],
+		:iguide_main_TWC_icon => [0, 23, 94, 76, 65, "client\\images\\iguide_concurrent_test\\TWC_icon.JPG" ],
+		:iGuide_watch_buy_back_icon => [1, 360, 97, 78, 65, "client\\images\\iguide_concurrent_test\\back_icon.JPG"],
+		:iguide_menu_icon => [238, 328, 162, 34, 75, "client\\images\\iguide_concurrent_test\\menu_icon.JPG" ],
+		:iGuide_menu_on_demand_icon => [74, 404, 186, 38, 75, "client\\images\\iguide_concurrent_test\\on_demand_icon.JPG"],
+
+
+		:iguide_error_3005_icon => [208, 182, 412, 164, 70, "client\\images\\iguide_concurrent_test\\3005_icon.JPG" ],
+		:iguide_error_3007_icon => [208, 182, 412, 164, 70, "client\\images\\iguide_concurrent_test\\3007_icon.JPG" ],
+		:iguide_error_3008_icon => [208, 182, 412, 164, 70, "client\\images\\iguide_concurrent_test\\3008_icon.JPG" ],
+		:iguide_error_3101_icon => [208, 182, 412, 164, 70, "client\\images\\iguide_concurrent_test\\3101_icon.JPG" ],
+		:iguide_error_3102_icon => [208, 182, 412, 164, 70, "client\\images\\iguide_concurrent_test\\3102_icon.JPG" ],
+		:iguide_error_3107_icon => [208, 182, 412, 164, 70, "client\\images\\iguide_concurrent_test\\3107_icon.JPG" ],
+		:iguide_error_please_icon => [208, 182, 412, 164, 70, "client\\images\\iguide_concurrent_test\\error_please_icon.JPG" ],
+    },      
+  }	
+
+  @@GoldenROI = {  
+  }
+  
+  @@GenericMap = {    
+    :default => {
+
+    },
+         :DCT2224 => {
+           :first_column_x_coordinate => 48,
+           :second_column_x_coordinate => 350,
+           :first_row_y_coordinate => 188,
+           :row_coordinate_difference => 35,
+           :width => 250,
+           :height => 28,
+         },
+        :DCT2000 => {
+          :first_column_x_coordinate => 48,
+          :second_column_x_coordinate => 350,
+          :first_row_y_coordinate => 188,
+          :row_coordinate_difference => 35,
+          :width => 250,
+          :height => 28,
+        },
+         :DCH6416 => {
+           :first_column_x_coordinate => 48,
+           :second_column_x_coordinate => 350,
+           :first_row_y_coordinate => 220 ,
+           :row_coordinate_difference => 35,
+           :width => 250,
+           :height => 28,           
+         },
+        :DCT2500 => {
+          :first_column_x_coordinate => 48,
+          :second_column_x_coordinate => 350,
+          :first_row_y_coordinate => 220 ,
+          :row_coordinate_difference => 35,
+          :width => 250,
+          :height => 28,           
+        },
+        :DCT2524 => {
+          :first_column_x_coordinate => 48,
+          :second_column_x_coordinate => 350,
+          :first_row_y_coordinate => 220 ,
+          :row_coordinate_difference => 35,
+          :width => 250,
+          :height => 28,           
+        },
+        :DCH100 => {
+          :first_column_x_coordinate => 48,
+          :second_column_x_coordinate => 350,
+          :first_row_y_coordinate => 220 ,
+          :row_coordinate_difference => 35,
+          :width => 250,
+          :height => 28,           
+        },
+        :DCT5100 => {
+          :first_column_x_coordinate => 48,
+          :second_column_x_coordinate => 350,
+          :first_row_y_coordinate => 220 ,
+          :row_coordinate_difference => 35,
+          :width => 250,
+          :height => 28,           
+        },
+      :DCH3416 => {
+         :first_column_x_coordinate => 48,
+         :second_column_x_coordinate => 350,
+         :first_row_y_coordinate => 220 ,
+         :row_coordinate_difference => 35,
+         :width => 250,
+         :height => 28,           
+             },
+      :DCH6200 => {
+         :first_column_x_coordinate => 48,
+         :second_column_x_coordinate => 350,
+         :first_row_y_coordinate => 220 ,
+         :row_coordinate_difference => 35,
+         :width => 250,
+         :height => 28,   
+             },
+      :DCT6208 => {
+         :first_column_x_coordinate => 48,
+         :second_column_x_coordinate => 350,
+         :first_row_y_coordinate => 220 ,
+         :row_coordinate_difference => 35,
+         :width => 250,
+         :height => 28,   
+             },
+      :DCT6412 => {
+         :first_column_x_coordinate => 48,
+         :second_column_x_coordinate => 350,
+         :first_row_y_coordinate => 220 ,
+         :row_coordinate_difference => 35,
+         :width => 250,
+         :height => 28,   
+             },
+      :DCT6416 => {
+         :first_column_x_coordinate => 48,
+         :second_column_x_coordinate => 350,
+         :first_row_y_coordinate => 220 ,
+         :row_coordinate_difference => 35,
+         :width => 250,
+         :height => 28,   
+             },
+    :DCX3200 => {
+       :first_column_x_coordinate => 48,
+       :second_column_x_coordinate => 350,
+       :first_row_y_coordinate => 220 ,
+       :row_coordinate_difference => 35,
+       :width => 250,
+       :height => 28,   
+           },
+    :DCH3200 => {
+       :first_column_x_coordinate => 48,
+       :second_column_x_coordinate => 350,
+       :first_row_y_coordinate => 220 ,
+       :row_coordinate_difference => 35,
+       :width => 250,
+       :height => 28,   
+           },
+    :DCX3200p2 => {
+       :first_column_x_coordinate => 48,
+       :second_column_x_coordinate => 350,
+       :first_row_y_coordinate => 220 ,
+       :row_coordinate_difference => 35,
+       :width => 250,
+       :height => 28,   
+           },
+    :DCT6200 => {
+       :first_column_x_coordinate => 48,
+       :second_column_x_coordinate => 350,
+       :first_row_y_coordinate => 220 ,
+       :row_coordinate_difference => 35,
+       :width => 250,
+       :height => 28,   
+           },
+        
+  }
+  
+  def TwcNavRoi.dynamic_ocr_roi(row_num,column_num, pre_process_level,expected_text)
+    do_get_dynamic(@@GenericMap,row_num, column_num, pre_process_level,expected_text)
+  end
+  
+  def TwcNavRoi.ocr_roi(roi_name)
+    do_get(@@OCRROI, roi_name)
+  end
+
+  def TwcNavRoi.stb_img_roi(roi_name)
+    do_get(@@StbImageROI, roi_name)
+  end
+
+  def TwcNavRoi.golden_roi(roi_name)
+    do_get(@@GoldenROI, roi_name)
+  end
+  
+  # Changes pre-process level on OCRRoi object and returns modified object
+  def TwcNavRoi.change_preprocess_level(ocr_obj, pre_process_level)
+    newOcrRoi = OcrRoi.new(ocr_obj.left, ocr_obj.top, ocr_obj.width,ocr_obj.height, pre_process_level,"", ocr_obj.expected_text)
+    return newOcrRoi
+  end
+
+
+  def TwcNavRoi.do_get(registry, roi_name)
+    if registry[fetch_stb.model.to_sym]
+      roi_instance = registry[fetch_stb.model.to_sym][roi_name]
+      return roi_instance if roi_instance
+    end
+    return registry[:default][roi_name]
+  end
+
+  def TwcNavRoi.do_get_sub_registry(sub_registry, roi_name)
+    return false unless sub_registry[:default]
+    return sub_registry[:default][roi_name]
+  end
+  
+  def TwcNavRoi.do_get_dynamic(registry,row_num, col_num, pre_process_level,expected_text)
+    if registry[fetch_stb.model.to_sym]
+      row_diff = registry[fetch_stb.model.to_sym][:row_coordinate_difference]
+      width =  registry[fetch_stb.model.to_sym][:width] 
+      height = registry[fetch_stb.model.to_sym][:height]
+  
+      if(col_num == 1)
+        x = registry[fetch_stb.model.to_sym][:first_column_x_coordinate]
+        y = registry[fetch_stb.model.to_sym][:first_row_y_coordinate]
+        actual_y = y + ((row_num - 1)* row_diff)
+        return OcrRoi.new(x,actual_y, width,height,pre_process_level, "", expected_text)
+      else
+        x = registry[fetch_stb.model.to_sym][:second_column_x_coordinate]
+        y = registry[fetch_stb.model.to_sym][:first_row_y_coordinate]
+        actual_y = y + ((row_num - 1)* row_diff)
+        return OcrRoi.new(x,actual_y, width,height,pre_process_level, "", expected_text)
+      end
+    end
+  end
+
+end

data/lib/dsllib/performance/iguide_concurrent_test/utils.rb

@@ -0,0 +1,533 @@
+require './dsllib/common/utils/tmc_utils'
+require './dsllib/performance/iguide_concurrent_test/ROI.rb'
+require './dsllib/common/utils/tmc_utils.rb'
+
+def navigateNodes(pageTitle,breadCrumbs,isParent=false)
+	logdebug("Start navigating menu page '" + pageTitle + "'",$captureImagesforDebug) if $displayDebugLog
+	row = 0
+	column = 0
+	menuCount = 0
+
+	if (isParent)
+		row = $first_row - 1
+		column = $first_column - 1
+	end
+
+	while (column <= 2)
+		column = column + 1
+		row=0 if menuCount != 0
+
+		while (row <= 20)
+			row = row + 1
+
+			$category = "MENU"
+
+			if ($pageLevel > 15)
+				error_text = "Resetting on unexpected error: Page level is greater than 15"
+				set_reset(breadCrumbs+"-"+row.to_s()+"-"+column.to_s(),pageTitle,"","",error_text)
+				$pageLevel = 0
+			end
+
+			if ($reset)
+				return false unless isParent
+				break if ((row > $numberOfRowsInMainVODPage) and (column == 1))		#Since there are only X number of menu items in the first page in one column
+
+				$errorCount = $errorCount + 1
+
+				prepare_exit("Total errors exceeded max errors. Quitting test!!") if $errorCount > $maxErrors
+				prepare_exit("On VOD page - Row > " + $numberOfRowsInMainVODPage.to_s() + " and Column = 2. Reached execution end. Quitting test!!") if ((row > $numberOfRowsInMainVODPage) and (column == 2))		#Since there are only 5 menu items in the first page in one column. If row > 5 and column == 2 then it completed execution
+
+				abort if $exit_execution
+
+				recover_error(row,column)
+				breadCrumbs = "VOD"
+				$pageLevel = 0
+				$reset = false
+			end
+
+			if (isParent)
+				menuCount = menuCount + 1
+				if (menuCount == 2)
+					row = 1
+					column = 1
+					reset_to_initial(row,column)
+				end
+			end
+
+			pageImage = capture_screen()
+			nextPageTitle = ocr_text_for_roi(:iGuide_selected_submenu_text)
+
+			$pageLevel = $pageLevel + 1
+			capture_screen_to $menuPage
+
+			logdebug("Pressing SELECT on menu page '" + pageTitle + "' to go to '" + nextPageTitle + "'",$captureImagesforDebug) if $displayDebugLog
+
+			press_select_now()
+
+			next unless calculate_load_time_sub_menu("SELECT",nextPageTitle,pageTitle,breadCrumbs+"-"+row.to_s()+"-"+column.to_s()+"; "+$pageLevel.to_s())
+			sleep 2.sec
+
+			nextPageImage = capture_screen()
+
+			if not(screen_matches_for_icon_roi(:iguide_no_listing_available_icon, stb_img_roi(:iguide_no_listing_available_icon).referenceImage))
+				if (screen_matches_for_icon_roi(:iGuide_list_ON_icon, stb_img_roi(:iGuide_list_ON_icon).referenceImage))
+					next unless navigateProgramList(nextPageTitle,breadCrumbs+"-"+row.to_s()+"-"+column.to_s()+"; "+$pageLevel.to_s())
+					next unless verify_correct_screen(breadCrumbs+"-"+row.to_s()+"-"+column.to_s()+"; "+$pageLevel.to_s(),nextPageTitle, :iGuide_list_title, nextPageImage)
+				else
+					next unless navigateNodes(nextPageTitle,breadCrumbs+"-"+row.to_s()+"-"+column.to_s()+"; "+$pageLevel.to_s())
+					next unless verify_correct_screen(breadCrumbs+"-"+row.to_s()+"-"+column.to_s()+"; "+$pageLevel.to_s(),nextPageTitle, :iGuide_menu_title, nextPageImage)
+				end
+			end
+
+			$pageLevel = $pageLevel - 1
+			capture_screen_to $menuPage
+
+			logdebug("Pressing LAST from inside '" + nextPageTitle + "' to go back to menu page '" + pageTitle + "'",$captureImagesforDebug) if $displayDebugLog
+
+			press_last_now()
+
+			next unless calculate_load_time_sub_menu("LAST",pageTitle,nextPageTitle,breadCrumbs+"-"+row.to_s()+"-"+column.to_s())
+			sleep 2.sec
+
+			next unless verify_correct_screen(breadCrumbs+"-"+row.to_s()+"-"+column.to_s(),pageTitle,:iGuide_menu_title, pageImage)
+
+			if (isParent)
+				if (menuCount == 1)
+					row = 1
+					column = 1
+					reset_to_initial(row,column)
+				end
+			end
+
+			capture_screen_to $menuPage
+
+			#			loop to verify it is really the last item
+			logdebug("Navigating to next menu item from "+breadCrumbs+"-"+(row+1).to_s()+"-"+column.to_s(),$captureImagesforDebug) if $displayDebugLog
+			press_down_arrow_sleep()
+
+			#			included this to take care of bug - control transfer from column 2 to 1 when we navigate down from one page to another
+			if (column == 2)
+				press_right_arrow_sleep()
+			end
+
+			if (comapre_screen_with_image(:iGuide_selected_submenu,$menuPage))
+				if (column == 1)
+					logdebug("Reached end of column 1 (" + row.to_s() + " row) on page '" + pageTitle + "' going up on column 1 to go to column 2",$captureImagesforDebug) if $displayDebugLog
+
+					for k in 1..(row+1)
+						press_up_arrow_sleep()
+					end
+
+					press_right_arrow_sleep()
+
+					logdebug("Went to top of column 1 on page '" + pageTitle + "' and then right to column 2",$captureImagesforDebug) if $displayDebugLog
+
+					if (comapre_screen_with_image(:iGuide_selected_submenu,$menuPage))
+						logdebug("Only one item on page. Complete navigating menu page '" + pageTitle + "'",$captureImagesforDebug) if $displayDebugLog
+						return true
+					end
+					break
+				else
+					logdebug("Complete navigating menu page '" + pageTitle + "'",$captureImagesforDebug) if $displayDebugLog
+					return true
+				end
+			else
+				next
+			end
+		end
+	end
+
+	logdebug("Complete navigating menu page '" + pageTitle + "'",$captureImagesforDebug) if $displayDebugLog
+	return true
+end
+
+def navigateProgramList(pageTitle,breadCrumbs)
+	logdebug("Start navigating program list '" + pageTitle + "'",$captureImagesforDebug) if $displayDebugLog
+
+	for row in 1..20
+		progTitle = ocr_text_for_roi(:iGuide_selected_program_title)
+
+		$pageLevel = $pageLevel + 1
+		capture_screen_to $progListPage
+
+		logdebug("Pressing SELECT on list page '" + pageTitle + "'",$captureImagesforDebug) if $displayDebugLog
+		
+		$category = "PROGRAM"
+
+		press_select_now()
+
+		return false unless calculate_load_time_ICON(:iGuide_watch_buy_back_icon,"SELECT",progTitle,pageTitle,breadCrumbs+"-"+row.to_s()+"; "+$pageLevel.to_s())
+		sleep 2.sec
+
+		$pageLevel = $pageLevel - 1
+
+		logdebug("Pressing LAST on program page '" + progTitle + "'",$captureImagesforDebug) if $displayDebugLog
+		
+		$category = "LIST"
+
+		press_last_now()
+
+		return false unless calculate_load_time_ICON(:iGuide_list_ON_icon,"LAST",pageTitle,progTitle,breadCrumbs+"-"+row.to_s())
+		sleep 2.sec
+
+		#		loop to verify it is really the last item
+		for k in 1..2
+			logdebug("Navigating to next program item from "+breadCrumbs+"-"+(row+1).to_s(),$captureImagesforDebug) if $displayDebugLog
+			press_down_arrow_sleep()
+			loginfo ("Complte1")
+
+			if (comapre_screen_with_image(:iGuide_selected_program_name,$progListPage) and comapre_screen_with_image(:iGuide_selected_program_name_l,$progListPage) and comapre_screen_with_image(:iGuide_selected_program_run_time,$progListPage))
+				if (k == 2)
+					loginfo ("Complte2")
+					logdebug("Complete navigating program list '" + pageTitle + "'",$captureImagesforDebug) if $displayDebugLog
+					return true
+				else
+					row = row + 1
+					next
+				end
+			else
+				break
+			end
+		end
+	end
+	
+	loginfo ("Complte3")
+
+	logdebug("Complete navigating program list '" + pageTitle + "'",$captureImagesforDebug) if $displayDebugLog
+	return true
+end
+
+def recover_error(row,column)
+	logdebug("Entering recovery section",$captureImagesforDebug) if $displayDebugLog
+	reset_to_initial(row,column)
+	logdebug("Completed recovery; Now at page level 0 and menu item - " + row.to_s() + "," + column.to_s(),$captureImagesforDebug) if $displayDebugLog
+end
+
+def reset_to_initial(row,column)
+	logdebug("Resetting to page level 0 and menu item - " + row.to_s() + "," + column.to_s(),$captureImagesforDebug) if $displayDebugLog
+	
+	3.times do
+		press_exit_sleep()
+	end
+
+	abort unless launch_vod
+	sleep 15.sec
+
+	go_to_option(row, column)
+	
+	logdebug("Complete reset to page level 0 and menu item - " + row.to_s() + "," + column.to_s(),$captureImagesforDebug) if $displayDebugLog
+end
+
+def comapre_screen_with_image(stb_roi_name,image_location,retries=3)
+	image_roi = stb_img_roi(stb_roi_name)
+	image_roi.referenceImage = image_location
+
+	retries.times do
+		return true if screen_contains_image? stb_img_roi(stb_roi_name), image_roi
+
+		if retries > 1
+			sleep 1.sec
+		end
+	end
+	#	puts2 "WARNING: Golden copy does not match for icon ROI #{roi_name}", true, false
+	return false
+end
+
+def ocr_text_for_roi(ocr_roi_name, alphanumeric_only=true, retries=3)
+	retries.times do |i|
+		ocr_text = ocr_text_from_screen(lookup_ocr_roi(ocr_roi_name)).downcase.strip
+
+#		puts "OCR text : #{ocr_text}"
+
+		if alphanumeric_only
+			ocr_text = ocr_text.gsub(/[^0-9a-z]/, '')
+		end
+
+		if not(ocr_text == "")
+			return ocr_text
+		end
+
+		if retries > 1
+			sleep 1.sec
+		end
+	end
+
+	return ""
+end
+
+def calculate_load_time_ICON(icon_roi_name, keyPressed, pageTitle, fromPageName, breadCrumbs)
+	statTime = Time.now
+
+	begin
+		if screen_matches_for_icon_roi(icon_roi_name, stb_img_roi(icon_roi_name).referenceImage, 1)
+			timeDiff = time_diff_milli(statTime, Time.now)
+
+			logdebug("Success - " + breadCrumbs + " - Took '" + timeDiff.to_s() + "' to go from '" + fromPageName + "' to '" + pageTitle + "' after key press '" + keyPressed + "'",$captureImagesforDebug) if $displayDebugLog
+			reportText = Time.new.strftime('%m-%d-%y %H:%M:%S')+","+$category+","+$pageLevel.to_s()+","+breadCrumbs+","+pageTitle+","+fromPageName+","+keyPressed+","+timeDiff.to_s()
+			writeToReportFile(reportText)
+
+			return true #Found
+		end
+		
+		timeDiff = time_diff_milli(statTime, Time.now)
+		
+		if (timeDiff > ($timeToStartLookingForErrorsInSec*1000.0))
+			break if check_for_error_screens()
+		end 
+	end while (timeDiff < $timeOutInSec * 1000.0)
+
+	if ($category.equal?("PROGRAM"))
+		error_text = "FAIL loading PROGRAM '" + pageTitle + "' after key press '" + keyPressed + "'; BreadCrumbs - '" + breadCrumbs + "' From - '" + fromPageName
+	else
+		error_text = "FAIL ICON compare '" + pageTitle + "' after key press '" + keyPressed + "'; BreadCrumbs - '" + breadCrumbs + "' From - '" + fromPageName
+	end
+	loginfo(error_text)
+	reportText = Time.new.strftime('%m-%d-%y %H:%M:%S')+","+$category+","+$pageLevel.to_s()+","+breadCrumbs+","+pageTitle+","+fromPageName+","+keyPressed+",,"+error_text+","+capture_screen()+","+stb_img_roi(icon_roi_name).referenceImage
+	writeToReportFile(reportText)
+
+	error_text = "Resetting on error: Pressed " + keyPressed + " on page '" + fromPageName + "' to go to '" + pageTitle + "'"
+	set_reset(breadCrumbs,pageTitle,fromPageName,keyPressed,error_text)
+	return false	#Timed Out
+end
+
+def calculate_load_time_sub_menu(keyPressed,pageTitle,fromPageName,breadCrumbs)
+	statTime = Time.now
+
+	ref_image = $menuPage
+
+	begin
+		if (not(comapre_screen_with_image(:iGuide_selected_submenu,$menuPage,1)) or not(comapre_screen_with_image(:iGuide_menu_title,$menuPage,1)))
+			begin
+				if ((screen_matches_for_icon_roi(:iGuide_submenu_ON_icon, stb_img_roi(:iGuide_submenu_ON_icon).referenceImage, 1)) or (screen_matches_for_icon_roi(:iGuide_list_ON_icon, stb_img_roi(:iGuide_list_ON_icon).referenceImage)))
+					timeDiff = time_diff_milli(statTime, Time.now)
+
+					if (screen_matches_for_icon_roi(:iGuide_submenu_ON_icon, stb_img_roi(:iGuide_submenu_ON_icon).referenceImage))
+						$category = "MENU"
+					else
+						$category = "LIST"
+					end
+					
+					logdebug("Success - " + breadCrumbs + " - Took '" + timeDiff.to_s() + "' to go from '" + fromPageName + "' to '" + pageTitle + "' after key press '" + keyPressed + "'",$captureImagesforDebug) if $displayDebugLog
+					
+					reportText = Time.new.strftime('%m-%d-%y %H:%M:%S')+","+$category+","+$pageLevel.to_s()+","+breadCrumbs+","+pageTitle+","+fromPageName+","+keyPressed+","+timeDiff.to_s()
+					writeToReportFile(reportText)
+
+					return true #Found
+				end
+				
+				timeDiff = time_diff_milli(statTime, Time.now)
+				
+				if (timeDiff > ($timeToStartLookingForErrorsInSec*1000.0))
+					break if check_for_error_screens()
+				end
+			end while (timeDiff < $timeOutInSec * 1000.0)
+
+			ref_image = stb_img_roi(:iGuide_submenu_ON_icon).referenceImage
+			break
+		end
+		
+		timeDiff = time_diff_milli(statTime, Time.now)
+		
+		if (timeDiff > ($timeToStartLookingForErrorsInSec*1000.0))
+			break if check_for_error_screens()
+		end
+	end while (timeDiff < $timeOutInSec * 1000.0)
+	
+	if screen_matches_for_icon_roi(:iguide_no_listing_available_icon, stb_img_roi(:iguide_no_listing_available_icon).referenceImage)
+		logdebug("No listing avaialble - " + breadCrumbs + " from '" + fromPageName + "' to '" + pageTitle + "' after key press '" + keyPressed + "'",$captureImagesforDebug) if $displayDebugLog
+		return true
+	end
+
+	error_text = "FAIL to load '" + pageTitle + "' after key press '" + keyPressed + "'; BreadCrumbs - '" + breadCrumbs + "' From - '" + fromPageName + "'"
+	
+	loginfo(error_text)
+	
+	reportText = Time.new.strftime('%m-%d-%y %H:%M:%S')+","+$category+","+$pageLevel.to_s()+","+breadCrumbs+","+pageTitle+","+fromPageName+","+keyPressed+",,"+error_text+","+capture_screen()+","+ref_image
+	writeToReportFile(reportText)
+
+	error_text = "Resetting on error: Pressed " + keyPressed + " on page '" + fromPageName + "' to go to '" + pageTitle + "'"
+	set_reset(breadCrumbs,pageTitle,fromPageName,keyPressed,error_text)
+	return false	#Timed Out
+end
+
+def time_diff_milli(t1, t2)
+	return (t2 - t1) * 1000.0
+end
+
+def capture_exec_image()
+	capture_screen_to($imagesLocation + $resultsFileName.sub(".csv", "") + "_" + $imageNumber.to_s() + ".jpg") if $capture_exec_images
+	$imageNumber = $imageNumber + 1
+end
+
+def capture_screen
+	return capture_screen_to(Time.new.strftime('%m%d%y_%H_%M_%S') + ".jpg")
+end
+
+def verify_correct_screen(breadCrumbs,pageTitle,image_roi_name,ref_image,retries=3)
+	image_roi = stb_img_roi(image_roi_name)
+	image_roi.referenceImage = ref_image
+	#	image_roi = ImageRoi.new(image_roi.left, image_roi.top, image_roi.width, image_roi.height, image_roi.threshold, ref_image)
+
+	retries.times do
+		if (screen_contains_image? stb_img_roi(image_roi_name), image_roi)
+			logdebug("Successfully verified screen '" + pageTitle,$captureImagesforDebug) if $displayDebugLog
+			return true
+		end 
+
+		if retries > 1
+			sleep 1.sec
+		end
+	end
+
+	error_text = "FAIL to verify correct screen '" + pageTitle + "'"
+	
+	loginfo(error_text)
+	
+	reportText = Time.new.strftime('%m-%d-%y %H:%M:%S')+","+$category+","+$pageLevel.to_s()+","+breadCrumbs+","+pageTitle+",,,,"+error_text+","+capture_screen()+","+ref_image
+	writeToReportFile(reportText)
+
+	error_text = "Resetting on error: Page '" + pageTitle + "' verification failed"
+	set_reset(breadCrumbs,pageTitle,"","",error_text)
+	return false
+end
+
+def set_reset(breadCrumbs,pageTitle,fromPageName,keyPressed,error_text)
+	loginfo(error_text)
+	reportText = Time.new.strftime('%m-%d-%y %H:%M:%S')+","+$category+","+$pageLevel.to_s()+","+breadCrumbs+","+pageTitle+","+fromPageName+","+keyPressed+",,"+error_text
+	writeToReportFile(reportText)
+	$reset = true
+end
+
+def writeToReportFile(text)
+	if not(File.exist? $resultsLocation+$resultsFileName)
+		rFile = File.new($resultsLocation+$resultsFileName, "w")
+	else
+		rFile = File.open($resultsLocation+$resultsFileName, "a")
+	end
+	rFile.puts(text + "\n")
+	rFile.close
+end
+
+def prepare_exit(error_text)
+	reportText = Time.new.strftime('%m-%d-%y %H:%M:%S')+",,,,,,,," + error_text
+	writeToReportFile(reportText)
+	
+	loginfo(error_text)
+
+	$exit_execution = true
+end
+
+def check_for_error_screens()
+	if screen_matches_for_icon_roi(:iguide_error_please_icon, stb_img_roi(:iguide_error_please_icon).referenceImage)
+		if screen_matches_for_icon_roi(:iguide_error_3005_icon, stb_img_roi(:iguide_error_3005_icon).referenceImage)
+			error_screen_name = "CL-CTN 3005"
+		elsif screen_matches_for_icon_roi(:iguide_error_3007_icon, stb_img_roi(:iguide_error_3007_icon).referenceImage)
+			error_screen_name = "CL-CCM 3007"
+		elsif screen_matches_for_icon_roi(:iguide_error_3008_icon, stb_img_roi(:iguide_error_3008_icon).referenceImage)
+			error_screen_name = "CL-CTN 3008"
+		elsif screen_matches_for_icon_roi(:iguide_error_3101_icon, stb_img_roi(:iguide_error_3101_icon).referenceImage)
+			error_screen_name = "CL-CCM 3101"
+		elsif screen_matches_for_icon_roi(:iguide_error_3102_icon, stb_img_roi(:iguide_error_3102_icon).referenceImage)
+			error_screen_name = "CL-CCM 3102"
+		elsif screen_matches_for_icon_roi(:iguide_error_3107_icon, stb_img_roi(:iguide_error_3107_icon).referenceImage)
+			error_screen_name = "CL-CCM 3107"
+		else
+			error_screen_name = "Some kind of"
+		end 
+		
+		loginfo(error_screen_name+" error screen detected")
+		reportText = Time.new.strftime('%m-%d-%y %H:%M:%S')+",,,,,,,,'" + error_screen_name+" error screen detected," + capture_screen()
+		writeToReportFile(reportText)
+		
+		return true
+	end
+	
+	return false
+end
+
+def launch_vod
+	press_menu_sleep()
+
+	statTime = Time.now
+
+	begin
+		if screen_matches_for_icon_roi(:iguide_menu_icon, stb_img_roi(:iguide_menu_icon).referenceImage)
+			statTime = Time.now
+			logdebug("Menu screen appeared",$captureImagesforDebug) if $displayDebugLog
+
+			for i in 1..15
+				if screen_matches_for_icon_roi(:iGuide_menu_on_demand_icon, stb_img_roi(:iGuide_menu_on_demand_icon).referenceImage)
+					logdebug("OD icon screen appeared",$captureImagesforDebug) if $displayDebugLog
+
+					press_select_now()
+					return true
+				end
+
+				press_right_arrow_sleep()
+			end
+
+			loginfo("OD icon did not appear")
+			reportText = Time.new.strftime('%m-%d-%y %H:%M:%S')+",,,,,,,,Unable to find ON DEMAND icon in menu," + capture_screen()
+			writeToReportFile(reportText)
+			return false
+		end
+
+		timeDiff = time_diff_milli(statTime, Time.now)
+	end while (timeDiff < $timeOutInSec * 1000.0)
+
+	loginfo("Menu screen did not appear")
+	reportText = Time.new.strftime('%m-%d-%y %H:%M:%S')+",,,,,,,,Unable to launch menu," + capture_screen()
+	writeToReportFile(reportText)
+	return false
+end
+
+def go_to_option(row, column)
+	for k in 1..(row-1)
+		press_down_arrow_sleep()
+	end
+
+	if column == 2
+		press_right_arrow_sleep()
+	end
+end
+
+def navigateFirstMenuItem()
+	$first_row = 1
+	$first_column = 1
+
+	for i in 2..$stb_number.to_i
+		break if $stb_number.to_i==1
+		capture_screen_to $menuPage
+
+		$first_row=$first_row+1
+		press_down_arrow_sleep()
+
+		if (comapre_screen_with_image(:iGuide_selected_submenu,$menuPage))
+			if ($first_column==1)
+				$first_column = 2
+				press_right_arrow_sleep()
+			else
+				$first_column = 1
+				press_left_arrow_sleep()
+			end
+
+			for j in 1..($first_row+2)
+				press_up_arrow_sleep()
+			end
+
+			$first_row = 1
+		end
+	end
+	
+	logdebug("Completed first menu navigation for random row = "+$first_row.to_s()+"; first column = "+$first_column.to_s(),$captureImagesforDebug) if $displayDebugLog
+end
+
+def press_select_now
+	press_select
+	success_log_key_press "select"
+end
+
+def press_last_now
+	press_last
+	success_log_key_press "last"
+end