class AcquiaLiftWebTestTarget in Acquia Lift Connector 7.2

Hierarchy

• class \DrupalTestCase
  • class \DrupalWebTestCase
    • class \AcquiaLiftWebTestBase
      • class \AcquiaLiftWebTestTarget

File

tests/acquia_lift.test, line 1639

Integration tests for Acquia Lift module.

class AcquiaLiftWebTestTarget extends AcquiaLiftWebTestBase {
  public static function getInfo() {
    return array(
      'name' => t('Acquia Lift Web Tests - Target'),
      'description' => t('Tests functionality related acquia_lift_target personalizations.'),
      'group' => t('Personalize'),
    );
  }
  public function setUp() {
    parent::setUp();
    $this
      ->configureAcquiaLiftAccount();
  }
  function testCreateTargetAudiences() {
    module_load_include('inc', 'acquia_lift', 'acquia_lift.admin');
    $agent = $this
      ->createTargetingAgent();
    $this
      ->resetAll();
    $label = $this
      ->randomName();
    $contexts = array(
      array(
        'context' => implode(PERSONALIZE_TARGETING_ADMIN_SEPARATOR, array(
          'some_plugin',
          'some_context',
        )),
        'operator' => 'contains',
        'match' => 'ohai',
      ),
      array(
        'context' => implode(PERSONALIZE_TARGETING_ADMIN_SEPARATOR, array(
          'some_plugin',
          'some_other_context',
        )),
        'operator' => 'starts',
        'match' => 'stuff',
      ),
      array(
        'context' => implode(PERSONALIZE_TARGETING_ADMIN_SEPARATOR, array(
          'some_other_plugin',
          'some_context',
        )),
        'operator' => 'equals',
        'match' => 'kthxbai',
      ),
    );

    // Try saving a target audience without having created an option set.
    $saved = acquia_lift_target_audience_save($label, $agent->machine_name, $contexts, 'AND');
    $this
      ->assertFalse($saved);

    // Now create an option set for the agent.
    $this
      ->createOptionSet(0, array(
      'plugin' => 'blocks',
      'agent' => $agent->machine_name,
      'option_ids' => array(
        'first-choice',
        'second-choice',
        'third-choice',
      ),
    ));
    $this
      ->resetAll();

    // The "everyone else" target audience should have been created.
    $option_set = acquia_lift_get_option_set_for_targeting($agent->machine_name);
    $this
      ->assertTrue(isset($option_set->targeting[ACQUIA_LIFT_TARGETING_EVERYONE_ELSE]));

    // There should not be any targeting set to the agent property yet.
    $agent = personalize_agent_load($agent->machine_name);
    $this
      ->assertFalse(isset($agent->data['lift_targeting']));

    // Add the option set options to the everyone audience.
    $targeting = array(
      ACQUIA_LIFT_TARGETING_EVERYONE_ELSE => array(
        'first-choice',
        'second-choice',
        'third-choice',
      ),
    );
    acquia_lift_save_targeting_structure($agent, $targeting);
    $agent = personalize_agent_load($agent->machine_name);
    $this
      ->assertEqual($targeting, $agent->data['lift_targeting']);
    $saved = acquia_lift_target_audience_save($label, $agent->machine_name, $contexts, 'AND');
    $this
      ->assertTrue($saved);

    // Check that the expected targeting rules were saved on the option set.
    $option_set = personalize_option_set_load($option_set->osid, TRUE);
    $this
      ->assertNotNull($option_set->targeting);
    $audience_name = personalize_generate_machine_name($label, NULL, '-');
    $expected_targeting = array(
      ACQUIA_LIFT_TARGETING_EVERYONE_ELSE => array(
        'label' => t('Everyone else'),
        'weight' => 1,
        'targeting_features' => array(),
        'targeting_rules' => array(),
        'targeting_strategy' => 'OR',
      ),
      $audience_name => array(
        'label' => $label,
        'weight' => 50,
        'targeting_features' => array(
          'some_context::sc-ohai',
          'some_other_context::ss-stuff',
          'some_context::kthxbai',
        ),
        'targeting_rules' => array(
          'some_context::sc-ohai' => array(
            'context' => 'some_context',
            'operator' => 'contains',
            'match' => 'ohai',
            'plugin' => 'some_plugin',
          ),
          'some_other_context::ss-stuff' => array(
            'context' => 'some_other_context',
            'operator' => 'starts',
            'match' => 'stuff',
            'plugin' => 'some_plugin',
          ),
          'some_context::kthxbai' => array(
            'context' => 'some_context',
            'operator' => 'equals',
            'match' => 'kthxbai',
            'plugin' => 'some_other_plugin',
          ),
        ),
        'targeting_strategy' => 'AND',
      ),
    );
    $this
      ->assertEqual($expected_targeting, $option_set->targeting);

    // Add another audience.
    $label = $this
      ->randomName();
    $contexts = array(
      array(
        'context' => implode(PERSONALIZE_TARGETING_ADMIN_SEPARATOR, array(
          'boolean_plugin',
          'some_context',
        )),
        'operator' => 'equals',
        'match' => 1,
      ),
      array(
        'context' => implode(PERSONALIZE_TARGETING_ADMIN_SEPARATOR, array(
          'boolean_plugin',
          'some_other_context',
        )),
        'operator' => 'equals',
        'match' => '0',
      ),
    );
    $this
      ->resetAll();
    $saved = acquia_lift_target_audience_save($label, $agent->machine_name, $contexts, 'OR', 60);
    $this
      ->assertTrue($saved);
    $option_set = personalize_option_set_load($option_set->osid, TRUE);
    $audience_names = array_keys($option_set->targeting);
    $expected_targeting[$audience_names[2]] = array(
      'label' => $label,
      'weight' => 60,
      'targeting_features' => array(
        'some_context::1',
        'some_other_context::0',
      ),
      'targeting_rules' => array(
        'some_context::1' => array(
          'context' => 'some_context',
          'operator' => 'equals',
          'match' => '1',
          'plugin' => 'boolean_plugin',
        ),
        'some_other_context::0' => array(
          'context' => 'some_other_context',
          'operator' => 'equals',
          'match' => '0',
          'plugin' => 'boolean_plugin',
        ),
      ),
      'targeting_strategy' => 'OR',
    );
    $this
      ->assertEqual($expected_targeting, $option_set->targeting);
  }
  function testAudienceName() {
    module_load_include('inc', 'acquia_lift', 'acquia_lift.admin');
    $agent = $this
      ->createTargetingAgent();
    $this
      ->resetAll();

    // Now create an option set for the agent.
    $this
      ->createOptionSet(0, array(
      'plugin' => 'blocks',
      'agent' => $agent->machine_name,
      'option_ids' => array(
        'first-choice',
        'second-choice',
        'third-choice',
      ),
    ));
    $this
      ->resetAll();

    // Give the audience a numeric label
    $label = 1;
    $contexts = array(
      array(
        'context' => implode(PERSONALIZE_TARGETING_ADMIN_SEPARATOR, array(
          'some_plugin',
          'some_context',
        )),
        'operator' => 'contains',
        'match' => 'ohai',
      ),
    );
    acquia_lift_target_audience_save($label, $agent->machine_name, $contexts, 'AND');
    $this
      ->resetAll();
    $option_set = acquia_lift_get_option_set_for_targeting($agent->machine_name);
    $this
      ->assertTrue(isset($option_set->targeting["audience-1"]));

    // Confirm that a pre-existing audience with a numeric name is unaffected.
    $option_set->targeting[2] = array(
      'label' => 2,
      'weight' => 49,
      'targeting_features' => array(
        0 => 'some_context::sc-ohai',
      ),
      'targeting_rules' => array(
        'some_context::sc-ohai' => array(
          'context' => 'some_context',
          'operator' => 'starts',
          'match' => 'srsly',
          'plugin' => 'some_plugin',
        ),
      ),
      'option_id' => 'second-choice',
    );
    personalize_option_set_save($option_set);
    acquia_lift_target_audience_save(2, $agent->machine_name, $contexts, 'AND', 49, 2);
    $this
      ->resetAll();
    $option_set = acquia_lift_get_option_set_for_targeting($agent->machine_name);
    $this
      ->assertFalse(isset($option_set->targeting["audience-2"]));
    $this
      ->assertTrue(isset($option_set->targeting[2]));
  }
  function testAssignVariations() {
    module_load_include('inc', 'acquia_lift', 'acquia_lift.admin');
    $agent = $this
      ->createTargetingAgent();
    $this
      ->assertFalse(isset($agent->data['lift_targeting']));
    $this
      ->resetAll();
    $option_set = $this
      ->createOptionSet(0, array(
      'plugin' => 'blocks',
      'agent' => $agent->machine_name,
      'option_ids' => array(
        'first-choice',
        'second-choice',
        'third-choice',
      ),
    ));
    $this
      ->resetAll();

    // The everyone else audience should have been created automatically.
    // Now assign the initial variations to it.
    $targeting = array(
      ACQUIA_LIFT_TARGETING_EVERYONE_ELSE => array(
        'first-choice',
        'second-choice',
        'third-choice',
      ),
    );
    acquia_lift_save_targeting_structure($agent, $targeting);
    $agent = personalize_agent_load($agent->machine_name);
    $this
      ->assertEqual($agent->data['lift_targeting'], $targeting);

    // Try to set up targeting with a non-existent audience.
    $audience_name = personalize_generate_machine_name($this
      ->randomName(), NULL, '-');
    $targeting = array(
      $audience_name => array(
        'second-choice',
        'third-choice',
      ),
      ACQUIA_LIFT_TARGETING_EVERYONE_ELSE => array(
        'first-choice',
      ),
    );
    try {
      acquia_lift_save_targeting_structure($agent, $targeting);
      $this
        ->fail('Should not reach here');
    } catch (AcquiaLiftException $e) {
      $this
        ->assertEqual('Invalid audience', $e
        ->getMessage());
    }

    // Now create the audience and try again.
    $this
      ->createTargetAudience($option_set, $audience_name);
    $this
      ->resetAll();
    try {
      acquia_lift_save_targeting_structure($agent, $targeting);
    } catch (AcquiaLiftException $e) {
      $this
        ->fail('Exception thrown when none expected.');
    }
    $this
      ->assertEqual($targeting, $agent->data['lift_targeting']);

    // Now delete the option set and re-add to add the new audience but not
    // the targeting variations.
    personalize_option_set_delete($option_set->osid);
    $agent->data['lift_targeting'] = array();
    $agent = personalize_agent_save($agent);
    $this
      ->resetAll();
    $option_set = $this
      ->createOptionSet(1, array(
      'plugin' => 'blocks',
      'agent' => $agent->machine_name,
      'option_ids' => array(
        'first-choice',
        'second-choice',
        'third-choice',
      ),
    ));

    // Verify that there is no targeting on the campaign.
    $agent = personalize_agent_load($agent->machine_name, TRUE);
    $this
      ->assertEqual($agent->data['lift_targeting'], array());

    // Verify that the everyone else audience has been added.
    $option_set = personalize_option_set_load($option_set->osid);
    $expected = array(
      ACQUIA_LIFT_TARGETING_EVERYONE_ELSE => array(
        'label' => t('Everyone'),
        'weight' => 1,
        'targeting_features' => array(),
        'targeting_rules' => array(),
        'targeting_strategy' => 'OR',
      ),
    );
    $this
      ->assertEqual($option_set->targeting, $expected);
  }
  function testImplementTargetingStructure() {
    module_load_include('inc', 'acquia_lift', 'acquia_lift.admin');

    // Take stock of the current time so we can check the lift_retired property
    // against it after retiring tests.
    $now = time();

    // First, set up our agent, option set, audience and desired targeting
    // structure.
    $agent = $this
      ->createTargetingAgent();

    // Set up some test options for nested tests.
    $agent->data['explore_rate'] = 25;
    $agent->data['control_rate'] = 25;
    $agent->data['decision_style'] = 'adaptive';
    $agent->data['cache_decisions'] = 1;
    personalize_agent_save($agent);
    $this
      ->resetAll();
    $parent_option_set = $this
      ->createPersonalizedBlock(0, $agent, 3);
    if (empty($parent_option_set)) {
      $this
        ->fail('Could not create option set');
      return;
    }

    // Keep the option ids in an array.
    $option_ids = array();
    foreach ($parent_option_set->options as $option) {
      $option_ids[] = $option['option_id'];
    }
    $this
      ->resetAll();
    $audience_name = personalize_generate_machine_name($this
      ->randomName(), NULL, '-');
    $this
      ->createTargetAudience($parent_option_set, $audience_name);
    $targeting = array(
      $audience_name => array(
        $option_ids[1],
        $option_ids[2],
      ),
    );
    try {
      acquia_lift_save_targeting_structure($agent, $targeting);
    } catch (AcquiaLiftException $e) {
      $this
        ->fail('Exception thrown when none expected.');
    }

    // Now implement the targeting structure that is currently just stored in
    // the 'lift_targeting' property.
    AcquiaLiftAPI::setTestInstance();
    acquia_lift_implement_targeting($agent);

    // We should have a new nested acquia_lift agent and option set.
    $this
      ->resetAll();
    $agents = personalize_agent_load_by_type(self::$agent_plugin);
    $this
      ->assertEqual(1, count($agents));
    $nested_agent = reset($agents);
    $nested_test_name = $nested_agent->machine_name;

    // Confirm the test options properties were set.
    $this
      ->assertEqual($nested_agent->data['decision_style'], 'adaptive');
    $this
      ->assertEqual($nested_agent->data['control_rate'], 25);
    $this
      ->assertEqual($nested_agent->data['explore_rate'], 25);
    $this
      ->assertEqual($nested_agent->data['cache_decisions'], 1);
    $option_sets = personalize_option_set_load_by_agent($nested_agent->machine_name);
    $this
      ->assertEqual(1, count($option_sets));
    $nested_osid = key($option_sets);
    $nested_option_set = reset($option_sets);
    $this
      ->assertEqual('options', $nested_option_set->plugin);

    // Confirm the correct options have been added.
    $expected_options = array(
      array(
        'option_id' => $option_ids[1],
      ),
      array(
        'option_id' => $option_ids[2],
      ),
    );
    $this
      ->assertEqual($expected_options, $nested_option_set->options);

    // Confirm this osid is on the original option set's targeting rule for that
    // audience.
    $parent_option_set = personalize_option_set_load($parent_option_set->osid, TRUE);
    $this
      ->assertEqual($nested_osid, $parent_option_set->targeting[$audience_name]['osid']);

    // Create a new target audience and change the structure of our campaign.
    $second_audience = personalize_generate_machine_name($this
      ->randomName(), NULL, '-');
    $this
      ->createTargetAudience($parent_option_set, $second_audience, array(
      array(
        'context' => implode(PERSONALIZE_TARGETING_ADMIN_SEPARATOR, array(
          'some_plugin',
          'some_context',
        )),
        'operator' => 'equals',
        'match' => 'kthxbai',
      ),
    ));
    $targeting = array(
      $audience_name => array(
        $option_ids[2],
      ),
      $second_audience => array(
        $option_ids[0],
        $option_ids[1],
      ),
    );

    // Update the test options.
    $agent->data['explore_rate'] = 35;
    $agent->data['cache_decisions'] = 0;
    personalize_agent_save($agent);
    try {
      acquia_lift_save_targeting_structure($agent, $targeting);
    } catch (AcquiaLiftException $e) {
      $this
        ->fail('Exception thrown when none expected.');
    }
    $this
      ->resetAll();

    // When we implement the new structure it should retire the existing nested
    // test and create a new one.
    AcquiaLiftAPI::setTestInstance();
    acquia_lift_implement_targeting($agent);
    $this
      ->resetAll();
    $parent_option_set = personalize_option_set_load($parent_option_set->osid, TRUE);
    $this
      ->assertFalse(isset($parent_option_set->targeting[$audience_name]['osid']));
    $this
      ->assertNotEqual($nested_osid, $parent_option_set->targeting[$second_audience]['osid']);
    $retired = acquia_lift_get_retired_tests($agent->machine_name);
    $this
      ->assertEqual(1, count($retired));

    // Load the original nested agent and confirm it has been retired.
    $retired_test = personalize_agent_load($nested_test_name, TRUE);
    $this
      ->assertTrue($retired_test->data['lift_retired'] >= $now);
    $this
      ->assertEqual($agent->machine_name, $retired_test->data['lift_parent']);
    $this
      ->assertEqual($audience_name, $retired_test->data['lift_audience']);
    $status = personalize_agent_get_status($nested_test_name);
    $this
      ->assertEqual(PERSONALIZE_STATUS_COMPLETED, $status);

    // Check the new agent and option set.
    $nested_os = personalize_option_set_load($parent_option_set->targeting[$second_audience]['osid'], TRUE);
    $nested_agent = personalize_agent_load($nested_os->agent);

    // Confirm the test options properties were set.
    $this
      ->assertEqual($nested_agent->data['decision_style'], 'adaptive');
    $this
      ->assertEqual($nested_agent->data['control_rate'], 25);
    $this
      ->assertEqual($nested_agent->data['explore_rate'], 35);
    $this
      ->assertEqual($nested_agent->data['cache_decisions'], 1);
    $option_sets = personalize_option_set_load_by_agent($nested_agent->machine_name);
    $this
      ->assertEqual(1, count($option_sets));
    $nested_osid = key($option_sets);
    $nested_option_set = reset($option_sets);
    $this
      ->assertEqual('options', $nested_option_set->plugin);

    // Confirm the correct options have been added.
    $expected_options = array(
      array(
        'option_id' => $option_ids[0],
      ),
      array(
        'option_id' => $option_ids[1],
      ),
    );
    $this
      ->assertEqual($expected_options, $nested_option_set->options);

    // Confirm this osid is on the original option set's targeting rule for that
    // audience.
    $parent_option_set = personalize_option_set_load($parent_option_set->osid, TRUE);
    $this
      ->assertEqual($nested_osid, $parent_option_set->targeting[$second_audience]['osid']);

    // This audience should not have an option id property.
    $this
      ->assertFalse(isset($parent_option_set->targeting[$second_audience]['option_id']));

    // Confirm the option_id property is now on the original audience.
    $first_audience = $audience_name . '-2';

    // Machine name will have changed.
    $this
      ->assertEqual($option_ids[2], $parent_option_set->targeting[$first_audience]['option_id']);

    // It should no longer have an osid property.
    $this
      ->assertFalse(isset($parent_option_set->targeting[$first_audience]['osid']));

    // Now let's place our personalized block so we can test how it gets rendered.
    $admin_user = $this
      ->drupalCreateUser(array(
      'access administration pages',
      'manage personalized content',
      'administer blocks',
    ));
    $this
      ->drupalLogin($admin_user);
    $edit = array(
      'blocks[personalize_blocks_' . $parent_option_set->osid . '][region]' => 'content',
    );
    $this
      ->drupalPost('admin/structure/block', $edit, t('Save blocks'));
    $this
      ->drupalLogout();
    $this
      ->drupalGet('');
    $settings = $this
      ->drupalGetSettings();

    // THe parent agent and option set should be in the personalize js settings.
    $this
      ->assertTrue(isset($settings['personalize']['agent_map'][$agent->machine_name]));
    $this
      ->assertTrue(isset($settings['personalize']['option_sets']['osid-' . $parent_option_set->osid]));

    // The nested agent and option set should *not* be in the personlaize js settings.
    $this
      ->assertFalse(isset($settings['personalize']['agent_map'][$nested_agent->machine_name]));
    $this
      ->assertFalse(isset($settings['personalize']['option_sets']['osid-' . $nested_osid]));

    // The nested agent and option set should be in the acquia_lift_target js settings.
    $this
      ->assertTrue(isset($settings['acquia_lift_target']['agent_map'][$nested_agent->machine_name]));
    $this
      ->assertTrue(isset($settings['acquia_lift_target']['option_sets']['osid-' . $nested_osid]));

    // The parent agent and option set should *not* be in the acquia_lift_target js settings.
    $this
      ->assertFalse(isset($settings['acquia_lift_target']['agent_map'][$agent->machine_name]));
    $this
      ->assertEqual(1, count($settings['acquia_lift_target']['option_sets']));

    // Change the targeting structure again to have two nested tests.
    $targeting = array(
      $first_audience => array(
        $option_ids[0],
        $option_ids[1],
      ),
      $second_audience => array(
        $option_ids[0],
        $option_ids[2],
      ),
    );

    // Update another test option too.
    $agent->data['control_rate'] = 50;
    personalize_agent_save($agent);
    try {
      acquia_lift_save_targeting_structure($agent, $targeting);
    } catch (AcquiaLiftException $e) {
      $this
        ->fail('Exception thrown when none expected.');
    }
    $this
      ->resetAll();

    // When we implement the new structure it should retire one test and create
    // two new tests.
    AcquiaLiftAPI::setTestInstance();
    acquia_lift_implement_targeting($agent);
    $this
      ->resetAll();
    $retired = acquia_lift_get_retired_tests($agent->machine_name);
    $this
      ->assertEqual(2, count($retired));

    // Both audiences' names will have changed.
    $first_audience = $first_audience . '-2';
    $second_audience = $second_audience . '-2';

    // We should have two nested agents each with one option set.
    $nested = acquia_lift_get_nested_tests($agent);
    $this
      ->assertEqual(2, count($nested));
    $nested_agents = personalize_agent_load_multiple($nested);

    // Find the osids of the new option sets so we can check they've been assigned
    // to the correct audiences.
    $new_osids = array();
    foreach ($nested_agents as $test) {

      // Verify the test options.
      // Confirm the test options properties were set.
      $this
        ->assertEqual($test->data['decision_style'], 'adaptive');
      $this
        ->assertEqual($test->data['control_rate'], 50);
      $this
        ->assertEqual($test->data['explore_rate'], 35);
      $this
        ->assertEqual($test->data['cache_decisions'], 1);
      $os = personalize_option_set_load_by_agent($test->machine_name);

      // Check the option ids to ascertain which audience the option set *should*
      // be assigned to.
      $o = reset($os);
      $ids = array_map(function ($option) {
        return $option['option_id'];
      }, $o->options);
      if (in_array('option-3', $ids)) {
        $new_osids[$second_audience] = $o->osid;
      }
      else {
        $new_osids[$first_audience] = $o->osid;
      }
    }

    // Confirm that the correct osid is assigned to each of the two target
    // audiences.
    $parent_option_set = personalize_option_set_load($parent_option_set->osid, TRUE);
    $this
      ->assertEqual(3, count($parent_option_set->targeting));
    foreach ($new_osids as $audience => $osid) {
      $this
        ->assertEqual($osid, $parent_option_set->targeting[$audience]['osid']);
      $this
        ->assertFalse(isset($parent_option_set->targeting[$audience]['option_id']));
    }
  }
  function testStopAndPickWinner() {

    // Take stock of the current time so we can check the lift_retired property
    // against it after retiring tests.
    $now = time();
    $agent = $this
      ->createTargetingAgentWithNestedTest(3);
    $this
      ->resetAll();
    $option_sets = personalize_option_set_load_by_agent($agent->machine_name);
    $option_set = reset($option_sets);
    $nested_osid = $option_set->targeting[ACQUIA_LIFT_TARGETING_EVERYONE_ELSE]['osid'];
    $nested_os = personalize_option_set_load($nested_osid);
    $nested_agent_name = $nested_os->agent;
    $expected_targeting = array(
      ACQUIA_LIFT_TARGETING_EVERYONE_ELSE => array(
        'label' => 'Everyone',
        'weight' => 1,
        'targeting_features' => array(),
        'targeting_rules' => array(),
        'targeting_strategy' => 'OR',
        'osid' => $nested_osid,
      ),
    );
    $this
      ->assertEqual($expected_targeting, $option_set->targeting);
    $this
      ->drupalLogin($this->managerUser);
    $this
      ->drupalGet('admin/structure/personalize');
    $this
      ->assertNoLinkByHref('admin/structure/personalize/manage/' . $nested_agent_name . '/delete-all');
    $this
      ->assertText('Test only');
    acquia_lift_stop_test_for_audience($agent, ACQUIA_LIFT_TARGETING_EVERYONE_ELSE, 'option-2');
    $this
      ->resetAll();
    $option_set = personalize_option_set_load($option_set->osid, TRUE);
    $expected_targeting = array(
      ACQUIA_LIFT_TARGETING_EVERYONE_ELSE => array(
        'label' => 'Everyone',
        'weight' => 1,
        'targeting_features' => array(),
        'targeting_rules' => array(),
        'targeting_strategy' => 'OR',
        'option_id' => 'option-2',
      ),
    );
    $this
      ->assertEqual($expected_targeting, $option_set->targeting);
    $retired_test = personalize_agent_load($nested_agent_name, TRUE);
    $this
      ->assertTrue($retired_test->data['lift_retired'] >= $now);
    $this
      ->assertEqual($agent->machine_name, $retired_test->data['lift_parent']);
    $this
      ->assertEqual(ACQUIA_LIFT_TARGETING_EVERYONE_ELSE, $retired_test->data['lift_audience']);
    $status = personalize_agent_get_status($nested_agent_name);
    $this
      ->assertEqual(PERSONALIZE_STATUS_COMPLETED, $status);
    $this
      ->drupalGet('admin/structure/personalize');
    $date = date('Y-m-d');
    $this
      ->assertText("(retired test) {$agent->label}: Everyone (Completed {$date})");
    $this
      ->assertLinkByHref('admin/structure/personalize/manage/' . $nested_agent_name . '/delete-all');
    $this
      ->assertNoText('Test only');

    // Now delete the retired test.
    $this
      ->drupalGet('admin/structure/personalize/manage/' . $nested_agent_name . '/delete-all');
    $this
      ->assertText("Are you sure you want to delete the test {$agent->label}: Everyone (Completed {$date})?");
    $this
      ->drupalPost(NULL, array(), t('Delete'));

    // Confirm both the option set and test have been deleted.
    $nested_os = personalize_option_set_load($nested_osid, TRUE);
    $this
      ->assertFalse($nested_os);
    $nested_test = personalize_agent_load($nested_agent_name, TRUE);
    $this
      ->assertNull($nested_test);

    // Confirm that this has had no effect on the targeting for the parent agent.
    $option_set = personalize_option_set_load($option_set->osid, TRUE);
    $this
      ->assertEqual($expected_targeting, $option_set->targeting);

    // Create another personalization with a test and this time stop the test
    // without specifying a winner.
    $agent = $this
      ->createTargetingAgentWithNestedTest(3, 1);
    $this
      ->resetAll();
    $option_sets = personalize_option_set_load_by_agent($agent->machine_name);
    $option_set = reset($option_sets);
    $this
      ->assertTrue(isset($option_set->targeting[ACQUIA_LIFT_TARGETING_EVERYONE_ELSE]['osid']));
    $this
      ->assertFalse(isset($option_set->targeting[ACQUIA_LIFT_TARGETING_EVERYONE_ELSE]['option_id']));
    acquia_lift_stop_test_for_audience($agent, ACQUIA_LIFT_TARGETING_EVERYONE_ELSE);
    $this
      ->resetAll();
    $option_set = personalize_option_set_load($option_set->osid, TRUE);
    $this
      ->assertFalse(isset($option_set->targeting[ACQUIA_LIFT_TARGETING_EVERYONE_ELSE]['osid']));

    // The first option should now be assigned to the audience.
    $this
      ->assertEqual('option-1', $option_set->targeting[ACQUIA_LIFT_TARGETING_EVERYONE_ELSE]['option_id']);
  }
  function testNestedAgentSettings() {
    $agent = $this
      ->createTargetingAgentWithNestedTest();
    personalize_agent_set_status($agent->machine_name, PERSONALIZE_STATUS_RUNNING);
    $this
      ->resetAll();
    $option_sets = personalize_option_set_load_by_agent($agent->machine_name);
    $option_set = reset($option_sets);
    $this
      ->drupalGet('');
    $settings = $this
      ->drupalGetSettings();
    $this
      ->assertTrue(isset($settings['acquia_lift_target']['nested_tests']));
    $sub_agent = $agent->machine_name . '-test';
    $expected = array(
      $agent->machine_name => array(
        $sub_agent => $sub_agent,
      ),
    );
    $this
      ->assertEqual($settings['acquia_lift_target']['nested_tests'], $expected);
    $this
      ->assertEqual($settings['acquia_lift']['api_class'], 'acquiaLiftAPI');
    $this
      ->assertEqual($settings['acquia_lift_learn']['baseUrl'], 'http://api.example.com');

    // Now let's place our personalized block and confirm that the settings are
    // still as they should be.
    $admin_user = $this
      ->drupalCreateUser(array(
      'access administration pages',
      'manage personalized content',
      'administer blocks',
    ));
    $this
      ->drupalLogin($admin_user);
    $edit = array(
      'blocks[personalize_blocks_' . $option_set->osid . '][region]' => 'content',
    );
    $this
      ->drupalPost('admin/structure/block', $edit, t('Save blocks'));
    $this
      ->drupalLogout();
    $this
      ->drupalGet('');
    $settings = $this
      ->drupalGetSettings();
    $this
      ->assertTrue(isset($settings['acquia_lift_target']['nested_tests']));
    $sub_agent = $agent->machine_name . '-test';
    $expected = array(
      $agent->machine_name => array(
        $sub_agent => $sub_agent,
      ),
    );
    $this
      ->assertEqual($settings['acquia_lift_target']['nested_tests'], $expected);
    $this
      ->assertEqual($settings['acquia_lift']['api_class'], 'acquiaLiftAPI');
    $this
      ->assertEqual($settings['acquia_lift_learn']['baseUrl'], 'http://api.example.com');
  }
  function testNestedAgentAssets() {
    $agent = $this
      ->createTargetingAgentWithNestedTest();

    // Create a view event on a new page (that doesn't include any other
    // personalization).
    $node = $this
      ->drupalCreateNode();
    $action_name = $this
      ->randomName();
    $machine_name = preg_replace('/[^a-z0-9_]+/', '_', drupal_strtolower($action_name));
    $action = array(
      'plugin' => 'page',
      'label' => $action_name,
      'machine_name' => $machine_name,
      'identifier' => '',
      'event' => 'client::view',
      'pages' => 'node/' . $node->nid,
      'data' => array(),
    );
    visitor_actions_save_action($action);
    personalize_goal_save($agent->machine_name, $action_name, 1);

    // Start the campaign.
    personalize_agent_set_status($agent->machine_name, PERSONALIZE_STATUS_RUNNING);
    $this
      ->resetAll();

    // Load the goals page and ensure that the nested test agent assets have
    // been loaded.
    $this
      ->drupalGet('node/' . $node->nid);
    $settings = $this
      ->drupalGetSettings();
    $this
      ->assertTrue(!empty($settings['acquia_lift']));
  }
  function testNestedAgentStatus() {
    $agent_with_nesting = $this
      ->createTargetingAgentWithNestedTest();
    $this
      ->resetAll();

    // The status for each should be not started.
    $parent_status = personalize_agent_get_status($agent_with_nesting->machine_name);
    $this
      ->assertEqual(PERSONALIZE_STATUS_NOT_STARTED, $parent_status);
    $nested = acquia_lift_get_nested_tests($agent_with_nesting);
    $nested_agent_name = reset($nested);
    $child_status = personalize_agent_get_status($nested_agent_name);
    $this
      ->assertEqual(PERSONALIZE_STATUS_NOT_STARTED, $child_status);

    // Setting the status of the parent should result in the same status being
    // set on the child.
    personalize_agent_set_status($agent_with_nesting->machine_name, PERSONALIZE_STATUS_RUNNING);
    $this
      ->resetAll();
    $parent_status = personalize_agent_get_status($agent_with_nesting->machine_name);
    $this
      ->assertEqual(PERSONALIZE_STATUS_RUNNING, $parent_status);
    $child_status = personalize_agent_get_status($nested_agent_name);
    $this
      ->assertEqual(PERSONALIZE_STATUS_RUNNING, $child_status);
  }
  function testNestedAgentDeletion() {
    $agent_with_nesting = $this
      ->createTargetingAgentWithNestedTest(2);

    // Add another option set and make it lock-step.
    $agent_with_nesting->data['variation_set_handling'] = ACQUIA_LIFT_DECISION_LOCKSTEP;
    $second_os = $this
      ->createOptionSet(1, array(
      'agent' => $agent_with_nesting->machine_name,
      'plugin' => 'some_plugin',
      'num_options' => 2,
    ));
    AcquiaLiftAPI::setTestInstance();
    acquia_lift_implement_targeting($agent_with_nesting);
    $this
      ->resetAll();

    // Confirm the nested test has been created as expected.
    $nested_tests = acquia_lift_get_nested_tests($agent_with_nesting);
    $nested_agent_name = reset($nested_tests);
    $nested_agent = personalize_agent_load($nested_agent_name, TRUE);
    $this
      ->assertNotNull($nested_agent);
    $nested_os = personalize_option_set_load_by_agent($nested_agent_name);
    $this
      ->assertEqual(1, count($nested_os));
    $nested_os = reset($nested_os);
    $this
      ->assertNotNull($nested_os);
    DummyAcquiaLiftHttpClient::clearLoggedRequests();
    AcquiaLiftAPI::setTestInstance();
    personalize_option_set_delete($second_os->osid);
    $this
      ->resetAll();
    $requests = DummyAcquiaLiftHttpClient::getLoggedRequests();
    $this
      ->assertEqual(array(), $requests);

    // Confirm the agent still exists.
    $nested_agent = personalize_agent_load($nested_agent_name, TRUE);
    $this
      ->assertNotNull($nested_agent);

    // Now delete the remaining option set.
    $option_set = acquia_lift_get_option_set_for_targeting($agent_with_nesting->machine_name);
    personalize_option_set_delete($option_set->osid);
    $this
      ->resetAll();
    $requests = DummyAcquiaLiftHttpClient::getLoggedRequests();
    $this
      ->assertEqual('delete', $requests[0]['type']);
    $pattern = preg_quote("http://api.example.com/campaigns/{$nested_agent_name}?request_id=", '#') . '[a-zA-Z0-9-_]*' . preg_quote('&client_id=test-api-key', '#');
    $this
      ->assertTrue(preg_match("#{$pattern}#", $requests[0]['uri']));
    $nested_agent = personalize_agent_load($nested_agent_name, TRUE);
    $this
      ->assertNull($nested_agent);
    $nested_os = personalize_option_set_load_by_agent($nested_agent_name, TRUE);
    $this
      ->assertEqual(0, count($nested_os));
  }

  /**
   * Tests which components of a campaign are editable when the depending on
   * agent status.
   */
  function testAgentEditable() {
    $this
      ->drupalLogin($this->managerUser);
    $agent = $this
      ->createTargetingAgent();
    $option_set = $this
      ->createOptionSet(0, array(
      'plugin' => 'blocks',
      'agent' => $agent->machine_name,
      'option_ids' => array(
        'first-choice',
        'second-choice',
        'third-choice',
      ),
    ));
    $this
      ->resetAll();

    // Load the automatic goal for reference.
    $goals = personalize_goal_load_by_conditions(array(
      'agent' => $agent->machine_name,
    ));
    $this
      ->assertEqual(count($goals), 1);
    $goal = reset($goals);

    // Verify that the agent is shown for administration.
    $this
      ->drupalGet('');
    $settings = $this
      ->drupalGetSettings();
    $this
      ->assertTrue(!empty($settings['acquia_lift']['campaigns'][$agent->machine_name]));

    // Start the agent through the UI so that the targeting gets implemented.
    $this
      ->createTestFromOptionSet($agent, $option_set);
    $this
      ->drupalGet('admin/structure/personalize/manage/' . $agent->machine_name . '/review');
    $this
      ->drupalPost(NULL, array(), $this
      ->getButton('wizard_start'));

    // Verify that the agent is no longer shown for administration.
    $this
      ->drupalGet('');
    $settings = $this
      ->drupalGetSettings();
    $this
      ->assertFalse($settings['acquia_lift']['campaigns'][$agent->machine_name]['editable']);

    // Try to edit the goal.
    try {
      personalize_goal_save($agent->machine_name, 'clicks_option_set_1', 5, $goal->id);
      $this
        ->fail('Should not ever get here because a cannot be saved when agent is running.');
    } catch (Exception $e) {
      $this
        ->assertTrue($e instanceof PersonalizeException);
      $this
        ->assertEqual($e
        ->getMessage(), 'Goals cannot be modified until the personalization is paused.');
    }

    // Try to add a variation
    $option_set->options[] = array(
      'option_id' => 'fourth-choice',
      'option_label' => 'Fourth choice',
    );
    try {
      $option_set = personalize_option_set_save($option_set);
      $this
        ->pass('No errors should be thrown when adding variations to a running campaign.');
    } catch (Exception $e) {
      $this
        ->fail('No errors should be thrown when adding variations to a running campaign.');
    }

    // Try to delete the new variation.
    array_pop($option_set->options);
    try {
      $option_set = personalize_option_set_save($option_set);
      $this
        ->pass('No errors should be thrown when deleting non-targeted variations from a running campaign.');
    } catch (Exception $e) {
      $this
        ->fail('No errors should be thrown when deleting non-targeted variations from a running campaign.');
    }

    // Try to delete a targeted option.
    unset($option_set->options[0]);
    try {
      $option_set = personalize_option_set_save($option_set);
      $this
        ->fail('Should not get here because an error should be thrown while removing this variation.');
    } catch (Exception $e) {
      $this
        ->assertTrue($e instanceof PersonalizeException);
      $this
        ->assertEqual($e
        ->getMessage(), 'Variations used in targeting cannot be removed until the personalization is paused.');
    }

    // Pause the agent.
    personalize_agent_set_status($agent->machine_name, PERSONALIZE_STATUS_PAUSED);

    // Edit the goal.
    personalize_goal_save($agent->machine_name, 'clicks_option_set_1', 5, $goal->id);

    // Verify the change.
    $goal = personalize_goal_load($goal->id);
    $this
      ->assertEqual($goal->value, 5);

    // Remove the variation.
    $option_set = personalize_option_set_save($option_set);
    $this
      ->assertEqual(count($option_set->options), 2);

    // Verify the settings for administration.
    $this
      ->drupalGet('');
    $settings = $this
      ->drupalGetSettings();
    $this
      ->assertTrue($settings['acquia_lift']['campaigns'][$agent->machine_name]['editable']);

    // Schedule the agent.
    $start_date = strtotime('+1 month midnight');
    personalize_agent_set_start_date($agent->machine_name, $start_date);
    personalize_agent_set_status($agent->machine_name, PERSONALIZE_STATUS_SCHEDULED);

    // Try to edit the goal.
    try {
      personalize_goal_save($agent->machine_name, 'clicks_option_set_1', 3, $goal->id);
      $this
        ->fail('Should not ever get here because a cannot be saved when agent is running.');
    } catch (Exception $e) {
      $this
        ->assertTrue($e instanceof PersonalizeException);
      $this
        ->assertEqual($e
        ->getMessage(), 'Goals cannot be modified until the personalization is paused.');
    }

    // Try to delete a targeted option.
    unset($option_set->options[1]);
    try {
      $option_set = personalize_option_set_save($option_set);
      $this
        ->fail('Should not get here because an error should be thrown while removing this variation.');
    } catch (Exception $e) {
      $this
        ->assertTrue($e instanceof PersonalizeException);
      $this
        ->assertEqual($e
        ->getMessage(), 'Variations used in targeting cannot be removed until the personalization is paused.');
    }

    // Verify the agent can't be edited in JS settings.
    $this
      ->drupalGet('');
    $settings = $this
      ->drupalGetSettings();
    $this
      ->assertFalse($settings['acquia_lift']['campaigns'][$agent->machine_name]['editable']);

    // Complete the agent.
    personalize_agent_set_status($agent->machine_name, PERSONALIZE_STATUS_COMPLETED);

    // Try to edit the goal.
    try {
      personalize_goal_save($agent->machine_name, 'clicks_option_set_1', 10, $goal->id);
      $this
        ->fail('Should not ever get here because a cannot be saved when agent is running.');
    } catch (Exception $e) {
      $this
        ->assertTrue($e instanceof PersonalizeException);
      $this
        ->assertEqual($e
        ->getMessage(), 'Goals cannot be modified until the personalization is paused.');
    }

    // Verify the agent still isn't loaded for front-end administration.
    $this
      ->drupalGet('');
    $settings = $this
      ->drupalGetSettings();
    $this
      ->assertTrue(empty($settings['acquia_lift']['campaigns'][$agent->machine_name]));
  }

  /**
   * Tests messaging for available operations based on agent status.
   */
  public function testAgentEditableMessaging() {
    module_enable(array(
      'personalize_blocks',
      'personalize_elements',
      'personalize_fields',
    ));
    $this
      ->resetAll();
    $admin_user = $this
      ->drupalCreateUser(array(
      'access administration pages',
      'administer site configuration',
      'access content',
      'administer content types',
      'administer nodes',
      'bypass node access',
      'manage personalized content',
    ));
    $this
      ->drupalLogin($admin_user);

    // Set the test classes for working with option set manipulation.
    AcquiaLiftAPI::setTestInstance();
    $agent = $this
      ->createTargetingAgent();

    // Personalize blocks.
    $option_set = $this
      ->createPersonalizedBlock(1, $agent, 2);

    // Add targeting so that the agent meets requirements.
    $this
      ->createTestFromOptionSet($agent, $option_set);
    $pb_message = 'Variations in use cannot be removed from Personalized Block 2 until the ' . $agent->label . ' personalization is paused.';
    $this
      ->drupalGet('admin/structure/personalize/variations/personalize-blocks/manage/1/edit');
    $this
      ->assertNoText($pb_message);

    // Start the agent via the UI in order to implement targeting and nested agents.
    $this
      ->drupalPost('admin/structure/personalize/manage/' . $agent->machine_name . '/review', array(), $this
      ->getButton('wizard_start'));
    $this
      ->drupalGet('admin/structure/personalize/variations/personalize-blocks/manage/1/edit');
    $this
      ->assertText($pb_message);

    // Reset the agent.
    personalize_agent_set_status($agent->machine_name, PERSONALIZE_STATUS_NOT_STARTED);
    personalize_option_set_delete($option_set->osid);

    // Personalize elements.
    $option_set = $this
      ->createPersonalizeElementsOptionSet($agent->machine_name, array(
      'num_options' => 4,
    ));
    $pe_message = 'Variations that are in use cannot be removed until the ' . $agent->label . ' personalization is paused.';
    $this
      ->drupalGet('admin/structure/personalize/variations/personalize-elements/manage/' . $option_set->osid . '/edit');
    $this
      ->assertNoText($pe_message);
    $edit = array(
      'options[1][personalize_elements_content]' => 'Mahna mahna',
      'options[2][personalize_elements_content]' => 'Do doo do do do',
      'options[3][personalize_elements_content]' => 'Mahna mahna',
      'options[4][personalize_elements_content]' => '',
    );
    $this
      ->drupalPost(NULL, $edit, 'Save');
    $this
      ->resetAll();

    // Verify that one option was removed.
    $option_set = personalize_option_set_load($option_set->osid);
    $this
      ->assertEqual(count($option_set->options), 3);
    $this
      ->createTestFromOptionSet($agent, $option_set);

    // Start the agent via the UI in order to implement targeting and nested agents.
    $this
      ->drupalPost('admin/structure/personalize/manage/' . $agent->machine_name . '/review', array(), $this
      ->getButton('wizard_start'));
    $this
      ->drupalGet('admin/structure/personalize/variations/personalize-elements/manage/' . $option_set->osid . '/edit');
    $this
      ->assertText($pe_message);
    $edit = array(
      'options[1][personalize_elements_content]' => 'Mahna mahna',
      'options[2][personalize_elements_content]' => 'Do doo do do do',
      'options[3][personalize_elements_content]' => '',
    );
    $this
      ->drupalPost(NULL, $edit, 'Save');
    $this
      ->resetAll();
    $this
      ->assertText('Variations cannot be removed until the ' . $agent->label . ' personalization is paused.');
    $option_set = personalize_option_set_load($option_set->osid);
    $this
      ->assertEqual(count($option_set->options), 3);

    // Personalize fields.
    $this
      ->createPersonalizedArticleField();
    list($node, $os, $agent_name) = $this
      ->createPersonalizedField();

    // Start the agent via the UI in order to implement targeting and nested agents.
    $field_agent = personalize_agent_load($agent_name);
    $this
      ->createTestFromOptionSet($field_agent, $os);
    $this
      ->drupalPost('admin/structure/personalize/manage/' . $agent_name . '/review', array(), $this
      ->getButton('wizard_start'));

    // Verify you can't remove from a running agent.
    $pf_message = 'The Personalizable Headline field cannot be removed until the personalization is paused.';
    $this
      ->drupalGet('node/1/edit');
    $edit = array(
      'article_headline[und][0][value]' => '',
    );
    $this
      ->drupalPost(NULL, $edit, 'Save');
    $this
      ->assertText($pf_message);
    personalize_agent_set_status($agent_name, PERSONALIZE_STATUS_PAUSED);
    $this
      ->drupalGet('node/1/edit');
    $edit = array(
      'article_headline[und][0][value]' => '',
    );
    $this
      ->drupalPost(NULL, $edit, 'Save');
    $this
      ->assertNoText($pf_message);
  }
  function testMultipleOptionSetsOneDecision() {
    $this
      ->drupalLogin($this->managerUser);
    $targeting_agent = $this
      ->createTargetingAgent();

    // Add a couple of option sets with different numbers of options.
    $os1 = $this
      ->createOptionSet(1, array(
      'agent' => $targeting_agent->machine_name,
      'plugin' => 'type1',
      'num_options' => 2,
    ));
    $os2 = $this
      ->createOptionSet(2, array(
      'agent' => $targeting_agent->machine_name,
      'plugin' => 'type1',
      'num_options' => 3,
    ));
    $this
      ->drupalGet('admin/structure/personalize/manage/' . $targeting_agent->machine_name . '/review');
    $this
      ->assertText('You have multiple variation sets with different numbers of variations.');

    // Add a third variation to the first option set.
    $os1->options[] = array(
      'option_id' => 'option-ohai',
    );
    personalize_option_set_save($os1);
    $this
      ->resetAll();
    $this
      ->drupalGet('admin/structure/personalize/manage/' . $targeting_agent->machine_name . '/review');
    $this
      ->assertNoText('You have multiple variation sets with different numbers of variations.');

    // Right now the option IDs will not be the same - at least the third one
    // will be different.
    $this
      ->assertFalse($os1->options[2]['option_id'] == $os2->options[2]['option_id']);

    // Now implement the structure. The option IDs on all option sets should be
    // updated to match those of the targeting option set.
    AcquiaLiftAPI::setTestInstance();

    // Implement the targeting as a basic test.
    $targeting_agent->data['lift_targeting'] = array(
      ACQUIA_LIFT_TARGETING_EVERYONE_ELSE => array(
        $os1->options[0]['option_id'],
        $os1->options[1]['option_id'],
        $os1->options[2]['option_id'],
      ),
    );
    acquia_lift_implement_targeting($targeting_agent);
    $this
      ->resetAll();

    // Refresh the option sets.
    $os1 = personalize_option_set_load($os1->osid, TRUE);
    $os2 = personalize_option_set_load($os2->osid, TRUE);
    $option_ids = array();
    foreach (array(
      $os1->osid => $os1,
      $os2->osid => $os2,
    ) as $osid => $os) {
      $option_ids[$osid] = array();
      foreach ($os->options as $option) {
        $option_ids[$osid][] = $option['option_id'];
      }
    }
    $this
      ->assertEqual($option_ids[$os1->osid], $option_ids[$os2->osid]);
  }
  function testMVTCreation() {
    $this
      ->drupalLogin($this->managerUser);
    $targeting_agent = $this
      ->createTargetingAgent();
    $targeting_agent->data['variation_set_handling'] = ACQUIA_LIFT_DECISION_MULTIVARIATE;
    personalize_agent_save($targeting_agent);

    // Add a single option set, should not get past the review screen.
    $os1 = $this
      ->createOptionSet(1, array(
      'agent' => $targeting_agent->machine_name,
      'plugin' => 'type1',
      'num_options' => 2,
    ));

    // Add a couple of goals.
    personalize_goal_save($targeting_agent->machine_name, 'form_submit', 1);
    personalize_goal_save($targeting_agent->machine_name, 'user_login', 2);

    // Verify the error message.
    $this
      ->drupalGet('admin/structure/personalize/manage/' . $targeting_agent->machine_name . '/review');
    $this
      ->assertText('A multi-variate test requires at least two option sets.');
    $this
      ->assertNoText('You have multiple variation sets with different numbers of variations - the personalization cannot be started until all variation sets have the same number of variations.');

    // Add another option set.
    $os2 = $this
      ->createOptionSet(2, array(
      'agent' => $targeting_agent->machine_name,
      'plugin' => 'type1',
      'num_options' => 3,
    ));
    $this
      ->drupalGet('admin/structure/personalize/manage/' . $targeting_agent->machine_name . '/review');
    $this
      ->assertNoText('A multi-variate test requires at least two option sets.');
    $this
      ->assertNoText('You have multiple variation sets with different numbers of variations - the personalization cannot be started until all variation sets have the same number of variations.');

    // Grab the goals created so we can assert that they get moved over to the
    // MVT later.
    $goals = personalize_goal_load_by_conditions(array(
      'agent' => $targeting_agent->machine_name,
    ), TRUE);

    // Just pull the details out into an array.
    $original_goal_info = array();
    foreach ($goals as $goal) {
      $goal_array = (array) $goal;
      unset($goal_array['agent']);
      $original_goal_info[$goal->id] = $goal_array;
    }

    // Implement the MVT.
    AcquiaLiftAPI::setTestInstance();
    acquia_lift_implement_mvt($targeting_agent);
    $this
      ->resetAll();
    $nested = personalize_agent_load_by_type(ACQUIA_LIFT_TESTING_AGENT, TRUE);
    $nested_mvt = reset($nested);
    $this
      ->assertEqual($nested_mvt->machine_name, acquia_lift_get_mvt_name_for_agent($targeting_agent->machine_name));
    $option_sets = personalize_option_set_load_by_agent($nested_mvt->machine_name, TRUE);
    $this
      ->assertTrue(isset($option_sets[$os1->osid]));
    $this
      ->assertTrue(isset($option_sets[$os2->osid]));
    $goals = personalize_goal_load_by_conditions(array(
      'agent' => $nested_mvt->machine_name,
    ), TRUE);
    $mvt_goal_info = array();
    foreach ($goals as $goal) {
      $goal_array = (array) $goal;
      unset($goal_array['agent']);
      $mvt_goal_info[$goal->id] = $goal_array;
    }
    $this
      ->assertEqual($original_goal_info, $mvt_goal_info);

    // There shouldn't be any option sets or goals on the parent agent.
    $option_sets_original = personalize_option_set_load_by_agent($targeting_agent->machine_name, TRUE);
    $this
      ->assertTrue(empty($option_sets_original));
    $goals_original = personalize_goal_load_by_conditions(array(
      'agent' => $targeting_agent->machine_name,
    ), TRUE);
    $this
      ->assertTrue(empty($goals_original));
  }
  function testLockstepVariations() {
    $this
      ->drupalLogin($this->managerUser);
    $targeting_agent = $this
      ->createTargetingAgent();

    // Add a couple of option sets with different numbers of options.
    $os1 = $this
      ->createOptionSet(1, array(
      'agent' => $targeting_agent->machine_name,
      'plugin' => 'type1',
      'num_options' => 3,
    ));
    $os2 = $this
      ->createOptionSet(2, array(
      'agent' => $targeting_agent->machine_name,
      'plugin' => 'type1',
      'num_options' => 3,
    ));
    $elements_os = $this
      ->createPersonalizeElementsOptionSet($targeting_agent->machine_name, array(
      'add_control' => TRUE,
      'num_options' => 2,
    ));
    $targeting_option_set = acquia_lift_get_option_set_for_targeting($targeting_agent->machine_name);
    $this
      ->assertEqual($elements_os->osid, $targeting_option_set->osid);
    $option_ids = array();
    foreach ($targeting_option_set->options as $option) {
      $option_ids[] = $option['option_id'];
    }

    // Now implement the structure. The option IDs on all option sets should be
    // updated to match those of the targeting option set.
    AcquiaLiftAPI::setTestInstance();
    $targeting = array(
      ACQUIA_LIFT_TARGETING_EVERYONE_ELSE => $option_ids,
    );
    try {
      acquia_lift_save_targeting_structure($targeting_agent, $targeting);
    } catch (AcquiaLiftException $e) {
      $this
        ->fail('Exception thrown when none expected.');
    }

    // Implement the targeting as a basic test.
    acquia_lift_implement_targeting($targeting_agent);
    $this
      ->resetAll();
    $this
      ->drupalGet('');
    $settings = $this
      ->drupalGetSettings();
    $option_set_settings = $settings['personalize']['option_sets'];

    // Confirm that the control variation has the correct option id.
    $this
      ->assertEqual(PERSONALIZE_CONTROL_OPTION_ID, $option_set_settings['osid-' . $elements_os->osid]['options'][0]['option_id']);
  }
  function testAudienceChanges() {
    module_load_include('inc', 'acquia_lift', 'acquia_lift.admin');

    // First, set up our agent, option set, audience and desired targeting
    // structure.
    $agent = $this
      ->createTargetingAgent();
    $parent_option_set = $this
      ->createPersonalizedBlock(0, $agent, 3);

    // Keep the option ids in an array.
    $option_ids = array();
    foreach ($parent_option_set->options as $option) {
      $option_ids[] = $option['option_id'];
    }
    $this
      ->resetAll();
    $first_audience = personalize_generate_machine_name($this
      ->randomName(), NULL, '-');
    $this
      ->createTargetAudience($parent_option_set, $first_audience);
    $second_audience = personalize_generate_machine_name($this
      ->randomName(), NULL, '-');
    $this
      ->createTargetAudience($parent_option_set, $second_audience);
    $targeting = array(
      $first_audience => array(
        $option_ids[1],
        $option_ids[2],
      ),
      $second_audience => array(
        $option_ids[0],
      ),
    );
    acquia_lift_save_targeting_structure($agent, $targeting);

    // Now implement the targeting structure..
    AcquiaLiftAPI::setTestInstance();
    acquia_lift_implement_targeting($agent);
    $this
      ->resetAll();
    $os = acquia_lift_get_option_set_for_targeting($agent->machine_name);

    // There should be three audiences - the two we created plus the "everyone"
    // audience.
    $this
      ->assertEqual(3, count(array_keys($os->targeting)));

    // The first audience should have an osid but no option_id
    $this
      ->assertTrue(isset($os->targeting[$first_audience]));
    $this
      ->assertTrue(isset($os->targeting[$first_audience]['osid']));
    $this
      ->assertFalse(isset($os->targeting[$first_audience]['option_id']));

    // The second audience should have an option_id but no osid
    $this
      ->assertTrue(isset($os->targeting[$second_audience]));
    $this
      ->assertFalse(isset($os->targeting[$second_audience]['osid']));
    $this
      ->assertTrue(isset($os->targeting[$second_audience]['option_id']));

    // Now change the structure so that that the first audience no longer gets a
    // test and the second one gets a test.
    $targeting2 = array(
      $first_audience => array(
        $option_ids[0],
      ),
      $second_audience => array(
        $option_ids[1],
        $option_ids[2],
      ),
    );
    acquia_lift_save_targeting_structure($agent, $targeting2);
    AcquiaLiftAPI::setTestInstance();
    acquia_lift_implement_targeting($agent);
    $this
      ->resetAll();
    $os = acquia_lift_get_option_set_for_targeting($agent->machine_name);
    $this
      ->assertEqual(3, count(array_keys($os->targeting)));

    // The first audience's name should have been changed.
    $this
      ->assertFalse(isset($os->targeting[$first_audience]));
    $new_first_audience = $first_audience . '-2';

    // The new first audience should now have an option_id but no osid.
    $this
      ->assertTrue(isset($os->targeting[$new_first_audience]));
    $this
      ->assertFalse(isset($os->targeting[$new_first_audience]['osid']));
    $this
      ->assertTrue(isset($os->targeting[$new_first_audience]['option_id']));
    $this
      ->assertEqual('option-1', $os->targeting[$new_first_audience]['option_id']);

    // The second audience's name should also have been changed.
    $this
      ->assertFalse(isset($os->targeting[$second_audience]));
    $new_second_audience = $second_audience . '-2';

    // The second audience should have an option_id but no osid
    $this
      ->assertTrue(isset($os->targeting[$new_second_audience]));
    $this
      ->assertTrue(isset($os->targeting[$new_second_audience]['osid']));
    $this
      ->assertFalse(isset($os->targeting[$new_second_audience]['option_id']));

    // The original test that existed for the first audience should now exist
    // as a retired test.
    $retired = acquia_lift_get_retired_tests($agent->machine_name);
    $this
      ->assertEqual(1, count($retired));
    $this
      ->assertEqual($first_audience, $retired[0]->data['lift_audience']);

    // Now change the first audience to get a different fixed targeting option.
    // The audience name should stay the same.
    $targeting3 = array(
      $new_first_audience => array(
        $option_ids[1],
      ),
      $new_second_audience => array(
        $option_ids[1],
        $option_ids[2],
      ),
    );
    acquia_lift_save_targeting_structure($agent, $targeting3);
    AcquiaLiftAPI::setTestInstance();
    acquia_lift_implement_targeting($agent);
    $this
      ->resetAll();
    $os = acquia_lift_get_option_set_for_targeting($agent->machine_name);
    $this
      ->assertEqual(3, count(array_keys($os->targeting)));

    // The new first audience should now have an option_id but no osid.
    $this
      ->assertTrue(isset($os->targeting[$new_first_audience]));
    $this
      ->assertFalse(isset($os->targeting[$new_first_audience]['osid']));
    $this
      ->assertTrue(isset($os->targeting[$new_first_audience]['option_id']));
    $this
      ->assertEqual('option-2', $os->targeting[$new_first_audience]['option_id']);

    // The second audience should be the same as before.
    $this
      ->assertTrue(isset($os->targeting[$new_second_audience]));
    $this
      ->assertTrue(isset($os->targeting[$new_second_audience]['osid']));
    $this
      ->assertFalse(isset($os->targeting[$new_second_audience]['option_id']));
  }

}

Members

Name	Modifiers	Type	Description	Overrides
AcquiaLiftWebTestBase::$adminUser	protected	property
AcquiaLiftWebTestBase::$agent_plugin	protected static	property
AcquiaLiftWebTestBase::$liftProfileJsPath	protected	property	The string to use as the JavaScript path.
AcquiaLiftWebTestBase::$managerUser	protected	property
AcquiaLiftWebTestBase::configureAcquiaLiftAccount	protected	function	Helper method to configure an Acquia Lift account.
AcquiaLiftWebTestBase::createOptionSet	protected	function
AcquiaLiftWebTestBase::createPersonalizedArticleField	protected	function	Adds a personalizable field to the article node type.
AcquiaLiftWebTestBase::createPersonalizedBlock	protected	function	Creates the required number of custom blocks.
AcquiaLiftWebTestBase::createPersonalizedField	protected	function	Creates an article node with a personalized headline field.
AcquiaLiftWebTestBase::createPersonalizeElementsOptionSet	protected	function	Create personalize element option set.
AcquiaLiftWebTestBase::createTargetAudience	protected	function	Helper that adds a target audience using two contexts AND'd together.
AcquiaLiftWebTestBase::createTargetingAgent	protected	function	A helper function to create an acquia_lift_target agent.
AcquiaLiftWebTestBase::createTargetingAgentWithNestedTest	protected	function
AcquiaLiftWebTestBase::createTestAgent	protected	function	Helper function to create an agent.
AcquiaLiftWebTestBase::createTestFromOptionSet		function		1
AcquiaLiftWebTestBase::createUserProfileField	protected	function	Creates a user profile field which can be used for targeting.
AcquiaLiftWebTestBase::getButton	protected	function	Helper method to move buttons names to one pace to simplify it's maintaining
AcquiaLiftWebTestBase::tearDown	public	function	Delete created files and temporary files directory, delete the tables created by setUp(), and reset the database prefix. Overrides DrupalWebTestCase::tearDown
AcquiaLiftWebTestTarget::getInfo	public static	function
AcquiaLiftWebTestTarget::setUp	public	function	Sets up a Drupal site for running functional and integration tests. Overrides AcquiaLiftWebTestBase::setUp
AcquiaLiftWebTestTarget::testAgentEditable		function	Tests which components of a campaign are editable when the depending on agent status.
AcquiaLiftWebTestTarget::testAgentEditableMessaging	public	function	Tests messaging for available operations based on agent status.
AcquiaLiftWebTestTarget::testAssignVariations		function
AcquiaLiftWebTestTarget::testAudienceChanges		function
AcquiaLiftWebTestTarget::testAudienceName		function
AcquiaLiftWebTestTarget::testCreateTargetAudiences		function
AcquiaLiftWebTestTarget::testImplementTargetingStructure		function
AcquiaLiftWebTestTarget::testLockstepVariations		function
AcquiaLiftWebTestTarget::testMultipleOptionSetsOneDecision		function
AcquiaLiftWebTestTarget::testMVTCreation		function
AcquiaLiftWebTestTarget::testNestedAgentAssets		function
AcquiaLiftWebTestTarget::testNestedAgentDeletion		function
AcquiaLiftWebTestTarget::testNestedAgentSettings		function
AcquiaLiftWebTestTarget::testNestedAgentStatus		function
AcquiaLiftWebTestTarget::testStopAndPickWinner		function
DrupalTestCase::$assertions	protected	property	Assertions thrown in that test case.
DrupalTestCase::$databasePrefix	protected	property	The database prefix of this test run.
DrupalTestCase::$originalFileDirectory	protected	property	The original file directory, before it was changed for testing purposes.
DrupalTestCase::$results	public	property	Current results of this test case.
DrupalTestCase::$setup	protected	property	Flag to indicate whether the test has been set up.
DrupalTestCase::$setupDatabasePrefix	protected	property
DrupalTestCase::$setupEnvironment	protected	property
DrupalTestCase::$skipClasses	protected	property	This class is skipped when looking for the source of an assertion.
DrupalTestCase::$testId	protected	property	The test run ID.
DrupalTestCase::$timeLimit	protected	property	Time limit for the test.
DrupalTestCase::$useSetupInstallationCache	public	property	Whether to cache the installation part of the setUp() method.
DrupalTestCase::$useSetupModulesCache	public	property	Whether to cache the modules installation part of the setUp() method.
DrupalTestCase::$verboseDirectoryUrl	protected	property	URL to the verbose output file directory.
DrupalTestCase::assert	protected	function	Internal helper: stores the assert.
DrupalTestCase::assertEqual	protected	function	Check to see if two values are equal.
DrupalTestCase::assertFalse	protected	function	Check to see if a value is false (an empty string, 0, NULL, or FALSE).
DrupalTestCase::assertIdentical	protected	function	Check to see if two values are identical.
DrupalTestCase::assertNotEqual	protected	function	Check to see if two values are not equal.
DrupalTestCase::assertNotIdentical	protected	function	Check to see if two values are not identical.
DrupalTestCase::assertNotNull	protected	function	Check to see if a value is not NULL.
DrupalTestCase::assertNull	protected	function	Check to see if a value is NULL.
DrupalTestCase::assertTrue	protected	function	Check to see if a value is not false (not an empty string, 0, NULL, or FALSE).
DrupalTestCase::deleteAssert	public static	function	Delete an assertion record by message ID.
DrupalTestCase::error	protected	function	Fire an error assertion.	1
DrupalTestCase::errorHandler	public	function	Handle errors during test runs.	1
DrupalTestCase::exceptionHandler	protected	function	Handle exceptions.
DrupalTestCase::fail	protected	function	Fire an assertion that is always negative.
DrupalTestCase::generatePermutations	public static	function	Converts a list of possible parameters into a stack of permutations.
DrupalTestCase::getAssertionCall	protected	function	Cycles through backtrace until the first non-assertion method is found.
DrupalTestCase::getDatabaseConnection	public static	function	Returns the database connection to the site running Simpletest.
DrupalTestCase::insertAssert	public static	function	Store an assertion from outside the testing context.
DrupalTestCase::pass	protected	function	Fire an assertion that is always positive.
DrupalTestCase::randomName	public static	function	Generates a random string containing letters and numbers.
DrupalTestCase::randomString	public static	function	Generates a random string of ASCII characters of codes 32 to 126.
DrupalTestCase::run	public	function	Run all tests in this class.
DrupalTestCase::verbose	protected	function	Logs a verbose message in a text file.
DrupalWebTestCase::$additionalCurlOptions	protected	property	Additional cURL options.
DrupalWebTestCase::$content	protected	property	The content of the page currently loaded in the internal browser.
DrupalWebTestCase::$cookieFile	protected	property	The current cookie file used by cURL.
DrupalWebTestCase::$cookies	protected	property	The cookies of the page currently loaded in the internal browser.
DrupalWebTestCase::$curlHandle	protected	property	The handle of the current cURL connection.
DrupalWebTestCase::$drupalSettings	protected	property	The value of the Drupal.settings JavaScript variable for the page currently loaded in the internal browser.
DrupalWebTestCase::$elements	protected	property	The parsed version of the page.
DrupalWebTestCase::$generatedTestFiles	protected	property	Whether the files were copied to the test files directory.
DrupalWebTestCase::$headers	protected	property	The headers of the page currently loaded in the internal browser.
DrupalWebTestCase::$httpauth_credentials	protected	property	HTTP authentication credentials (<username>:<password>).
DrupalWebTestCase::$httpauth_method	protected	property	HTTP authentication method
DrupalWebTestCase::$loggedInUser	protected	property	The current user logged in using the internal browser.
DrupalWebTestCase::$originalShutdownCallbacks	protected	property	The original shutdown handlers array, before it was cleaned for testing purposes.
DrupalWebTestCase::$originalUser	protected	property	The original user, before it was changed to a clean uid = 1 for testing purposes.
DrupalWebTestCase::$plainTextContent	protected	property	The content of the page currently loaded in the internal browser (plain text version).
DrupalWebTestCase::$profile	protected	property	The profile to install as a basis for testing.	20
DrupalWebTestCase::$redirect_count	protected	property	The number of redirects followed during the handling of a request.
DrupalWebTestCase::$session_id	protected	property	The current session ID, if available.
DrupalWebTestCase::$session_name	protected	property	The current session name, if available.
DrupalWebTestCase::$url	protected	property	The URL currently loaded in the internal browser.
DrupalWebTestCase::assertField	protected	function	Asserts that a field exists with the given name or ID.
DrupalWebTestCase::assertFieldById	protected	function	Asserts that a field exists in the current page with the given ID and value.
DrupalWebTestCase::assertFieldByName	protected	function	Asserts that a field exists in the current page with the given name and value.
DrupalWebTestCase::assertFieldByXPath	protected	function	Asserts that a field exists in the current page by the given XPath.
DrupalWebTestCase::assertFieldChecked	protected	function	Asserts that a checkbox field in the current page is checked.
DrupalWebTestCase::assertLink	protected	function	Pass if a link with the specified label is found, and optional with the specified index.
DrupalWebTestCase::assertLinkByHref	protected	function	Pass if a link containing a given href (part) is found.
DrupalWebTestCase::assertMail	protected	function	Asserts that the most recently sent e-mail message has the given value.
DrupalWebTestCase::assertMailPattern	protected	function	Asserts that the most recently sent e-mail message has the pattern in it.
DrupalWebTestCase::assertMailString	protected	function	Asserts that the most recently sent e-mail message has the string in it.
DrupalWebTestCase::assertNoDuplicateIds	protected	function	Asserts that each HTML ID is used for just a single element.
DrupalWebTestCase::assertNoField	protected	function	Asserts that a field does not exist with the given name or ID.
DrupalWebTestCase::assertNoFieldById	protected	function	Asserts that a field does not exist with the given ID and value.
DrupalWebTestCase::assertNoFieldByName	protected	function	Asserts that a field does not exist with the given name and value.
DrupalWebTestCase::assertNoFieldByXPath	protected	function	Asserts that a field doesn't exist or its value doesn't match, by XPath.
DrupalWebTestCase::assertNoFieldChecked	protected	function	Asserts that a checkbox field in the current page is not checked.
DrupalWebTestCase::assertNoLink	protected	function	Pass if a link with the specified label is not found.
DrupalWebTestCase::assertNoLinkByHref	protected	function	Pass if a link containing a given href (part) is not found.
DrupalWebTestCase::assertNoOptionSelected	protected	function	Asserts that a select option in the current page is not checked.
DrupalWebTestCase::assertNoPattern	protected	function	Will trigger a pass if the perl regex pattern is not present in raw content.
DrupalWebTestCase::assertNoRaw	protected	function	Pass if the raw text is NOT found on the loaded page, fail otherwise. Raw text refers to the raw HTML that the page generated.
DrupalWebTestCase::assertNoResponse	protected	function	Asserts the page did not return the specified response code.
DrupalWebTestCase::assertNoText	protected	function	Pass if the text is NOT found on the text version of the page. The text version is the equivalent of what a user would see when viewing through a web browser. In other words the HTML has been filtered out of the contents.
DrupalWebTestCase::assertNoTitle	protected	function	Pass if the page title is not the given string.
DrupalWebTestCase::assertNoUniqueText	protected	function	Pass if the text is found MORE THAN ONCE on the text version of the page.
DrupalWebTestCase::assertOptionSelected	protected	function	Asserts that a select option in the current page is checked.
DrupalWebTestCase::assertPattern	protected	function	Will trigger a pass if the Perl regex pattern is found in the raw content.
DrupalWebTestCase::assertRaw	protected	function	Pass if the raw text IS found on the loaded page, fail otherwise. Raw text refers to the raw HTML that the page generated.
DrupalWebTestCase::assertResponse	protected	function	Asserts the page responds with the specified response code.
DrupalWebTestCase::assertText	protected	function	Pass if the text IS found on the text version of the page. The text version is the equivalent of what a user would see when viewing through a web browser. In other words the HTML has been filtered out of the contents.
DrupalWebTestCase::assertTextHelper	protected	function	Helper for assertText and assertNoText.
DrupalWebTestCase::assertThemeOutput	protected	function	Asserts themed output.
DrupalWebTestCase::assertTitle	protected	function	Pass if the page title is the given string.
DrupalWebTestCase::assertUniqueText	protected	function	Pass if the text is found ONLY ONCE on the text version of the page.
DrupalWebTestCase::assertUniqueTextHelper	protected	function	Helper for assertUniqueText and assertNoUniqueText.
DrupalWebTestCase::assertUrl	protected	function	Pass if the internal browser's URL matches the given path.
DrupalWebTestCase::buildXPathQuery	protected	function	Builds an XPath query.
DrupalWebTestCase::changeDatabasePrefix	protected	function	Changes the database connection to the prefixed one.
DrupalWebTestCase::checkForMetaRefresh	protected	function	Check for meta refresh tag and if found call drupalGet() recursively. This function looks for the http-equiv attribute to be set to "Refresh" and is case-sensitive.
DrupalWebTestCase::checkPermissions	protected	function	Check to make sure that the array of permissions are valid.
DrupalWebTestCase::clickLink	protected	function	Follows a link by name.
DrupalWebTestCase::constructFieldXpath	protected	function	Helper function: construct an XPath for the given set of attributes and value.
DrupalWebTestCase::copySetupCache	protected	function	Copy the setup cache from/to another table and files directory.
DrupalWebTestCase::cronRun	protected	function	Runs cron in the Drupal installed by Simpletest.
DrupalWebTestCase::curlClose	protected	function	Close the cURL handler and unset the handler.
DrupalWebTestCase::curlExec	protected	function	Initializes and executes a cURL request.
DrupalWebTestCase::curlHeaderCallback	protected	function	Reads headers and registers errors received from the tested site.
DrupalWebTestCase::curlInitialize	protected	function	Initializes the cURL connection.
DrupalWebTestCase::drupalCompareFiles	protected	function	Compare two files based on size and file name.
DrupalWebTestCase::drupalCreateContentType	protected	function	Creates a custom content type based on default settings.
DrupalWebTestCase::drupalCreateNode	protected	function	Creates a node based on default settings.
DrupalWebTestCase::drupalCreateRole	protected	function	Creates a role with specified permissions.
DrupalWebTestCase::drupalCreateUser	protected	function	Create a user with a given set of permissions.
DrupalWebTestCase::drupalGet	protected	function	Retrieves a Drupal path or an absolute path.
DrupalWebTestCase::drupalGetAJAX	protected	function	Retrieve a Drupal path or an absolute path and JSON decode the result.
DrupalWebTestCase::drupalGetContent	protected	function	Gets the current raw HTML of requested page.
DrupalWebTestCase::drupalGetHeader	protected	function	Gets the value of an HTTP response header. If multiple requests were required to retrieve the page, only the headers from the last request will be checked by default. However, if TRUE is passed as the second argument, all requests will be processed…
DrupalWebTestCase::drupalGetHeaders	protected	function	Gets the HTTP response headers of the requested page. Normally we are only interested in the headers returned by the last request. However, if a page is redirected or HTTP authentication is in use, multiple requests will be required to retrieve the…
DrupalWebTestCase::drupalGetMails	protected	function	Gets an array containing all e-mails sent during this test case.
DrupalWebTestCase::drupalGetNodeByTitle		function	Get a node from the database based on its title.
DrupalWebTestCase::drupalGetSettings	protected	function	Gets the value of the Drupal.settings JavaScript variable for the currently loaded page.
DrupalWebTestCase::drupalGetTestFiles	protected	function	Get a list files that can be used in tests.
DrupalWebTestCase::drupalGetToken	protected	function	Generate a token for the currently logged in user.
DrupalWebTestCase::drupalHead	protected	function	Retrieves only the headers for a Drupal path or an absolute path.
DrupalWebTestCase::drupalLogin	protected	function	Log in a user with the internal browser.
DrupalWebTestCase::drupalLogout	protected	function
DrupalWebTestCase::drupalPost	protected	function	Execute a POST request on a Drupal page. It will be done as usual POST request with SimpleBrowser.
DrupalWebTestCase::drupalPostAJAX	protected	function	Execute an Ajax submission.
DrupalWebTestCase::drupalSetContent	protected	function	Sets the raw HTML content. This can be useful when a page has been fetched outside of the internal browser and assertions need to be made on the returned page.
DrupalWebTestCase::drupalSetSettings	protected	function	Sets the value of the Drupal.settings JavaScript variable for the currently loaded page.
DrupalWebTestCase::getAbsoluteUrl	protected	function	Takes a path and returns an absolute path.
DrupalWebTestCase::getAllOptions	protected	function	Get all option elements, including nested options, in a select.
DrupalWebTestCase::getSelectedItem	protected	function	Get the selected value from a select field.
DrupalWebTestCase::getSetupCacheKey	protected	function	Returns the cache key used for the setup caching.
DrupalWebTestCase::getUrl	protected	function	Get the current URL from the cURL handler.
DrupalWebTestCase::handleForm	protected	function	Handle form input related to drupalPost(). Ensure that the specified fields exist and attempt to create POST data in the correct manner for the particular field type.
DrupalWebTestCase::loadSetupCache	protected	function	Copies the cached tables and files for a cached installation setup.
DrupalWebTestCase::parse	protected	function	Parse content returned from curlExec using DOM and SimpleXML.
DrupalWebTestCase::preloadRegistry	protected	function	Preload the registry from the testing site.
DrupalWebTestCase::prepareDatabasePrefix	protected	function	Generates a database prefix for running tests.
DrupalWebTestCase::prepareEnvironment	protected	function	Prepares the current environment for running the test.
DrupalWebTestCase::recursiveDirectoryCopy	protected	function	Recursively copy one directory to another.
DrupalWebTestCase::refreshVariables	protected	function	Refresh the in-memory set of variables. Useful after a page request is made that changes a variable in a different thread.	1
DrupalWebTestCase::resetAll	protected	function	Reset all data structures after having enabled new modules.
DrupalWebTestCase::storeSetupCache	protected	function	Store the installation setup to a cache.
DrupalWebTestCase::verboseEmail	protected	function	Outputs to verbose the most recent $count emails sent.
DrupalWebTestCase::xpath	protected	function	Perform an xpath search on the contents of the internal browser. The search is relative to the root element (HTML tag normally) of the page.
DrupalWebTestCase::__construct		function	Constructor for DrupalWebTestCase. Overrides DrupalTestCase::__construct	1