The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use Test::More tests => 1;;
open(STDOUT, ">&STDERR");

use Net::NfDump qw ':all';

my %data =( 

	'version' => '1',
	'ident' => 'none',
	'blocks' => '1',
	'catalog' => '0',
	'anonymized' => '0',
	'compressed' => '1',
	'sequence_failures' => '0',

	'first' => '1354046356360',
	'last' => '1354046668173',

	'flows' => '8170',
	'flows_tcp' => '14',
	'flows_udp' => '8092',
	'flows_icmp' => '63',
	'flows_other' => '1',

	'bytes' => '2641163',
	'bytes_tcp' => '10611',
	'bytes_udp' => '2613720',
	'bytes_icmp' => '16792',
	'bytes_other' => '40',

	'packets' => '8534',
	'packets_tcp' => '73',
	'packets_udp' => '8346',
	'packets_icmp' => '114',
	'packets_other' => '1',
	);

# we will use the output file from the previous test 

my $info = file_info("t/data2");

ok( eq_hash($info, \%data) );