You are here

Home » API reference » SimpleTest 5 » profile_module.test

class ProfileModuleTestDate in SimpleTest 5

Same name and namespace in other branches
  1. 6 tests/profile_module.test \ProfileModuleTestDate

Hierarchy

Expanded class hierarchy of ProfileModuleTestDate

File

tests/profile_module.test, line 717

View source 
class ProfileModuleTestDate extends DrupalTestCase {
  function get_info() {
    return array(
      'name' => 'Test Date field',
      'desc' => "Testing profile module with add/edit/delete new fields into profile page",
      'group' => 'Profile Module',
    );
  }
  function _rolesApi($op, $edit) {
    if ($op == 'delete') {
      $id = $edit['rid'];
      db_query('DELETE FROM {role} WHERE rid = %d', $id);
      db_query('DELETE FROM {permission} WHERE rid = %d', $id);

      // Update the users who have this role set:
      $result = db_query('SELECT DISTINCT(ur1.uid) FROM {users_roles} ur1 LEFT JOIN {users_roles} ur2 ON ur2.uid = ur1.uid WHERE ur1.rid = %d AND ur2.rid != ur1.rid', $id);
      $uid = array();
      while ($u = db_fetch_object($result)) {
        $uid[] = $u->uid;
      }
      if ($uid) {
        db_query('DELETE FROM {users_roles} WHERE rid = %d AND uid IN (%s)', $id, implode(', ', $uid));
      }

      // Users with only the deleted role are put back in the authenticated users pool.
      db_query('UPDATE {users_roles} SET rid = %d WHERE rid = %d', DRUPAL_AUTHENTICATED_RID, $id);
    }
    else {
      if ($op == 'add') {
        if (isset($edit['name'])) {
          db_query("INSERT INTO {role} (name) VALUES ('%s')", $edit['name']);
          $result = db_query("SELECT rid FROM {role} WHERE name = '%s'", $edit['name']);
          $rid = db_result($result);
          db_query("INSERT INTO {permission} (rid, perm) VALUES (%d, '%s')", $rid, $edit['perm']);
          return $rid;
        }
        else {
          return 0;
        }
      }
    }
  }
  function testProfileSingle() {
    $this
      ->drupalModuleEnable('profile');

    // create test user
    $edit['name'] = 'Profile ' . $this
      ->randomName(5);
    $edit['perm'] = 'access content, administer users, administer site configuration, access administration pages, access configuration pages, access user profiles';
    $rid = $this
      ->_rolesApi('add', $edit);
    $name = $this
      ->randomName();
    $pass = $this
      ->randomName();
    $mail = "{$name}@example.com";
    unset($edit);
    $edit['roles'] = array(
      $rid => $rid,
    );
    $user = user_save('', array(
      'name' => $name,
      'pass' => $pass,
      'init' => $mail,
      'mail' => $mail,
      'roles' => $edit['roles'],
      'status' => 1,
    ));

    //log in
    $edit = array(
      'name' => $name,
      'pass' => $pass,
    );
    $this
      ->drupalPostRequest('user', $edit, 'Log in', 0);

    //wartosci
    $my_category = 'Simpletest';

    //single line textfield
    $title = "single_" . $this
      ->randomName(10);
    $form_name = 'profile_' . $title;
    $explanation = $this
      ->randomName(50);

    /*   $options = "";
        for($i = 0; $i < 3; $i++)
          $options .= $this->randomName(8) . "\n";*/
    $edit = array(
      'category' => $my_category,
      'title' => $title,
      'name' => $form_name,
      'explanation' => $explanation,
    );
    $this
      ->drupalPostRequest("admin/user/profile/add/date", $edit, 'Save field', 0);
    $fid = db_result(db_query('SELECT fid FROM {profile_fields} WHERE title = "%s"', $title));
    $single_field = array(
      'title' => $title,
      'form_name' => $form_name,
      'explanation' => $explanation,
    );

    // checking simple fields
    $this->_browser
      ->get(url("user/" . $user->uid . "/edit/{$my_category}"));

    // checking name
    $this
      ->assertWantedText($title, "Checking title for " . $title);

    // checking explanation
    $this
      ->assertWantedText($explanation, "Checking explanation for " . $title);

    // checking days/month/years
    foreach (array(
      'year',
      'month',
      'day',
    ) as $field) {
      $this
        ->assertFalse($this
        ->setField('edit[' . $form_name . '][' . $field . ']', $this
        ->randomName(4)), 'Checking data field [' . $field . ']');
    }

    // ok, now let put some data
    // date 9-01-1983
    unset($edit);
    foreach (array(
      'year' => 1983,
      'month' => 'Jan',
      'day' => 9,
    ) as $field => $v) {
      $key = $form_name . '[' . $field . ']';
      $edit[$key] = $v;
    }
    list($format) = explode(' - ', variable_get('date_format_short', 'm/d/Y'), 2);
    $replace = array(
      'd' => sprintf('%02d', 9),
      'j' => 9,
      'm' => sprintf('%02d', '1'),
      'M' => map_month(1),
      'Y' => 1983,
    );
    $data = strtr($format, $replace);
    $this
      ->drupalPostRequest("user/" . $user->uid . "/edit/{$my_category}", $edit, 'Submit', 0);
    $this->_browser
      ->get(url("user/" . $user->uid));

    // checking profile page
    $this
      ->assertWantedText($data, "Checking date {$data}");
    $this
      ->assertWantedText($title, "Checking {$title}");

    // update field
    $new_title = $this
      ->randomName(20);
    $this
      ->drupalPostRequest("admin/user/profile/edit/{$fid}", array(
      'title' => $new_title,
    ), 'Save field', 0);
    $this->_browser
      ->get(url("admin/user/profile"));
    $this
      ->assertWantedText($new_title, "Checking updated field");

    // deleting field
    $this
      ->drupalPostRequest("admin/user/profile/delete/{$fid}", array(), 'Delete', 0);
    $this->_browser
      ->get(url("admin/user/profile"));
    $this
      ->assertNoUnwantedText($new_title, "Checking deleted field {$title}");

    // delete test user and roles
    if ($user->uid > 0) {
      db_query('DELETE FROM {users} WHERE uid =%d', $user->uid);
      db_query('DELETE FROM {users_roles} WHERE uid = %d', $user->uid);
      module_invoke_all('user', 'delete', '', $user);
    }

    //delete roles
    $edit['rid'] = $rid;
    $this
      ->_rolesApi('delete', $edit);
  }

}

Members

Namesort descending Modifiers Type Description Overrides
DrupalTestCase::$_cleanupModules property
DrupalTestCase::$_cleanupRoles property
DrupalTestCase::$_cleanupUsers property
DrupalTestCase::$_cleanupVariables property
DrupalTestCase::$_content property
DrupalTestCase::assertCopy function Will trigger a pass if both parameters refer to different objects. Fail otherwise.
DrupalTestCase::assertEqual function Will trigger a pass if the two parameters have the same value only. Otherwise a fail.
DrupalTestCase::assertError function Confirms that an error has occurred and optionally that the error text matches exactly.
DrupalTestCase::assertErrorPattern function Confirms that an error has occurred and that the error text matches a Perl regular expression.
DrupalTestCase::assertIdentical function Will trigger a pass if the two parameters have the same value and same type. Otherwise a fail.
DrupalTestCase::assertIsA function Type and class test. Will pass if class matches the type name or is a subclass or if not an object, but the type is correct.
DrupalTestCase::assertNoErrors function Confirms that no errors have occurred so far in the test method.
DrupalTestCase::assertNotA function Type and class mismatch test. Will pass if class name or underling type does not match the one specified.
DrupalTestCase::assertNotEqual function Will trigger a pass if the two parameters have a different value. Otherwise a fail.
DrupalTestCase::assertNotIdentical function Will trigger a pass if the two parameters have the different value or different type.
DrupalTestCase::assertNotNull function Will be true if the value is set.
DrupalTestCase::assertNoUnwantedPattern function Will trigger a pass if the Perl regex pattern is not present in subject. Fail if found.
DrupalTestCase::assertNoUnwantedRaw function Will trigger a pass if the raw text is NOT found on the loaded page Fail otherwise.
DrupalTestCase::assertNull function Will be true if the value is null.
DrupalTestCase::assertReference function Will trigger a pass if both parameters refer to the same object. Fail otherwise.
DrupalTestCase::assertWantedPattern function Will trigger a pass if the Perl regex pattern is found in the subject. Fail otherwise.
DrupalTestCase::assertWantedRaw function Will trigger a pass if the raw text is found on the loaded page Fail otherwise.
DrupalTestCase::clickLink function Follows a link by name. Will click the first link found with this link text by default, or a later one if an index is given. Match is case insensitive with normalised space. Does make assertations if the click was sucessful or not and it does…
DrupalTestCase::drupalCheckAuth function @abstract Checks to see if we need to send a http-auth header to authenticate when browsing a site.
DrupalTestCase::drupalCreateRolePerm function Create a role / perm combination specified by permissions
DrupalTestCase::drupalCreateUserRolePerm function Creates a user / role / permissions combination specified by permissions
DrupalTestCase::drupalGet function @abstract Brokder for the get function adds the authentication headers if necessary @author Earnest Berry III <earnest.berry@gmail.com>
DrupalTestCase::drupalGetContent function @TODO: needs documentation
DrupalTestCase::drupalLoginUser function Logs in a user with the internal browser
DrupalTestCase::drupalModuleDisable function Disables a drupal module
DrupalTestCase::drupalModuleEnable function Enables a drupal module
DrupalTestCase::drupalPostRequest function Do a post request on a drupal page. It will be done as usual post request with SimpleBrowser
DrupalTestCase::drupalRawPost function @abstract Broker for the post function adds the authentication headers if necessary @author Earnest Berry III <earnest.berry@gmail.com>
DrupalTestCase::DrupalTestCase function
DrupalTestCase::drupalVariableSet function Set a druapl variable and keep track of the changes for tearDown()
DrupalTestCase::randomName function Generates a random string, to be used as name or whatever
DrupalTestCase::run function Just some info for the reporter
DrupalTestCase::tearDown function tearDown implementation, setting back switched modules etc 1
ProfileModuleTestDate::get_info function
ProfileModuleTestDate::testProfileSingle function
ProfileModuleTestDate::_rolesApi function