1 files changed, 60 insertions, 0 deletions
diff --git a/t/046RRDs.t b/t/046RRDs.t
new file mode 100644
index 0000000..d1b35d4
--- /dev/null
+++ b/t/046RRDs.t
@@ -0,0 +1,60 @@
+###########################################
+# Test Suite for RRDs appenders
+# Mike Schilli, 2004 (m@perlmeister.com)
+###########################################
+
+BEGIN { 
+    if($ENV{INTERNAL_DEBUG}) {
+        require Log::Log4perl::InternalDebug;
+        Log::Log4perl::InternalDebug->enable();
+    }
+}
+
+use warnings;
+use strict;
+
+use Test::More;
+
+use Log::Log4perl qw(get_logger);
+    
+my $DB = "myrrddb.dat";
+    
+BEGIN { eval 'require RRDs';
+        if($@) {
+            plan skip_all => "(RRDs not installed)";
+            exit 0;
+        } else {
+            plan tests => 1;
+        }
+      };
+END { unlink $DB };
+
+use RRDs;
+
+RRDs::create(
+  $DB, "--step=1",
+  "DS:myvalue:GAUGE:2:U:U",
+  "RRA:MAX:0.5:1:120");
+    
+Log::Log4perl->init(\qq{
+  log4perl.category = INFO, RRDapp
+  log4perl.appender.RRDapp = Log::Log4perl::Appender::RRDs
+  log4perl.appender.RRDapp.dbname = $DB
+  log4perl.appender.RRDapp.layout = Log::Log4perl::Layout::PatternLayout
+  log4perl.appender.RRDapp.layout.ConversionPattern = N:%m
+});
+    
+my $logger = get_logger();
+    
+for(10, 15, 20) {
+    $logger->info($_);
+    sleep 1;
+}
+
+my ($start,$step,$names,$data) = 
+    RRDs::fetch($DB, "MAX", 
+                "--start" => time() - 20);
+$data = join ' - ', map { "@$_" } grep { defined $_->[0] } @$data;
+#print $data;
+
+like($data, qr/\d\d/);