#!/usr/bin/env perl
use warnings;
use strict;
use Text::Pipe 'PIPE';
use Test::More tests => 4;
my $pipe = PIPE 'Split';
is_deeply($pipe->filter('test'), [ qw(t e s t) ], 'split with defaults');
$pipe->pattern('s');
is_deeply($pipe->filter('test'), [ qw(te t) ], 'split along "s"');
$pipe->limit(1);
is_deeply($pipe->filter('asbscs'), [ qw(asbscs) ], 'split along "s", limit 1');
$pipe->limit(2);
is_deeply($pipe->filter('asbscs'), [ qw(a bscs) ], 'split along "s", limit 2');