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