#!/usr/bin/env perl

use autodie;
use strict;
use utf8::all;
use v5.20;
use warnings;

use Test::Most;

require_ok 'App::ppll';

subtest _split_fields => sub {
  delete local $ENV{IFS};

  my $ppll = App::ppll->new;

  is_deeply( [ $ppll->_split_fields( 'foo bar' ) ], [qw( foo bar )] );
};

done_testing;
