Histórico da Página

...

Para exemplos completos, veja em (Exemplo no GitHub) em: github.com/totvs/tlpp-probat-samples

Pulando Funções, Classes e Métodos - @Skip()

Esse recurso causa o "pulo" da função, classe interia ou somente o método inteirode testes, independentemente de quantas funções de asserts existem implementados em seu escopo.

Portanto, mesmo que hajam muitos asserts implementados, quando houver @skip() o PROBAT irá registrar somente 1 (um) salto no resultado de testes, pois ele irá fazer referência à função ou ao método e não ao seu conteúdo.

Exemplos:

...

@Skip() para função:

@TestFixture()
@Skip()
user function test_samplefunction_skip()
 ...

...

@Skip() para classe:

@TestFixture()
@Skip()
class test_class_skip()
...

@Skip() para método:

...
@Test()
@Skip()
public method test_samplemethod_skip()
...

Pulando asserts específicos - SKIPASSERT e SKIPTEST

...

Para isso existe um comando que é inserído inserido em seu fonte logo antes da execução do assert.

...

Usaremos no exemplo uma função, mas o procedimento pode ser usado em método também pois esse recurso é por assert.

Usando função:

#include "tlpp-core.th"
#include "tlpp-probat.th"

using namespace   tlpp.probat

@TestFixture()
user function test_sample_skip_assert()

  local cVar := ""  as character
  local nVar := 0   as numeric
  local fVar        as decimal

  assertEquals( valtype(cVar), "C" )

  SKIPTEST
  assertEquals( valtype(fVar), "F" )
  // OU
  SKIPASSERT
  assertEquals( valtype(fVar), "F" )

  assertEquals( valtype(nVar), "N" )

return .T.

...