Teste :: Simpleunit. TEST :: Simpleunit é uma estrutura de teste de unidade Perl simplificada.
Baixe Agora

Teste :: Simpleunit. Classificação e resumo

Teste :: Simpleunit. Tag

estrutura Módulo Perl. perl Framework Perl. Estrutura de teste de unidade

Teste :: Simpleunit. Descrição

Teste :: SimpleUnit é uma estrutura de teste de unidade Perl simplificada. Teste :: SimpleUnit é uma estrutura de teste de unidade de perl simplificada. Testes de uso do Synopsis :: Simpleunit QW {: Funções}; Rattests ({nome => "test1", teste => sub {...}}, {nome => "Testn", teste => sub {...}}); Exemplo de teste :: Simpleunit QW {: funções}; # Se uma função de configuração ou desmontagem falhar, pule o restante do teste de testes :: SimpleUnit :: AutoskipFailedSetup (1); Teste :: Simpleunit :: AutoskipFailedtedown (1); minha instância; meu $ requirewasokay = 0; Meus @tests = (# Requer o módulo {nome => 'exigir', teste => sub {# Certifique-se de que possamos carregar o módulo a ser testado. AssertnoException {Requirem MyClass}; # Tente importar algumas funções, gerando um personalizado Mensagem de erro Se o # falhar. AssertnoException {MyClass-> Import (': Myfuncs')} "Falha ao importar: myfuncs"; # Certifique-se de chamar 'Import ()' realmente importou as funções asserTref 'código', * :: myfunc {Code}; assertref 'código', * :: myotherfunc {code}; # defina o sinalizador para deixar a função de configuração saber o módulo carregado Ok $ requirewasokay = 1;},}, # função de configuração (isso será executado antes de qualquer Testes que se seguem) {name => 'setup', teste => sub {# Se o teste anterior não terminar, ele é semestable, então basta pular o número # Resto dos testes Skipall "Módulo falhou ao carregar" a menos que seja requirewasokay " $ Instance = novo myclass;},},}, # Função desenhada (isso será executado após todos os testes que se seguir) {nome => 'desmontagem', teste => sub {underf $ instance;},}, # Teste a conexão ) e desconectar () Metho ds {name => 'conectar () e desconectar ()', teste => sub {my $ rval; assertnoException {$ rval = $ instance-> conectar}; Assert $ RVAL, "Connect falhou sem erro". AssertnoException {$ instance-> Desconectar}; },}, # Função de configuração única - substitui a configuração anterior, mas é imediatamente descartado após a execução de uma vez. {nome => 'setup', func => sub {myclass :: prepnetwork (); },}, # Agora substitua a função de configuração anterior com um novo que faz # um conectar () antes de cada teste restante. {name => 'setup', teste => sub {$ instance = novo myclass; $ Instanced-> Conectar; },} # Mesma coisa para desmontagem / desconexão () {nome => 'desmontagem', teste => sub {$ instance-> Desconectar; Indedef $ Instância; },}, ...); corredores (@testsuite); Requisitos: · Perl.

Teste :: Simpleunit. Software Relacionado