view release on metacpan or  search on metacpan

t/alters.t  view on Meta::CPAN

);

is(
    $foo->alter_attribute(
        ATTRIBUTE          => "Customer",
        LOCATION           => '\Schema Objects\Attributes\Customer',
        HIDDEN             => "TRUE",
        NEW_NAME           => "Customer Copy",
        DESCRIPTION        => "Customer Copy Description",
        NEW_LOCATION       => '\Schema Objects\Attributes\Customer\Copies',
        REPORTDISPLAYFORMS => [ "ID", "DESC" ],
        BROWSEDISPLAYFORMS => [ "ID", "DESC" ],
        ELEMDISPLAY        => "LIMIT 100",
        SECFILTERSTOELEMBROWSING => "TRUE",
        ENABLEELEMCACHING        => "TRUE",
        PROJECT                  => "MicroStrategy Tutorial"
    ),
'ALTER ATTRIBUTE "Customer" IN FOLDER "\Schema Objects\Attributes\Customer" HIDDEN TRUE NAME "Customer Copy" DESCRIPTION "Customer Copy Description" FOLDER "\Schema Objects\Attributes\Customer\Copies" REPORTDISPLAYFORMS "ID", "DESC" BROWSEDISPLAYFORM...
    "alter_attribute2"
);

is(
    $foo->alter_attribute(
        ATTRIBUTE                => "Day",
        LOCATION                 => '\Schema Objects\Attributes',
        NEW_NAME                 => "Duplicate_Day",
        NEW_LOCATION             => '\Schema Objects\Attributes\Time',
        REPORTDISPLAYFORMS       => "NONE",
        BROWSEDISPLAYFORMS       => ["ID"],
        ELEMDISPLAY              => "UNLOCKED",
        SECFILTERSTOELEMBROWSING => "TRUE",
        ENABLEELEMCACHING        => "TRUE",
        PROJECT                  => "MicroStrategy Tutorial"
    ),
'ALTER ATTRIBUTE "Day" IN FOLDER "\Schema Objects\Attributes" NAME "Duplicate_Day" FOLDER "\Schema Objects\Attributes\Time" REPORTDISPLAYFORMS NONE BROWSEDISPLAYFORMS "ID" ELEMDISPLAY UNLOCKED SECFILTERSTOELEMBROWSING TRUE ENABLEELEMCACHING TRUE FOR ...
    "alter_attribute3"
);

is(
    $foo->alter_attribute_form_expression(
        ATTRIBUTEFORMEXP => "ORDER_DATE",
        MAPPINGMODE      => "AUTOMATIC",
        ATTRIBUTEFORM    => "ID",
        ATTRIBUTE        => "Day",
        LOCATION         => "\\Schema Objects\\Attributes",
        PROJECT          => "MicroStrategy Tutorial"
    ),
'ALTER ATTRIBUTEFORMEXP "ORDER_DATE" MAPPINGMODE AUTOMATIC FOR ATTRIBUTEFORM "ID" FOR ATTRIBUTE "Day" IN FOLDER "\Schema Objects\Attributes" FOR PROJECT "MicroStrategy Tutorial";',
    "alter_attribute_form_expression1"
);

is(
    $foo->alter_attribute_form_expression(
        ATTRIBUTEFORMEXP => "ORDER_DATE",
        MAPPINGMODE      => [ "ORDER_DETAIL", "ORDER_FACT" ],
        ATTRIBUTEFORM    => "ID",
        ATTRIBUTE        => "Day",
        LOCATION         => "\\Schema Objects\\Attributes",
        PROJECT          => "MicroStrategy Tutorial"
    ),
'ALTER ATTRIBUTEFORMEXP "ORDER_DATE" MAPPINGMODE EXPSOURCETABLES "ORDER_DETAIL", "ORDER_FACT" FOR ATTRIBUTEFORM "ID" FOR ATTRIBUTE "Day" IN FOLDER "\Schema Objects\Attributes" FOR PROJECT "MicroStrategy Tutorial";',
    "alter_attribute_form_expression2"
);

is(
    $foo->alter_attribute_form_expression(
        ATTRIBUTEFORMEXP => "ORDER_ID",
        OVERWRITE        => "TRUE",
        LOOKUPTABLE      => "CUSTOMERS",
        MAPPINGMODE      => "AUTOMATIC",
        ATTRIBUTEFORM    => "ID",
        ATTRIBUTE        => "CUSTOMER",
        LOCATION         => '\Schema Objects\Attributes',
        PROJECT          => "MicroStrategy Tutorial"
    ),
'ALTER ATTRIBUTEFORMEXP "ORDER_ID" OVERWRITE LOOKUPTABLE "CUSTOMERS" MAPPINGMODE AUTOMATIC FOR ATTRIBUTEFORM "ID" FOR ATTRIBUTE "CUSTOMER" IN FOLDER "\Schema Objects\Attributes" FOR PROJECT "MicroStrategy Tutorial";',
    "alter_attribute_form_expression3"
);

is(
    $foo->alter_configuration_ace(
        CONF_OBJECT_TYPE         => "SCHEDULE",
        OBJECT_NAME              => "All the time",
        USER_OR_GROUP            => "USER",
        USER_LOGIN_OR_GROUP_NAME => "Developer",
        ACCESSRIGHTS             => "DENIEDALL"
    ),
'ALTER ACE FOR SCHEDULE "All the time" USER "Developer" ACCESSRIGHTS DENIEDALL;',
    "alter_configuration_ace1"
);

is(
    $foo->alter_configuration_ace(
        CONF_OBJECT_TYPE         => "SCHEDULE",
        OBJECT_NAME              => "All the time",
        USER_OR_GROUP            => "USER",
        USER_LOGIN_OR_GROUP_NAME => "Developer",
        ACCESSRIGHTS             => "MODIFY"
    ),
'ALTER ACE FOR SCHEDULE "All the time" USER "Developer" ACCESSRIGHTS MODIFY;',
    "alter_configuration_ace2"
);

is(
    $foo->alter_configuration_ace(
        CONF_OBJECT_TYPE         => "SCHEDULE",
        OBJECT_NAME              => "All the time",
        USER_OR_GROUP            => "USER",
        USER_LOGIN_OR_GROUP_NAME => "Developer",
        ACCESSRIGHTS             => "CUSTOM",
        ACCESSRIGHTS_CUSTOM      => { BROWSE => "DENY", READ => "DENY" }
    ),
'ALTER ACE FOR SCHEDULE "All the time" USER "Developer" ACCESSRIGHTS CUSTOM DENY BROWSE, READ;',
    "alter_configuration_ace3"
);

is(
    $foo->alter_configuration_ace(
        CONF_OBJECT_TYPE         => "SCHEDULE",
        OBJECT_NAME              => "All the time",
        USER_OR_GROUP            => "USER",