view release on metacpan or  search on metacpan

t/lib/IniTests.pm  view on Meta::CPAN

use strict;
use warnings;

package # no_index
  IniTests;

use Test::More 0.96;
use Test::Differences;
use Test::Routine;

use Config::MVP::Writer::INI ();

has args => (
  is          => 'ro',
  isa         => 'HashRef',
  default     => sub { +{} },
);

has sections => (
  is          => 'ro',
  isa         => 'ArrayRef',
);

has ini_string => (
  is          => 'ro',
  isa         => 'Str',
  init_arg    => undef,
  lazy        => 1,
  default     => sub {
    my ($self) = @_;
    $self->writer->ini_string($self->sections);
  },
);

has writer => (
  is          => 'ro',
  isa         => 'Config::MVP::Writer::INI',
  lazy        => 1,
  default     => sub {
    Config::MVP::Writer::INI->new($_[0]->args);
  },
);

has expected_ini => (
  is          => 'ro',
  isa         => 'Str',
  predicate   => 'has_expected_ini',
);

test newlines => sub {
  my ($self) = @_;

  like   $self->ini_string, qr/\A[^\n]/,   'no newline at beginning';
  unlike $self->ini_string, qr/\n{3,}/,    'no more than two sequential newlines';
  like   $self->ini_string, qr/[^\n]\n\z/, 'single newline at end';

  # TODO: use \h for perl 5.10?
  # of course this assumes none of our input values end in whitespace
  unlike $self->ini_string, qr/[ \t]\n/,   'no trailing whitespace on any lines';
};

test string_eq => sub {
  my ($self) = @_;

  plan skip_all => 'expected_ini required'
    unless $self->has_expected_ini;

  eq_or_diff