ADVPR Test Automation

ADVPR (Advanced Protheus Robot) e a ferramenta oficial de automacao de testes do Protheus, desenvolvida internamente em ADVPL. Ela permite automatizar casos de teste sem uso de interface grafica, com foco em regra de negocio — eliminando a dependencia de telas e tornando a execucao mais rapida, estavel e paralelizavel.

O comando /advpl-specialist:advpr gera scripts de automacao ADVPR seguindo os padroes desta skill automaticamente.

O que e o ADVPR

• Executa testes de regra de negocio sem interface, em tempo menor que ferramentas baseadas em UI.
• Roda em paralelo com outras atividades na mesma maquina.
• Utiliza ADVPL, linguagem familiar aos desenvolvedores TOTVS.
• Funciona em diferentes versoes do Protheus e e independente de alteracoes no ERP pela TOTVSTec/Framework.
• Requer a aplicacao do patch de Setup disponivel em http://advpr.totvs.com.br:8080/#/setup.

Execucao

Com interface — FWMyTestRunner

Apos aplicar o patch, execute o robo pela funcao FWMyTestRunner inserida no programa inicial do SmartClient. A tela exibe os casos de teste habilitados (esquerda) e os detalhes de cada execucao (direita). O resultado e indicado por legenda: verde para aprovado, vermelho para reprovado.

Headless (sem interface) — FwExecSuite

A execucao oficial (esteira SmartTest) e sempre sem interface. Qualquer tela, alerta ou pergunta durante a execucao causa TimeOut e interrompe a suite.

appserver.exe -run=FwExecSuite -env=<environment> <suite> 0

Exemplo para a rotina MATA103:

C:\P12\P12\Bin\appserver\appserver.exe -run=FwExecSuite -env=P12 MATA103 0

Acompanhe a execucao pela Console do Servidor.

Causas de TimeOut: execucao superior a 8 horas, apresentacao de interface, Access Violation ou falha ao gerar o resultado final.

Estrutura do Script

A automacao consiste em tres fontes que se relacionam hierarquicamente:

TestSuite  →  agrupa um ou mais TestGroups
  └── TestGroup  →  agrupa um ou mais TestCases
        └── TestCase  →  implementa os casos de teste individuais

Exemplo minimo — TestSuite

#Include "TOTVS.CH"

CLASS FINA040TestSuite FROM FWDefaultTestSuite
  DATA aParam
  METHOD FINA040TestSuite() CONSTRUCTOR
  METHOD SetUpSuite()
  METHOD TearDownSuite()
ENDCLASS

METHOD FINA040TestSuite() CLASS FINA040TestSuite
  _Super:FWDefaultTestSuite()
  Self:AddTestSuite(FINA040TestGroup():FINA040TestGroup())
Return

METHOD SetUpSuite() CLASS FINA040TestSuite
  Local oHelper := FWTestHelper():New()
  oHelper:UTOpenFilial("T1","D MG 01 ")
  oHelper:UTSetParam("MV_LOCALIZ","S",.T.)
  oHelper:Activate()
Return oHelper

METHOD TearDownSuite() CLASS FINA040TestSuite
  Local oHelper := FWTestHelper():New()
  oHelper:UTRestParam(::aParam)
  oHelper:UTCloseFilial()
Return oHelper

Exemplo minimo — TestCase

#Include "TOTVS.CH"

CLASS FINA040TestCase FROM FWDefaultTestCase
  DATA oHelper
  METHOD FINA040TestCase() CONSTRUCTOR
  METHOD FIN040_001()
ENDCLASS

METHOD FINA040TestCase() CLASS FINA040TestCase
  _Super:FWDefaultTestSuite()
  ::AddTestMethod("FIN040_001",,"Inclusao de titulo")
Return

METHOD FIN040_001() CLASS FINA040TestCase
  Local oHelper := FWTestHelper():New()
  Private lMsErroAuto    := .F.
  Private lAutoErrNoFile := .T.

  oHelper:Activate()
  oHelper:UTSetValue("aCab","E1_PREFIXO","AUT")
  oHelper:UTSetValue("aCab","E1_VALOR",1000)
  oHelper:UTCommitData({|x,y| FINA040(x,y)}, oHelper:GetaCab(), 3)
  oHelper:UTCheckDB("SE1","E1_VALOR",1000)
  oHelper:AssertTrue(oHelper:lOk,"")
Return oHelper

Regras de Nomenclatura

A Classe FWTestHelper

FWTestHelper e o nucleo do framework ADVPR. Instancie com FWTestHelper():New() e ative com oHelper:Activate(). A referencia completa esta em skills/advpr-test-automation/api-fwtesthelper.md com aproximadamente 113 metodos organizados nos seguintes grupos:

Tipos de Rotina Suportados

Boas Praticas

Proibicoes

• Variaveis Private, publicas e estaticas nos scripts — podem impactar outros testes do projeto.
• Loops (While/DbSkip, For/Next) — oneram a execucao.
• RecLock/MsUnLock — terminantemente proibido; grava direto no banco sem avaliar regra de negocio.
• Comandos de banco direto: Select, RetSQLName, D_E_L_E_T_, ChangeQuery, DbUseArea, DbCloseArea, TCGenQry fora dos metodos ADVPR designados.
• Posicionamento manual: DbSelectArea, DbSetOrder, DbSeek — usar UTFindReg no lugar.
• PutMV — nao alterar SXs diretamente; usar UTSetParam com UTRestParam na restauracao.
• CHs de produto e strings de localizacao de arquivos nos fontes de teste.

Restauracoes Obrigatorias

Para envio de mensagens, sempre use help() em vez de telas customizadas. Isso dispensa o uso de IsBlind para execucao automatica.

GPS de Testes

O GPS de Testes e uma funcionalidade integrada ao ADVPR que indica quais suites e casos de teste passam por um determinado trecho de codigo, com base na ultima cobertura coletada. Util para identificar quais testes executar antes e apos uma alteracao, evitando colaterais indesejados.

Como usar: informar o nome do programa (sem extensao), a linha inicial e a linha final. O resultado lista TestSuites, TestCases e TestMethods que cobrem aquelas linhas. Os dados podem ser exportados para .csv.

Arquivos de Suporte

Esta skill inclui os seguintes arquivos de referencia: