#!/usr/bin/perl --
use Test::More ;
for my $ext ( qw/ jpg gif bmp PNG / ) {
    my $isItTrue = int( $ext eq "jpg"||"gif"||"bmp");
    is( $isItTrue, 1, "$ext" );
}
Test::More::done_testing();
__END__
ok 1 - jpg
not ok 2 - gif
#   Failed test 'gif'
#   at - line 5.
#          got: '0'
#     expected: '1'
not ok 3 - bmp
#   Failed test 'bmp'
#   at - line 5.
#          got: '0'
#     expected: '1'
not ok 4 - PNG
#   Failed test 'PNG'
#   at - line 5.
#          got: '0'
#     expected: '1'
1..4
# Looks like you failed 3 tests of 4.