1#! /usr/bin/perl -w
2# MD5: 124cf19c2ca056abc26494ec2851533d
3# TEST: ./rwbag --sport-flow=stdout ../../tests/data.rwf ../../tests/empty.rwf ../../tests/data.rwf | ./rwbagcat --key-format=decimal
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');
12$file{empty} = get_data_or_exit77('empty');
13my $cmd = "$rwbag --sport-flow=stdout $file{data} $file{empty} $file{data} | $rwbagcat --key-format=decimal";
14my $md5 = "124cf19c2ca056abc26494ec2851533d";
15
16check_md5_output($md5, $cmd);
17