Teste :: Imagem. Teste uma imagem
Baixe Agora

Teste :: Imagem. Classificação e resumo

Teste :: Imagem. Tag

imagem Módulo Perl. perl testador Teste imagens.

Teste :: Imagem. Descrição

Teste uma imagem Teste :: Image é um módulo de teste compatível com teste :: Builder para testar imagens.Calling Os métodos deste módulo imprime o teste de qualquer coisa que o protocolo Saída projetado para ser processado pelo teste :: Harness durante um teste Fazer ou ./build test. Este módulo 'joga bom' com outros módulos de teste também criados com teste :: construtor. Por exemplo, você pode usar este módulo em conjunto com o teste :: Mais, teste :: Exception, Test :: Databaseow, etc, e não precisa se preocupar com os números de teste ficando confusos. Todos os métodos recebem uma descrição opcional como o último argumento. Por exemplo: $ i-> largura (400); # imprime "ok 1 - largura da imagem" $ i-> largura (400, "1ª largura"); # Impressões "OK 2 - 1ª Largura" Sinopse Use Test :: Mais Plan => 1; usar teste :: imagem; # Criar um novo testador de imagem Meu $ i = TEST :: Image-> Novo (Image :: Imlib2-> New ("foo.jpg")); ok ($ i, "imagem ok"); $ i-> tamanho (400.300); # (veja também $ i-> largura, $ i-> altura) # você pode verificar pixels usando nomes, Hex RGB ou RGB Decimal $ i-> pixel (10,10, "branco"); # 10, 10 é branco $ i-> pixel (10,10, "ffffff"); # 10, 10 é branco $ i-> pixel (10,10, ); # 10, 10 é branco $ i-> pixel_not (10,10, "branco"); # 10, 10 não é branco $ i-> pixel_not (10,10, "ffffff"); # 10, 10 não é branco $ i-> pixel_not (10,10, ); # 10, 10 não é branco # você pode usar várias posibilidades também # verifique o pixel é vermelho, branco ou azul: $ i-> pixel (10,10, ; $ i-> pixel (10,10, ); $ i-> pixel (10,10, , , ]); # Verifique se o pixel não é vermelho branco ou azul: $ i-> pixel_not (10,10, ); $ i-> pixel_not (10,10, ); $ i-> pixel_not (10,10, , , ]); # Funções de linha (ou substituir "linha" por "col" ou "coluna" para testes de coluna) # Você pode usar várias cores $ i-> linha (10, "branco"); # linha 11 é tudo branco $ i-> row_all (10, "branco"); # linha 11 é tudo branco $ i-> row_any (10, "branco"); # fileira 11 tem um pixel branco $ i-> row_none (10, "branco"); # fileira 11 não tem pixels brancos # da mesma forma de toda a imagem (novamente pode usar várias cores) $ i-> Tudo ("branco"); # imagem inteira é branca $ i-> qualquer ("branco"); # imagem inteira tem um pixel branco $ i-> nenhum ("branco"); # imagem inteira não tem pixels brancos # finalmente regiões (você pode usar _all, _Any ou _none também) # Verifique a região 10x10 a partir de 40,30 $ i-> Região (40, 30, "R10", "R10", "R10" " Branco"); Requisitos: · Perl.

Teste :: Imagem. Software Relacionado