1 2########################################### 3# Test meta data discovery 4# Mike Schilli, 2004 (m@perlmeister.com) 5########################################### 6use warnings; 7use strict; 8 9use Test::More qw(no_plan); 10use RRDTool::OO; 11 12use Log::Log4perl qw(:easy); 13#Log::Log4perl->easy_init({ 14# level => $DEBUG, 15# layout => "%L: %m%n", 16# file => 'stdout' 17#}); 18 19my $rrd = RRDTool::OO->new(file => "rrdtooltest.rrd"); 20 21 # Create a round-robin database 22$rrd->create( 23 step => 1, # one-second intervals 24 data_source => { name => "mydatasource", 25 type => "GAUGE" }, 26 data_source => { name => "myotherdatasource", 27 type => "GAUGE" }, 28 archive => { rows => 5, 29 cfunc => 'MAX', 30 cpoints => 10, 31 }, 32 archive => { rows => 5, 33 cfunc => 'MIN', 34 cpoints => 10, 35 }, 36); 37 38 # start from scratch with a new object 39 # to the same rrd file 40$rrd = RRDTool::OO->new(file => "rrdtooltest.rrd"); 41 42$rrd->meta_data_discover(); 43my $dsnames = $rrd->meta_data("dsnames"); 44my $cfuncs = $rrd->meta_data("cfuncs"); 45like("@$cfuncs", qr/MAX/, "check cfunc"); 46like("@$cfuncs", qr/MIN/, "check cfunc"); 47like("@$dsnames", qr/mydatasource/, "check dsname"); 48like("@$dsnames", qr/myotherdatasource/, "check dsname"); 49 50END { unlink "rrdtooltest.rrd"; } 51