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