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