view release on metacpan or  search on metacpan

t/misc.t  view on Meta::CPAN

#!perl -T

use Test::More;
use strict;
use warnings;

my $tests;

BEGIN {
    $tests = 36;
    plan tests => $tests;
    chdir 't' if -d 't';
    use lib '../lib';
}

use Business::Intelligence::MicroStrategy::CommandManager;
my $foo = Business::Intelligence::MicroStrategy::CommandManager->new();

is(
    $foo->load_project("project_name"),
    'LOAD PROJECT "project_name";',
    "load_project"
);

is(
    $foo->load_projects_cluster(
        PROJECT => "project_name",
        SERVERS => "ALL"
    ),
    'LOAD PROJECT "project_name" TO CLUSTER ALL SERVERS;',
    "load_projects_cluster1"
);

is(
    $foo->load_projects_cluster(
        PROJECT => "project_name",
        SERVERS => [ "server_name1", "server_nameN" ]
    ),
'LOAD PROJECT "project_name" TO CLUSTER SERVERS "server_name1", "server_nameN";',
    "load_projects_cluster2"
);

my $k = $foo->privileges_list( [ "web_analyst", "desktop_designer" ] );
my $p = join( ", ", @$k );
is(
    $p,
'WEBMODIFYGRIDLEVELINDOC, WEBCREATEDERIVEDMETRICS, WEBNUMBERFORMATTING, WEBUSEREPORTOBJECTSWINDOW, WEBUSEVIEWFILTEREDITOR, WEBADDTOHISTORYLIST, WEBADVANCEDDRILLING, WEBALIASOBJECTS, WEBCHOOSEATTRFORMDISPLAY, WEBCONFIGURETOOLBARS, WEBCREATEFILELOCATIO...
    "privileges_list"
);

is(
    $foo->lock_configuration("FORCE"),
    'LOCK CONFIGURATION FORCE;',
    "lock_configuration"
);

is(
    $foo->lock_project(
        PROJECT => "project_name",
        FORCE   => "TRUE"
    ),
    'LOCK PROJECT "project_name" FORCE;',
    "lock_project"
);

is(
    $foo->log_event(
        MESSAGE => "event_message",
        TYPE    => "ERROR"
    ),
    'LOG EVENT "event_message" TYPE ERROR;',
    "log_event"
);

is(
    $foo->purge_caching(
        TYPE    => "REPORT",
        PROJECT => "project_name"
    ),
    'PURGE REPORT CACHING IN PROJECT "project_name";',
    "purge_caching"
);

is(
    $foo->purge_statistics(
        START_DATE => "start_date",
        END_DATE   => "end_date",
        TIMEOUT    => "seconds"
    ),
    'PURGE STATISTICS FROM start_date TO end_date TIMEOUT seconds;',
    "purge_statistics"
);

is(
    $foo->register_project(
        PROJECT  => "project_name",
        AUTOLOAD => "FALSE"
    ),
    'REGISTER PROJECT "project_name" NOAUTOLOAD;',
    "register_project"
);

is(