Ejemplo de test unitario con cobol