1#! /usr/bin/perl -w
2# MD5: d0e6ae79dd2ebc04325ad7c04b6ece38
3# TEST: ../rwfilter/rwfilter --sport=20000-25000 --pass=- ../../tests/data.rwf | ../rwsplit/rwsplit --basename=/tmp/rwuniq-many-presorted-onerec --flow-limit=1 && find `dirname /tmp/rwuniq-many-presorted-onerec`  -type f -name `basename /tmp/rwuniq-many-presorted-onerec`'*' -print | ./rwuniq --fields=sport --values=packets,flows,distinct:sip --presorted-input --ipv6-policy=ignore --xargs=-
4
5use strict;
6use SiLKTests;
7
8my $rwuniq = check_silk_app('rwuniq');
9my $rwfilter = check_silk_app('rwfilter');
10my $rwsplit = check_silk_app('rwsplit');
11my %file;
12$file{data} = get_data_or_exit77('data');
13my %temp;
14$temp{onerec} = make_tempname('onerec');
15my $tmpdir = $temp{onerec};
16$tmpdir =~ s,^(.*/).*,$1,;
17my $basename = $temp{onerec};
18$basename =~ s,^.*/(.+),$1,;
19my $cmd = "$rwfilter --sport=20000-25000 --pass=- $file{data} | $rwsplit --basename=$temp{onerec} --flow-limit=1 && find $tmpdir -type f -name '$basename*' -print | $rwuniq --fields=sport --values=packets,flows,distinct:sip --presorted-input --ipv6-policy=ignore --xargs=-";
20my $md5 = "d0e6ae79dd2ebc04325ad7c04b6ece38";
21
22check_md5_output($md5, $cmd);
23