1#! /usr/bin/perl -w 2# MD5: 88e26bd8da3b2027db05421ccd446c00 3# TEST: ./rwbag --sip-flows=stdout ../../tests/data-v6.rwf | ./rwbagcat --network-structure=v6:48,T/48,64,123,112 4 5use strict; 6use SiLKTests; 7 8my $rwbagcat = check_silk_app('rwbagcat'); 9my $rwbag = check_silk_app('rwbag'); 10my %file; 11$file{v6data} = get_data_or_exit77('v6data'); 12check_features(qw(ipv6)); 13my $cmd = "$rwbag --sip-flows=stdout $file{v6data} | $rwbagcat --network-structure=v6:48,T/48,64,123,112"; 14my $md5 = "88e26bd8da3b2027db05421ccd446c00"; 15 16check_md5_output($md5, $cmd); 17