#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 4;
use Data::FormValidator;
my %FORM = (
  stick => 'big',
  speak => 'softly',
  mv    => [ 'first', 'second' ],
);
my $results = Data::FormValidator->check(
  \%FORM,
  {
    #        required => 'stick',
    #        optional => 'mv',
  } );
ok( $results->unknown('stick') eq 'big', 'using check() as class method' );
is( $results->unknown('stick'),
  $FORM{stick}, 'unknown() returns single value in scalar context' );
my @mv = $results->unknown('mv');
is_deeply( \@mv, $FORM{mv}, 'unknown() returns multi-valued results' );
my @stick = $results->unknown('stick');
is_deeply(
  \@stick,
  [ $FORM{stick} ],
  'unknown() returns single value in list context'
);