1#! /usr/bin/perl -w
2# MD5: bc5d48751a71ceea0e633fd9e3c5ebd5
3# TEST: ./rwbag --pmap-file=service-port:../../tests/proto-port-map.pmap --bag-file=dport-pmap:service-port,packets,- ../../tests/data.rwf | ./rwbagcat --pmap-file=service-port:../../tests/proto-port-map.pmap
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{proto_port_map} = get_data_or_exit77('proto_port_map');
13my $cmd = "$rwbag --pmap-file=service-port:$file{proto_port_map} --bag-file=dport-pmap:service-port,packets,- $file{data} | $rwbagcat --pmap-file=service-port:$file{proto_port_map}";
14my $md5 = "bc5d48751a71ceea0e633fd9e3c5ebd5";
15
16check_md5_output($md5, $cmd);
17