#!perl

use strict;
use warnings;

use Test::More;
use Test::Exception;

use lib 't/lib';
use Pinto::Tester;

#------------------------------------------------------------------------------

my $t = Pinto::Tester->new;

#------------------------------------------------------------------------------

{
  # Create a stack...
  my $stack = $t->pinto->repo->create_stack(name => 'test');

  # Set a property...
  $stack->set_property(a => 1);
  is $stack->get_property('a'), 1,
    'set/get one property';

  # Set several properties...
  $stack->set_properties({b => 2, c => 3});
  is_deeply $stack->get_properties, { a => 1, b => 2, c => 3 },
    'get/set many props at once';

  # Copy stack...
  my $new_stack = $t->pinto->repo->copy_stack(stack => $stack, name => 'qa');
  my $new_props = $new_stack->get_properties;

  # All the copied properties should be identical
  is_deeply $new_props, $stack->get_properties,
    'Copied stack has same properties';

  # Delete a property...
  $new_stack->delete_property('a');
  ok ! exists $new_stack->get_properties->{'a'},
    'Deleted a prop';

# Delete a property by setting to empty string...
  $new_stack->set_property(a => '');
  ok ! exists $new_stack->get_properties->{'a'},
    'Deleted a prop by setting to empty';

  # Invalid property name..
  throws_ok { $new_stack->set_property('foo#bar' => 4) }
    qr{Invalid property name};

  # Property names forced to lowercase...
  $new_stack->set_property(SHOUTING => 4);
  ok exists $new_stack->get_properties->{'shouting'},
    'Get/Set property irrespective of case';

  # Property names forced to lowercase...
  $new_stack->delete_property('ShOuTiNg');
  ok ! exists $new_stack->get_properties->{'shouting'},
    'Delete property irrespective of case';

}


#------------------------------------------------------------------------------

done_testing;