[SCM] Packaging of Net::Citadel in Debian branch, debian, updated. debian/0.16-1-45-gd21e85b

Robert James Clay jame at rocasa.us
Wed Jun 5 17:20:31 UTC 2013


The following commit has been merged in the debian branch:
commit b1914f7a24810599db9d78b6f305829747ad1595
Author: Robert James Clay <jame at rocasa.us>
Date:   Sun Oct 21 21:50:14 2012 -0400

    Add testing for citadel_mrtg function to t/01citadel.t

diff --git a/t/01citadel.t b/t/01citadel.t
index f3f0ebc..667af07 100644
--- a/t/01citadel.t
+++ b/t/01citadel.t
@@ -35,6 +35,22 @@ $c->citadel_time and pass ('time');
 my $inforef = $c->citadel_info;
 is_deeply( $#{$inforef}, q{23}, "Expected 0 thru 23 information lines." );
 
+
+my (%mrtg_info, $key_count);
+
+%mrtg_info = $c->citadel_mrtg ('users');
+$key_count = grep { defined } values %mrtg_info;
+TODO: {
+    local $TODO ='Getting undefined when testing?';
+    is( $keycount, q{4}, 'citadel_mrtg returns 4 keys for type users.' );
+}
+%mrtg_info = $c->citadel_mrtg ('messages');
+$key_count = grep { defined } values %mrtg_info;
+TODO: {
+    local $TODO ='Getting undefined when testing?';
+    is( $keycount, q{3}, 'citadel_mrtg returns 3 keys for type messages.' );
+}
+
 # try to get rid of any testing artefacts
 eval {
     $c->retract_room ('ramsti');

-- 
Packaging of Net::Citadel in Debian



More information about the Pkg-perl-cvs-commits mailing list