1#! /usr/bin/perl -w
2# MD5: e2ddc6cb13c8956ce2906ef6faf9b794
3# TEST: ../rwfilter/rwfilter --type=in,inweb --pass=/tmp/rwstats-multi-inputs-3-5-in --fail=/tmp/rwstats-multi-inputs-3-5-out ../../tests/data.rwf && ./rwstats --fields=3-5 --values=bytes,packets --threshold=30000000 /tmp/rwstats-multi-inputs-3-5-in /tmp/rwstats-multi-inputs-3-5-out
4
5use strict;
6use SiLKTests;
7
8my $rwstats = check_silk_app('rwstats');
9my $rwfilter = check_silk_app('rwfilter');
10my %file;
11$file{data} = get_data_or_exit77('data');
12my %temp;
13$temp{in} = make_tempname('in');
14$temp{out} = make_tempname('out');
15my $cmd = "$rwfilter --type=in,inweb --pass=$temp{in} --fail=$temp{out} $file{data} && $rwstats --fields=3-5 --values=bytes,packets --threshold=30000000 $temp{in} $temp{out}";
16my $md5 = "e2ddc6cb13c8956ce2906ef6faf9b794";
17
18check_md5_output($md5, $cmd);
19