1#! /usr/bin/perl -w 2# MD5: 60287e588529eaaedbaf179440be10ae 3# TEST: ./rwuniq --fields=stype --values=sip-distinct --delimited --ipv6-policy=ignore --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{address_types} = get_data_or_exit77('address_types'); 12$ENV{SILK_ADDRESS_TYPES} = "$SiLKTests::PWD/$file{address_types}"; 13my $cmd = "$rwuniq --fields=stype --values=sip-distinct --delimited --ipv6-policy=ignore --sort-output $file{data}"; 14my $md5 = "60287e588529eaaedbaf179440be10ae"; 15 16check_md5_output($md5, $cmd); 17