Reporte prueba

Problema
De una clase con cuatro métodos (mediaAritmetica, mediaArmonica, mediaGeometrica, raizEnesima) se desea probar el correcto funcionamiento de los mismos.
Diseño
Prueba de unidadsobre la clase Mate, la cual contiene cuatro métodos a probar, los resultados de estas pruebas se comparan con los resultados de la clase en funcionamiento con las mismas entradas. Para realizar la pruebase crean varios casos de prueba los cuales guardados en un archivo de texto, los cuales contienen: Número del caso de prueba, método a probar, entradas y resultado del método probado. Cada elementoseparado con el carácter “:”.
El caso de prueba tiene que mostrar si el resultado del método es igual al resultado obtenido con la herramienta para crear los casos de prueba, la cual realiza elmismo proceso del método supuesto.
Código fuente
Clase Mate contiene cuatro métodos, uno de ellos sin contenido.
`Public Class Mate`
`PublicSharedFunctionmediaAritmetica(ByValvals()AsInteger)AsDouble`
` Dim sumVals As Integer = 0`
` For i = 0 To (vals.Length - 1)`
sumVals += vals(i)
Next
` Return (sumVals / vals.Length)`
` EndFunction`
`PrivateSharedFunctionraizEnesima(ByValxAsDouble,ByValnAsInteger)AsDouble`
` Return (x ^ (1 / n))`
` EndFunction`
` PublicSharedFunctionmediaGeometrica(ByValvals()AsInteger)AsDouble`
` Dim prodVals As Integer = 0`
`For i = 0 To (vals.Length - 1)`
prodVals *= vals(i)
Next
` Return raizEnesima(prodVals, vals.Length)`
` EndFunction`
` PublicSharedFunctionmediaArmonica(ByValvals()AsInteger)AsDouble`'No implementado
` EndFunction`
`EndClass`
Herramienta para crear casos de prueba.
ModulegeneraPruebas
` Sub Main()`
` DimidPruebaAsString=""`
` DimtipoPruebaAsString=""`
`DimchrDelimitadorAsString=":"`
` DimvaloresDelimitadorAsString=" "`
` DimvaloresEntradaAsString=""`
` Dim strPartida() As String = {"", "", "", ""}`
` DimtxtPruebaAsString=""`
` Dim...