Blob Blame History Raw
# HARNESS-NO-PRELOAD
use strict;
use warnings;

use Test2::V0;
use Test2::Plugin::NoWarnings;
use Test::Without::Module qw( Sub::Util );

use Params::ValidationCompiler qw( validation_for );

{
    my $e = dies {
        validation_for(
            name   => 'Check for X',
            params => { foo => 1 },
        );
    };

    like(
        $e,
        qr/\QCannot name a generated validation subroutine. Please install Sub::Util./,
        'passing name when Sub::Util is not installed fails',
    );
}

{

    is(
        dies {
            validation_for(
                name             => 'Check for X',
                name_is_optional => 1,
                params           => { foo => 1 },
            );
        },
        undef,
        'passing name and name_is_optional when Sub::Util is not installed lives'
    );
}

done_testing();