[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