File Coverage

blib/lib/App/RecordStream/Test/UniqConcatHelper.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	21	22	95.4

package App::RecordStream::Test::UniqConcatHelper;

use strict;
use warnings;

use App::RecordStream::Record;

sub test_aggregator
{
  my $aggr = shift;
  my $delim = shift;
  my $field = shift;

  my $cookie = $aggr->initial();

  foreach my $n (1, 3, 3, 1, 2, 7)
  {
    $cookie = $aggr->combine($cookie, App::RecordStream::Record->new("x" => $n));
  }

  my $value = $aggr->squish($cookie);

  Test::More::is($value, '1,2,3,7', "uniq concat of 1, 3, 3, 1, 2, 7");
}

1;