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