#275796 by Gribnif: module_list() tried to reset a static using unset().

From: Damien Tournoud <damien@tournoud.net>


---

 includes/module.inc                  |    2 -
 modules/simpletest/tests/module.test |   88 ++++++++++++++++++++++++++++++++++
 2 files changed, 89 insertions(+), 1 deletions(-)
 create mode 100644 modules/simpletest/tests/module.test


diff --git includes/module.inc includes/module.inc
index 4761221..c0566d8 100644
--- includes/module.inc
+++ includes/module.inc
@@ -47,8 +47,8 @@ function module_list($refresh = FALSE, $sort = FALSE, $fixed_list = NULL) {
   static $list = array(), $sorted_list;
 
   if (empty($list) || $refresh || $fixed_list) {
-    unset($sorted_list);
     $list = array();
+    $sorted_list = NULL;
     if ($fixed_list) {
       foreach ($fixed_list as $name => $module) {
         drupal_get_filename('module', $name, $module['filename']);
diff --git modules/simpletest/tests/module.test modules/simpletest/tests/module.test
new file mode 100644
index 0000000..3022058
--- /dev/null
+++ modules/simpletest/tests/module.test
@@ -0,0 +1,88 @@
+<?php
+// $Id $
+
+/**
+ * @file
+ * Tests for the module API.
+ */
+
+/**
+ * Unit tests for the module PAI.
+ */
+class ModuleUnitTest extends DrupalWebTestCase {
+  function getInfo() {
+    return array(
+      'name' => t('Module API'),
+      'description' => t('Test low-level module functions.'),
+      'group' => t('Module'),
+    );
+  }
+
+  /**
+   * The expected list of currently installed modules, keyed by module name.
+   *
+   * @var array
+   */
+  protected $moduleList;
+
+  function setUp() {
+    parent::setUp();
+    $module_list = drupal_get_profile_modules('default', 'en');
+    $this->moduleList = array_combine($module_list, $module_list);
+    $this->sortedModuleList = $this->moduleList;
+    ksort($this->sortedModuleList);
+  }
+
+  /**
+   * The basic functionality of module_list().
+   */
+  function testModuleList() {
+    $base_module_list = drupal_get_profile_modules('default', 'en');
+    // Key the list by module name.
+    $base_module_list = array_combine($base_module_list, $base_module_list);
+    // All default profile modules have a weight equal to 0, the default sort
+    // order is thus simply alphabetical.
+    ksort($base_module_list);
+    $this->assertModuleList($base_module_list, t('Default profile'));
+
+    // Try to install a new module.
+    drupal_install_modules(array('path'));
+    $base_module_list['path'] = 'path';
+    ksort($base_module_list);
+    $this->assertModuleList($base_module_list, t('After adding a module'));
+
+    // Try to mess with the module weights.
+    db_query("UPDATE {system} SET weight = 20 WHERE name = 'path' AND type = 'module'");
+    // Reset the module list.
+    module_list(TRUE);
+    // Move path at the end of the array.
+    unset($base_module_list['path']);
+    $base_module_list['path'] = 'path';
+    $this->assertModuleList($base_module_list, t('After changing weights'));
+
+    // Test the fixed list feature.
+    $fixed_list = array(
+      'system' => array('filename' => drupal_get_path('module', 'system')),
+      'menu' => array('filename' => drupal_get_path('module', 'menu')),
+    );
+    module_list(FALSE, FALSE, $fixed_list);
+    $new_module_list = array_combine(array_keys($fixed_list), array_keys($fixed_list));
+    $this->assertModuleList($new_module_list, t('When using a fixed list'));
+
+    // Reset the module list.
+    module_list(TRUE);
+    $this->assertModuleList($base_module_list, t('After reset'));
+  }
+
+  /**
+   * Assert that module_list() return the expected values.
+   *
+   * @param $expected_values
+   *   The expected values, sorted by weight and file name.
+   */
+  protected function assertModuleList(Array $expected_values, $condition) {
+    $this->assertIdentical($expected_values, module_list(), t('@condition: module_list() returns correct results', array('@condition' => $condition)));
+    ksort($expected_values);
+    $this->assertIdentical($expected_values, module_list(FALSE, TRUE), t('@condition: module_list() returns correctly sorted results', array('@condition' => $condition)));
+  }
+}