<?php
// $Id: cow.test,v 1.7 2011-01-13 21:34:32 bdragon Exp $

/**
 * @file
 * Location saving test.
 */

require_once drupal_get_path('module', 'location') . '/tests/location_testcase.php';

class CowInstanceTest extends LocationTestCase {
  /**
   * A global administrative user.
   */
  var $admin_user;

  /**
   * A global normal user.
   */
  var $normal_user;

  /**
   * Simple content type using defaults.
   */
  var $content_type;


  function getInfo() {
    return array(
      'name' => 'Location Copy on Write checks',
      'description' => 'Test corner cases of the copy on write mechanism.',
      'group' => 'Location',
    );
  }

  function setUp() {
    parent::setUp('location_node');
    $web_admin = $this->drupalCreateUser(array('administer nodes', 'submit latitude/longitude', 'administer site configuration', 'access administration pages', 'administer content types'));
    $this->drupalLogin($web_admin);
  }

  function testCreateLocation() {
    $settings = $this->getLocationSettingsDefaults();
    $location_type = $this->drupalCreateContentType($settings);
    $location1_name = $this->randomName();

    $node = $this->drupalCreateNode(array(
      'type' => $location_type->type,
      'locations' => array(
        0 => array(
          'name' => $location1_name,
          'location_settings' => $settings,
        ),
      ),
    ));

    // Reload the node.
    $node2 = node_load($node->nid, NULL, TRUE);

    $this->assertEqual($location1_name, $node2->locations[0]['name'], t('Testing basic save/load'));
  }

  function testLocpickOnly() {
    $settings = array();
    $location_type = $this->addLocationContentType($settings);

    $location1_name = $this->randomName();

    $node = $this->drupalCreateNode(array(
      'type' => $location_type,
      'locations' => array(
        0 => array(
          'locpick' => array(
            'user_latitude' => '44.25',
            'user_longitude' => '-10.25',
          ),
          'location_settings' => $settings,
        ),
      ),
    ));

    // Reload the node.
    $node2 = node_load($node->nid, NULL, TRUE);
    $this->pass(var_export($node2->locations, TRUE));
    $this->assertEqual($node2->locations[0]['latitude'], 44.25, t('Testing coordinate-only save/load'));
  }

  function testMultipleLocationOnSingleNode() {
    $settings = array();
    $location_type = $this->addLocationContentType($settings, array('multiple' => array('max' => 3, 'add' => 3)));

    $location1_name = $this->randomName();
    $location2_name = $this->randomName();
    $location3_name = $this->randomName();

    $node = $this->drupalCreateNode(array(
      'type' => $location_type,
      'locations' => array(
        0 => array(
          'name' => $location1_name,
          'location_settings' => $settings,
        ),
        1 => array(
          'name' => $location2_name,
          'location_settings' => $settings,
        ),
        2 => array(
          'name' => $location3_name,
          'location_settings' => $settings,
        ),
      ),
    ));

    // Reload the node.
    $node2 = node_load($node->nid, NULL, TRUE);

    $this->assertEqual($location1_name, $node2->locations[0]['name'], t('Testing multi location 1/3'));
    $this->assertEqual($location2_name, $node2->locations[1]['name'], t('Testing multi location 2/3'));
    $this->assertEqual($location3_name, $node2->locations[2]['name'], t('Testing multi location 3/3'));
    $this->assertNotEqual($node2->locations[0]['lid'], $node2->locations[1]['lid'], t('Ensuring location id uniqueness'));
    $this->assertNotEqual($node2->locations[1]['lid'], $node2->locations[2]['lid'], t('Ensuring location id uniqueness'));
    $this->assertNotEqual($node2->locations[2]['lid'], $node2->locations[0]['lid'], t('Ensuring location id uniqueness'));
  }

  function testSharedLocation() {
    $settings = array();
    $location_type = $this->addLocationContentType($settings);

    $location1_name = $this->randomName();

    $node = $this->drupalCreateNode(array(
      'type' => $location_type,
      'locations' => array(
        0 => array(
          'name' => $location1_name,
          'location_settings' => $settings,
        ),
      ),
    ));

    // Reload the node.
    $node = node_load($node->nid, NULL, TRUE);

    // Get the full location
    $location = $node->locations[0];

    $node2 = $this->drupalCreateNode(array(
      'type' => $location_type,
      'locations' => array(
        '0' => $location,
      ),
    ));

    // Reload second node.
    $node2 = node_load($node2->nid, NULL, TRUE);

    $this->assertNotEqual($node->nid, $node2->nid, t('Ensuring nodes are seperate'));
    $this->assertEqual($node->locations[0]['lid'], $node2->locations[0]['lid'], t('Testing shared location'));

    $this->deleteNode($node->nid);

    // Force another reload.
    $node2 = node_load($node2->nid, NULL, TRUE);

    $this->assertEqual($node2->locations[0]['lid'], $location['lid'], t('Ensuring shared location is not prematurely garbage collected'));

    $this->deleteNode($node2->nid);

    $result = db_query('SELECT * FROM {location} WHERE lid = %d', $location['lid']);
    if ($row = db_fetch_object($result)) {
      $this->fail(t('Ensuring shared location is garbage collected'));
    }
    else {
      $this->pass(t('Ensuring shared location is garbage collected'));
    }
  }

  function testNodeRevisionCOW() {
    $settings = array();
    $location_type = $this->addLocationContentType($settings, array('multiple' => array('max' => 3, 'add' => 3)));

    $location1_name = $this->randomName();
    $location2_name = $this->randomName();
    $location3_name = $this->randomName();

    $node = $this->drupalCreateNode(array(
      'type' => $location_type,
      'locations' => array(
        0 => array( // First
          'name' => $location1_name,
          'location_settings' => $settings,
        ),
        1 => array( // Second
          'name' => $location2_name,
          'location_settings' => $settings,
        ),
      ),
    ));

    // Reload the node.
    $node = node_load($node->nid, NULL, TRUE);

    $changes = array(
      'revision' => TRUE,
      'log' => $this->randomName(20),
      'locations' => array(
        0 => array( // Delete First
          'delete_location' => TRUE,
        ),
        2 => array( // Third
          'name' => $location3_name,
        ),
      ),
    );
    $this->flattenPostData($changes);
    $this->drupalPost('node/'. $node->nid .'/edit', $changes, 'Save');

    // Reload the node again.
    $node1 = node_load($node->nid, $node->vid, TRUE);
    $node2 = node_load($node->nid, NULL, TRUE);

    // Ensure locations are in a consistent order.
    $this->reorderLocations($node);
    $this->reorderLocations($node1);
    $this->reorderLocations($node2);

    $this->assertEqual(count($node1->locations), 2, t('Ensuring second revision did not affect first revision'));
    $this->assertEqual($node->locations[0]['lid'], $node1->locations[0]['lid'], t('Ensuring second revision did not affect first revision'));
    $this->assertEqual($node->locations[1]['lid'], $node1->locations[1]['lid'], t('Ensuring second revision did not affect first revision'));

    $this->assertEqual(count($node2->locations), 2, t('Ensuring second revision does not have stealth locations'));

    // Delete first revision.
    db_query("DELETE FROM {node_revisions} WHERE nid = %d AND vid = %d", $node1->nid, $node1->vid);
    node_invoke_nodeapi($node1, 'delete revision');

    $result = db_query('SELECT * FROM {location} WHERE lid = %d', $node1->locations[0]['lid']);
    if ($row = db_fetch_object($result)) {
      $this->fail(t('Ensuring location on deleted revision is garbage collected'));
    }
    else {
      $this->pass(t('Ensuring location on deleted revision is garbage collected'));
    }

    $result = db_query('SELECT * FROM {location} WHERE lid = %d', $node1->locations[1]['lid']);
    if ($row = db_fetch_object($result)) {
      $this->pass(t('Ensuring shared location on deleted revision is NOT garbage collected'));
    }
    else {
      $this->fail(t('Ensuring shared location on deleted revision is NOT garbage collected'));
    }
  }

  function testCOWConservation() {
    $settings = array();
    $location_type = $this->addLocationContentType($settings);

    $location1_name = $this->randomName();

    $node = $this->drupalCreateNode(array(
      'type' => $location_type,
      'locations' => array(
        0 => array(
          'name' => $location1_name,
          'location_settings' => $settings,
        ),
      ),
    ));

    // Reload the node.
    $node = node_load($node->nid, NULL, TRUE);

    $changes = array(
      'locations' => array(
        0 => array(
          // Update name.
          'name' => $location1_name .'_CHANGE',
        ),
      ),
    );
    $this->flattenPostData($changes);
    $this->drupalPost('node/'. $node->nid .'/edit', $changes, 'Save');

    // Reload the node again.
    $node1 = node_load($node->nid, NULL, TRUE);

    // Ensure locations are in a consistent order.
    $this->reorderLocations($node);
    $this->reorderLocations($node1);

    $this->assertEqual($node->locations[0]['lid'], $node1->locations[0]['lid'], t('Ensuring LIDs are conserved'));

  }
}