The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# Exercise the _is_allowed_type() helper function

use Test::More tests => 5;
use strict;
use_ok('Data::FormValidator::Constraints::Upload');

# Test the negative case
isnt(
    Data::FormValidator::Constraints::Upload::_is_allowed_type('foo'),
    1, "'foo'        not considered an allowed mime type"
);

# Reality check that a simple jpeg is allowed
is(
    Data::FormValidator::Constraints::Upload::_is_allowed_type('image/jpeg'),
    1, "'image/jpeg'  is considered an allowed mime type"
);

# Check that we handle case insensitivity
is(
    Data::FormValidator::Constraints::Upload::_is_allowed_type('image/JPEG'),
    1, "'image/JPEG'  is considered an allowed mime type"
);

# Also ensure progressive jpegs are allowed
is(
    Data::FormValidator::Constraints::Upload::_is_allowed_type('image/pjpeg'),
    1, "'image/pjpeg' is considered an allowed mime type"
);