Changeset 31 for trunk/soft/ObsData/t/OR-02.t

Timestamp:

11/05/05 17:47:24 (19 years ago)

Author:

thauvin

Message:

• adding loging functions

File:

• trunk/soft/ObsData/t/OR-02.t (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/t/OR-02.t

@@ -2 +2 @@
 # $Id$
 
-use Test::More tests => 4;
+use Test::More tests => 6;
 use File::Temp qw(tempdir);
 use ObsData::Repository;
@@ -13 +13 @@
 
 ok(ObsData::Repository->new(configfile => 'testdata/obsdata-conftest', dir => $td), "Can create object");
-system("rm -fvr $td");
+
+my $odr = ObsData::Repository->new(
+    configfile => 'testdata/obsdata-conftest', dir => $td,
+    sublog => sub { 
+        ok($_[0] eq "INFO", "Log Callback give good loglevel");
+        ok($_[2] eq "LOG MSG", "Log Callback give good message");
+    },
+);
+
+$odr->logmsg('INFO', undef, "LOG %s", 'MSG');
+# DEBUG msg are filtrered, so if more test are run, there is a pb here
+$odr->logmsg('DEBUG', undef, "LOG %s", 'MSG');
+$odr = undef;
+
+system("rm -fr $td");
 }