The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More tests => 7;
use Validate::Tiny;

# Scalar
ok Validate::Tiny::_match( 'foo', 'foo' );
ok !Validate::Tiny::_match( 'foo', 'goo' );

# Array
ok Validate::Tiny::_match( 'foo', [qw/bar foo baz/] );
ok !Validate::Tiny::_match( 'foo', [qw/bar goo baz/] );

# Regexp
ok Validate::Tiny::_match( 'FOO', qr/foo/i );
ok !Validate::Tiny::_match( 'foo', qr/bar/ );

# Other
ok !Validate::Tiny::_match( 'foo', { foo => 1 } );