use strict;

use warnings;

use CPAN::Meta::Requirements;

use Test::More 0.88;

sub dies_ok (&@) {

  my ($code, $qr, $comment) = @_;

  no warnings 'redefine';

  local *Regexp::CARP_TRACE  = sub { "<regexp>" };

  my $lived = eval { $code->(); 1 };

  if ($lived) {

    fail("$comment: did not die");

  } else {

    like($@, $qr, $comment);

  }

}

{

  my $req = CPAN::Meta::Requirements->new;

  $req->add_minimum('Foo::Bar' => 10);

  $req->add_minimum('Foo::Bar' => 0);

  $req->add_minimum('Foo::Bar' => 2);

  $req->add_minimum('Foo::Baz' => version->declare('v1.2.3'));

  $req->add_minimum('Foo::Undef' => undef);

  my $want = {

    'Foo::Bar'   => 10,

    'Foo::Baz'   => 'v1.2.3',

    'Foo::Undef' => 0,

  };

  is_deeply(

    $req->as_string_hash,

    $want,

    "some basic minimums",

  );

  $req->finalize;

  $req->add_minimum('Foo::Bar', 2);

  pass('we can add a Foo::Bar requirement with no effect post finalization');

  dies_ok { $req->add_minimum('Foo::Bar', 12) }

    qr{finalized req},

    "can't add a higher Foo::Bar after finalization";

  dies_ok { $req->add_minimum('Foo::New', 0) }

    qr{finalized req},

    "can't add a new module prereq after finalization";

  dies_ok { $req->clear_requirement('Foo::Bar') }

    qr{finalized req},

    "can't clear an existing prereq after finalization";

  $req->clear_requirement('Bogus::Req');

  pass('we can clear a prereq that was not set to begin with');

  is_deeply(

    $req->as_string_hash,

    $want,

    "none of our attempts to alter the object post-finalization worked",

  );

  my $cloned = $req->clone;

  $cloned->add_minimum('Foo::Bar', 12);

  is_deeply(

    $cloned->as_string_hash,

    {

      %$want,

      'Foo::Bar' => 12,

    },

    "we can alter a cloned V:R (finalization does not survive cloning)",

  );

  is_deeply(

    $req->as_string_hash,

    $want,

    "...and original requirements are untouched",

  );

}

done_testing;