TestComplete 学习笔记3_Stores_CheckPoint

Region CheckPoint的例子：
Sub RegionCompareExample
If (Not Regions.Compare("Logo", Sys.Process("iexplore"). _
Page("http://www.activefocus.net/").Table(0).Cell(1, 0). _
Link(0).Image("nav_r1_c1"), False, False, True, 0)) Then
Call Log.Error("The regions are not identical.")
End If
End Sub

File CheckPoint的例子：
Sub FileCompareExample
If (Not Files.Compare("Sample1.txt", "Sample2.txt", 0, True)) Then
Call Log.Error("The files are not identical.")
End If
End Sub

如果知道两个文件差异的Hash值，还可以进行Hash值判断

例如HashValue=18471005
Sub FileCompare
       If Files.Compare("TestData1.txt","TestData2.txt", 18471005,True) then
             Call Log.Message("The Files are diffrent in hashvalue=1847010015")
      End IF        
      
End Sub

可通过Files.CalculateHashValue("File1.txt","File2.txt")获取两个文件差异的Hash值，例如
Sub FileCompare
       If not Files.Compare("TestData1.txt","TestData2.txt", Files.CalculateHashValue("TestData1.txt","TestData2.txt") ) then
       Call Log.Message("The Files are diffrent in hashvalue=1847010015")
      End IF        
End Sub

Object CheckPoint的例子： 比较实际Object的属性与Stores下的Object的属性是否一致
Sub ObjectCompareExample
If (Not
Objects.Compare(Sys.Process("iexplore").Page("http://www.activefocus.net/").Panel(0), "Panel", True)) Then
Call Log.Error("The objects are not identical.")
End If
End Sub