1#! /usr/bin/perl -w
2# MD5: ddd4b0caafd5cc25cbabb43d9d55cd11
3# TEST: ./rwuniq --pmap-file=servhost:../../tests/ip-map.pmap --fields=dst-servhost --sort-output ../../tests/data.rwf
4
5use strict;
6use SiLKTests;
7
8my $rwuniq = check_silk_app('rwuniq');
9my %file;
10$file{data} = get_data_or_exit77('data');
11$file{ip_map} = get_data_or_exit77('ip_map');
12my $cmd = "$rwuniq --pmap-file=servhost:$file{ip_map} --fields=dst-servhost --sort-output $file{data}";
13my $md5 = "ddd4b0caafd5cc25cbabb43d9d55cd11";
14
15check_md5_output($md5, $cmd);
16