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