| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 
 | Test run started : 10/07/2007 01:56:15
BEGIN TestCalc
 TEST START : RangeTest3
  ITEM Assertion FAIL : - setFormulaR1C1
  ITEM Assertion OK : - getFormulaR1C1
  ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial()
  ITEM Assertion OK : - Range.Copy(Range("I10"))
  ITEM Assertion OK : PasteSpecial Paste:=xlPasteValues
  ITEM Assertion OK : PasteSpecial Paste:=xlPasteFormulas
  ITEM Assertion OK : PasteSpecial Paste:=xlPasteFormats
  ITEM Assertion OK : PasteSpecial 
  ITEM Assertion OK : PasteSpecial SkipBlanks:=True
  ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationAdd
  ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationSubtract
  ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationMultiply
  ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationDivide
  ITEM Assertion OK : PasteSpecial Transpose:=True
  ITEM Assertion FAIL : ActiveWorkbook.FileFormat
  ITEM Assertion OK : ActiveWorkbook.Name
  ITEM Assertion OK : ActiveWorkbook.FullName und ActiveWorkbook.Path
  ITEM Assertion FAIL : -  = ActiveWorkbook.Colors(3) set
  ITEM Assertion OK : -  = ActiveWorkbook.ResetColors
  ITEM Assertion OK : -  = ActiveWorkbook.Colors(3) get
  ITEM Assertion OK : -  = Range("K22").End (xlDown)
  ITEM Assertion OK : -  = Range("K22").End (xlUo)
  ITEM Assertion OK : -  = Range("K22").End (xlToLeft)
  ITEM Assertion OK : -  = Range("K22").End (xlRight)
  ITEM Assertion OK : -  ActiveSpreadsheet.Next
  ITEM Assertion OK : -  ActiveSpreadsheet.Next
  ITEM Assertion OK : -  ActiveSpreadsheet.Previous
  ITEM Assertion OK : -  ActiveSpreadsheet.Previous
  ITEM Assertion OK : -  Range("J4:J11").AutoFilter field:=1, Criteria1:="x"
  ITEM Assertion OK : -  Range("J4:J11").AutoFilter field:=1, Criteria1:="<>"
  ITEM Assertion OK : -  Range("J4:J11").AutoFilter field:=1, Criteria1:="="
  ITEM Assertion OK : -  Range("J4:J11").AutoFilter 
  ITEM Assertion OK : -  ActiveSheet.Resize.Select
  ITEM Assertion OK : -  Application.GoTo Reference:="R8C2"
  ITEM Assertion FAIL : -  Application.GoTo Reference:="R[8]C[2]"
  ITEM Assertion OK : -  Application.GoTo Reference:="R8C2"
  ITEM Assertion OK : -  Range.Group - please check visually
  ITEM Assertion OK : -  Range.Group - please check visually
  ITEM Assertion OK : -  Range.Ungroup- please check visually
  ITEM Assertion OK : -  Range.Ungroup - please check visually
  ITEM Assertion OK : -  Range.Group - please check visually
  ITEM Assertion OK : -  Range.Group - please check visually
  ITEM Assertion OK : -  Range.clearOutline - please check visually
  ITEM Assertion OK : -  Range.AutoOutline - please check visually
  ITEM Assertion OK : -  Range.AutoOutline - please check visually
  ITEM Assertion OK : -  ActiveSheet.UsedRange.Select
  ITEM Assertion OK : -  Range("A13").AddIndent
  ITEM Assertion OK : -  Range("A13").IndentLevel set
  ITEM Assertion OK : -  Range("A13").IndentLevel get
  ITEM Assertion OK : -  Range("A13").IndentLevel get
  ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial()
  ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial()
  ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial()
  ITEM Assertion OK : - Range.Calculate
  ITEM Assertion OK : Worksheet.Calculate
  ITEM Assertion OK : - Application.Calculate
  ITEM Assertion OK : Global.Calculate
  ITEM Assertion OK : Calculation set
  ITEM FAIL (RangeTest3)
 TEST Not succesfully completed : RangeTest3
END   TestCalc
Test run finished : 10/07/2007 01:56:23
 |