#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 5;

use Input::Validator::Constraint::Unique;

my $constraint = Input::Validator::Constraint::Unique->new;

ok($constraint);

is($constraint->is_valid([qw/1 1/]), 0);
is($constraint->is_valid([qw/1 1 2/]), 0);
is($constraint->is_valid([qw/1 2 1/]), 0);
is($constraint->is_valid([qw/1 2 3/]), 1);