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