view release on metacpan or  search on metacpan

t/70_stats_object_parameters.t  view on Meta::CPAN

#! perl
use strict;
use warnings;

BEGIN {
  ## Make sure we don't connect to our real DB if we
  ## have given the credentials for it
  $ENV{'DRUPAL_IGNORE_TEST_CREDS'} = 1;
}

use Test::More tests => 14;

use CMS::Drupal;
use CMS::Drupal::Modules::MembershipEntity;
use CMS::Drupal::Modules::MembershipEntity::Test;

my $drupal = CMS::Drupal->new;
my $dbh    = build_test_db( $drupal );
my $ME     = CMS::Drupal::Modules::MembershipEntity->new( dbh => $dbh );

use_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats' );
can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'new' );
my $Stats = CMS::Drupal::Modules::MembershipEntity::Stats->new( dbh => $dbh );
isa_ok( $Stats, 'CMS::Drupal::Modules::MembershipEntity::Stats' );

can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'count_total_memberships');
can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'count_expired_memberships');
can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'count_active_memberships');
can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'count_cancelled_memberships');
can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'count_pending_memberships');
can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'count_set_were_renewal_memberships');
can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'count_daily_term_expirations');
can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'count_daily_term_activations');
can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'count_daily_new_memberships');
can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'count_daily_new_terms');
can_ok( 'CMS::Drupal::Modules::MembershipEntity::Stats', 'count_daily_active_memberships');

__END__