1#! /usr/bin/perl -w
2# MD5: 7667722a25f01a02e1387b39e02de03c
3# TEST: ../rwset/rwset --dip-file=stdout ../../tests/data-v6.rwf | ./rwbagbuild --set-input=- --key-type=dip-country | ./rwbagcat
4
5use strict;
6use SiLKTests;
7
8my $rwbagbuild = check_silk_app('rwbagbuild');
9my $rwset = check_silk_app('rwset');
10my $rwbagcat = check_silk_app('rwbagcat');
11my %file;
12$file{v6data} = get_data_or_exit77('v6data');
13$file{v6_fake_cc} = get_data_or_exit77('v6_fake_cc');
14$ENV{SILK_COUNTRY_CODES} = "$SiLKTests::PWD/$file{v6_fake_cc}";
15check_features(qw(ipv6));
16my $cmd = "$rwset --dip-file=stdout $file{v6data} | $rwbagbuild --set-input=- --key-type=dip-country | $rwbagcat";
17my $md5 = "7667722a25f01a02e1387b39e02de03c";
18
19check_md5_output($md5, $cmd);
20