#!/usr/bin/perl
use strict;
use warnings;
use RRDs;
use File::Spec;

print "===== Starting Perl bindings test =====\n";

my $rrd = "perl_test.rrd";
my $png = "perl_test.png";

END {
    unlink $rrd if -e $rrd;
    unlink $png if -e $png;
}

print "--> Creating RRD via Perl bindings...\n";
RRDs::create($rrd, "--step", "60", "--start", "now-10m",
             "DS:test:GAUGE:120:0:100",
             "RRA:AVERAGE:0.5:1:10");
die "Failed to create RRD file: ".RRDs::error."\n" if RRDs::error;
print "OK: RRD file created.\n";

print "--> Updating RRD via Perl bindings...\n";
RRDs::update($rrd, "N:42");
die "Failed to update RRD file: ".RRDs::error."\n" if RRDs::error;
print "OK: RRD file updated.\n";

print "--> Fetching data via Perl bindings...\n";
my ($start, $step, $ds_names, $data) = RRDs::fetch($rrd, "AVERAGE", "--start", "now-5m");
die "Failed to fetch data: ".RRDs::error."\n" if RRDs::error;
print "OK: Data fetched.\n";

print "--> Creating graph via Perl bindings...\n";
RRDs::graph($png, "--start", "now-10m",
            "DEF:mydata=$rrd:test:AVERAGE",
            "LINE1:mydata#00FF00:test data");
die "Failed to create graph: ".RRDs::error."\n" if RRDs::error;
print "OK: Graph created.\n";

print "===== Perl bindings test PASSED =====\n";
exit 0;