1#! /usr/bin/perl -w
2# MD5: 34122422586fe1a3d58f4b5355dbec6b
3# TEST: ./rwbag --sip-flows=stdout ../../tests/data.rwf | ./rwbagcat --key-format=decimal --bin-ips=binary
4
5use strict;
6use SiLKTests;
7
8my $rwbagcat = check_silk_app('rwbagcat');
9my $rwbag = check_silk_app('rwbag');
10my %file;
11$file{data} = get_data_or_exit77('data');
12my $cmd = "$rwbag --sip-flows=stdout $file{data} | $rwbagcat --key-format=decimal --bin-ips=binary";
13my $md5 = "34122422586fe1a3d58f4b5355dbec6b";
14
15check_md5_output($md5, $cmd);
16