1#! /usr/bin/perl -w
2# MD5: 46dc1289082f2e4195971b5f946ed40a
3# TEST: ./rwuniq --fields=application --delimited --sort-output --values=distinct:proto,distinct:dip,distinct:sport,distinct:bytes,distinct:dport,distinct:sip,distinct:packet ../../tests/sips-004-008.rw ../../tests/sips-004-008.rw
4
5use strict;
6use SiLKTests;
7
8my $rwuniq = check_silk_app('rwuniq');
9my %file;
10$file{sips004} = get_data_or_exit77('sips004');
11my $cmd = "$rwuniq --fields=application --delimited --sort-output --values=distinct:proto,distinct:dip,distinct:sport,distinct:bytes,distinct:dport,distinct:sip,distinct:packet $file{sips004} $file{sips004}";
12my $md5 = "46dc1289082f2e4195971b5f946ed40a";
13
14check_md5_output($md5, $cmd);
15