Test :: Resim Bir görüntüyü test edin
Şimdi İndirin

Test :: Resim Sıralama ve Özet

Test :: Resim Etiketler

görüntü Perl modülü perl tester görüntüleri test etmek

Test :: Resim Açıklama

Bir resmi test et TEST :: Image, görüntüleri test etmek için bir test :: Builder uyumlu test modülü görüntüleri. Bu modülün yöntemlerini izler. Bu modül, diğer test modülleriyle de Test :: Builder ile hazırlanmış olan diğer test modülleriyle "oynuyor. Örneğin, bu modülü test :: daha fazla, test :: istisna, test :: veri tabanını, vb. İle birlikte mutlu bir şekilde kullanabilirsiniz. Tartışma. Örneğin: $ I-> Genişlik (400); # Baskılar "Tamam 1 - görüntü genişliği" $ i-> genişlik (400, "1. genişlik"); # Baskılar "Tamam 2 - 1. Genişlik" Sinopsis Kullanın Test :: Diğer Plan => 1; Kullanım Testi :: Resmi; # Yeni bir görüntü test cihazı oluşturun $ i = Test :: Image-> Yeni (Resim :: Imlib2-> Yeni ("foo.jpg")); Tamam ($ i, "image tamam"); $ I-> Boyut (400,300); # (Ayrıca, bkz. $ i-> Genişlik, $ i-> Yükseklik) # adları, rgb hex veya rgb ondalık $ i-> piksel (10,10, "beyaz") kullanarak pikselleri kontrol edebilirsiniz; # 10, 10, beyaz $ i-> piksel (10,10, "ffffff"); # 10, 10, beyaz $ i-> pikseldir (10,10, ); # 10, 10, beyaz $ i-> pixel_not (10,10, "beyaz"); # 10, 10, beyaz $ i-> pixel_not (10,10, "ffffff"); # 10, 10, beyaz $ i-> pixel_not değildir (10,10, ); # 10, 10 beyaz değil # # Birden fazla Olayı kullanabilirsiniz. # # Kontrol piksel kırmızı, beyaz veya mavi: $ i-> piksel (10,10, ); $ i-> piksel (10,10, ); $ I-> piksel (10,10, , ]); # pikselin kırmızı beyaz veya mavi olmadığını kontrol edin: $ i-> pixel_not (10,10, ); $ i-> pixel_not (10,10, ); $ i-> pixel_not (10,10, , , ]); # satır fonksiyonları (veya "satır" ile "col" veya "sütun" sütun testleri ile değiştirin) # birden fazla renk, $ I-> satır (10, "White") kullanabilirsiniz; # satır 11 hepsi beyaz $ i-> row_all (10, "beyaz"); # satır 11 hepsi beyaz $ i-> row_any (10, "beyaz"); # satır 11, beyaz piksel $ i-> row_none (10, "beyaz"); # satır 11, tüm görüntü için de benzer bir piksel yoktur (tekrar birden fazla renk kullanabilirsiniz) $ I-> Hepsi ("beyaz"); # tüm görüntü beyaz $ i-> herhangi bir ("beyaz"); # Bütün görüntünün beyaz pikselli bir $ I-> Yok ("beyaz"); # Bütün görüntünün beyaz piksel yok # nihayet bölgeler (_all, _any veya _none da kullanabilirsiniz) # # 40,30 $ I-> Bölge (40, 30, "R10", "R10", " Beyaz"); Gereksinimler: · Perl

Test :: Resim İlgili Yazılım