Renamed Aggregate::Count to Aggregate::Frequencies
diff --git a/t/result/segment/aggregate_freq.t b/t/result/segment/aggregate_freq.t
new file mode 100644
index 0000000..a61e097
--- /dev/null
+++ b/t/result/segment/aggregate_freq.t
@@ -0,0 +1,66 @@
+use Test::More;
+use Test::Krawfish;
+use strict;
+use warnings;
+
+use_ok('Krawfish::Index');
+use_ok('Krawfish::Koral::Query::Builder');
+use_ok('Krawfish::Result::Segment::Aggregate');
+use_ok('Krawfish::Result::Segment::Aggregate::Frequencies');
+
+my $index = Krawfish::Index->new;
+
+ok_index($index, {
+ docID => 7
+} => [qw/aa bb/], 'Add complex document');
+ok_index($index, {
+ docID => 3,
+} => [qw/aa cc cc/], 'Add complex document');
+ok_index($index, {
+ docID => 1,
+} => [qw/aa bb/], 'Add complex document');
+
+
+my $kq = Krawfish::Koral::Query::Builder->new;
+
+my $query = $kq->token('bb');
+
+my $freq = Krawfish::Result::Segment::Aggregate::Frequencies->new;
+is($freq->to_string, 'freq');
+
+# Get freq object
+ok(my $aggr = Krawfish::Result::Segment::Aggregate->new(
+ $query->normalize->finalize->optimize($index),
+ [$freq]
+), 'Create freq object');
+
+ok($aggr->next, 'Next');
+ok($aggr->next, 'Next');
+ok(!$aggr->next, 'No more nexts');
+
+
+is($aggr->result->{totalResources}, 2, 'Document frequency');
+is($aggr->result->{totalResults}, 2, 'Occurrence frequency');
+
+is($aggr->to_string, "aggregate([freq]:'bb')", 'Get freqs');
+$query = $kq->token('cc');
+
+$freq = Krawfish::Result::Segment::Aggregate::Frequencies->new;
+
+# Get freq object
+ok($aggr = Krawfish::Result::Segment::Aggregate->new(
+ $query->normalize->finalize->optimize($index),
+ [$freq]
+), 'Create freq object');
+
+# Search till the end
+ok($aggr->finalize, 'Finish');
+
+# Stringify
+is($aggr->to_string, "aggregate([freq]:'cc')", 'Get freqs');
+
+is($aggr->result->{totalResources}, 1, 'Document frequency');
+is($aggr->result->{totalResults}, 2, 'Occurrence frequency');
+
+done_testing;
+__END__