Alan Stanley
10 years ago
45 changed files with 2904 additions and 1451 deletions
@ -0,0 +1,26 @@ |
|||||||
|
<?php |
||||||
|
|
||||||
|
/** |
||||||
|
* @file |
||||||
|
* Implementation of Rules hooks, giving default configurations. |
||||||
|
*/ |
||||||
|
|
||||||
|
/** |
||||||
|
* Implements hook_default_rules_configuration(). |
||||||
|
*/ |
||||||
|
function islandora_default_rules_configuration() { |
||||||
|
$rule = rules_reaction_rule(); |
||||||
|
$rule->label = 'E-mail admin'; |
||||||
|
$rule->active = FALSE; |
||||||
|
$rule |
||||||
|
->event('islandora_object_ingested') |
||||||
|
->action( |
||||||
|
'mail', |
||||||
|
array( |
||||||
|
'to' => '[site:mail]', |
||||||
|
'subject' => '[[site:name]] "[object:label]" has been ingested', |
||||||
|
'message' => '[object:label] has been ingested as [object:id].', |
||||||
|
) |
||||||
|
); |
||||||
|
return array('islandora_object_ingested_notify_admin' => $rule); |
||||||
|
} |
||||||
@ -1,18 +0,0 @@ |
|||||||
/** |
|
||||||
* @file |
|
||||||
* JavaScript file responsable for the print button behaviour. |
|
||||||
*
|
|
||||||
* The print button is added automatically to every view, as metadata |
|
||||||
* can be printed from every object. |
|
||||||
* |
|
||||||
*/ |
|
||||||
(function ($) { |
|
||||||
$(document).ready(function() { |
|
||||||
$('.tabs .primary').append('<img id="print_btn" title="Print" src="' + Drupal.settings.basePath + Drupal.settings.islandora.print_img + '"></img>'); |
|
||||||
$('#print_btn').css("cursor","pointer"); |
|
||||||
$('#print_btn').click(function() { |
|
||||||
window.location=Drupal.settings.basePath + Drupal.settings.islandora.print_link; |
|
||||||
}); |
|
||||||
}); |
|
||||||
})(jQuery); |
|
||||||
|
|
||||||
@ -1,31 +0,0 @@ |
|||||||
<?xml version="1.0" encoding="UTF-8"?> |
|
||||||
<Policy xmlns="urn:oasis:names:tc:xacml:1.0:policy" |
|
||||||
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" |
|
||||||
PolicyId="permit-apim-to-authenticated-user" |
|
||||||
RuleCombiningAlgId="urn:oasis:names:tc:xacml:1.0:rule-combining-algorithm:first-applicable"> |
|
||||||
<Description>note that other policies may provide exceptions to this broad policy. This policy assumes api-m users have to be authenticated</Description> |
|
||||||
<Target> |
|
||||||
<Subjects> |
|
||||||
<Subject> |
|
||||||
<SubjectMatch MatchId="urn:oasis:names:tc:xacml:1.0:function:string-equal"> |
|
||||||
<AttributeValue DataType="http://www.w3.org/2001/XMLSchema#string">authenticated user</AttributeValue> |
|
||||||
<SubjectAttributeDesignator AttributeId="fedoraRole" MustBePresent="false" |
|
||||||
DataType="http://www.w3.org/2001/XMLSchema#string"/> |
|
||||||
</SubjectMatch> |
|
||||||
</Subject> |
|
||||||
</Subjects> |
|
||||||
<Resources> |
|
||||||
<AnyResource/> |
|
||||||
</Resources> |
|
||||||
<Actions> |
|
||||||
<Action> |
|
||||||
<ActionMatch MatchId="urn:oasis:names:tc:xacml:1.0:function:string-equal"> |
|
||||||
<AttributeValue DataType="http://www.w3.org/2001/XMLSchema#string">urn:fedora:names:fedora:2.1:action:api-m</AttributeValue> |
|
||||||
<ActionAttributeDesignator DataType="http://www.w3.org/2001/XMLSchema#string" |
|
||||||
AttributeId="urn:fedora:names:fedora:2.1:action:api"/> |
|
||||||
</ActionMatch> |
|
||||||
</Action> |
|
||||||
</Actions> |
|
||||||
</Target> |
|
||||||
<Rule RuleId="1" Effect="Permit"/> |
|
||||||
</Policy> |
|
||||||
@ -1,25 +0,0 @@ |
|||||||
<?xml version="1.0" encoding="UTF-8"?> |
|
||||||
<Policy xmlns="urn:oasis:names:tc:xacml:1.0:policy" |
|
||||||
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" |
|
||||||
PolicyId="permit-getDatastreamHistory-to-authenticated" |
|
||||||
RuleCombiningAlgId="urn:oasis:names:tc:xacml:1.0:rule-combining-algorithm:first-applicable"> |
|
||||||
<Description>Note that other policies may provide exceptions to this broad policy. This policy assumes api-m users have to be authenticated</Description> |
|
||||||
<Target> |
|
||||||
<Subjects> |
|
||||||
<AnySubject/> |
|
||||||
</Subjects> |
|
||||||
<Resources> |
|
||||||
<AnyResource/> |
|
||||||
</Resources> |
|
||||||
<Actions> |
|
||||||
<Action> |
|
||||||
<ActionMatch MatchId="urn:oasis:names:tc:xacml:1.0:function:string-equal"> |
|
||||||
<AttributeValue DataType="http://www.w3.org/2001/XMLSchema#string">urn:fedora:names:fedora:2.1:action:id-getDatastream</AttributeValue> |
|
||||||
<ActionAttributeDesignator DataType="http://www.w3.org/2001/XMLSchema#string" |
|
||||||
AttributeId="urn:fedora:names:fedora:2.1:action:id"/> |
|
||||||
</ActionMatch> |
|
||||||
</Action> |
|
||||||
</Actions> |
|
||||||
</Target> |
|
||||||
<Rule RuleId="1" Effect="Permit"/> |
|
||||||
</Policy> |
|
||||||
@ -1,25 +0,0 @@ |
|||||||
<?xml version="1.0" encoding="UTF-8"?> |
|
||||||
<Policy xmlns="urn:oasis:names:tc:xacml:1.0:policy" |
|
||||||
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" |
|
||||||
PolicyId="permit-getDatastreamHistory-to-authenticated" |
|
||||||
RuleCombiningAlgId="urn:oasis:names:tc:xacml:1.0:rule-combining-algorithm:first-applicable"> |
|
||||||
<Description>Note that other policies may provide exceptions to this broad policy. This policy assumes api-m users have to be authenticated</Description> |
|
||||||
<Target> |
|
||||||
<Subjects> |
|
||||||
<AnySubject/> |
|
||||||
</Subjects> |
|
||||||
<Resources> |
|
||||||
<AnyResource/> |
|
||||||
</Resources> |
|
||||||
<Actions> |
|
||||||
<Action> |
|
||||||
<ActionMatch MatchId="urn:oasis:names:tc:xacml:1.0:function:string-equal"> |
|
||||||
<AttributeValue DataType="http://www.w3.org/2001/XMLSchema#string">urn:fedora:names:fedora:2.1:action:id-getDatastreamHistory</AttributeValue> |
|
||||||
<ActionAttributeDesignator DataType="http://www.w3.org/2001/XMLSchema#string" |
|
||||||
AttributeId="urn:fedora:names:fedora:2.1:action:id"/> |
|
||||||
</ActionMatch> |
|
||||||
</Action> |
|
||||||
</Actions> |
|
||||||
</Target> |
|
||||||
<Rule RuleId="1" Effect="Permit"/> |
|
||||||
</Policy> |
|
||||||
@ -1,31 +0,0 @@ |
|||||||
<?xml version="1.0" encoding="UTF-8"?> |
|
||||||
<Policy xmlns="urn:oasis:names:tc:xacml:1.0:policy" |
|
||||||
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" |
|
||||||
PolicyId="permit-upload-to-authenticated-user" |
|
||||||
RuleCombiningAlgId="urn:oasis:names:tc:xacml:1.0:rule-combining-algorithm:first-applicable"> |
|
||||||
<Description></Description> |
|
||||||
<Target> |
|
||||||
<Subjects> |
|
||||||
<Subject> |
|
||||||
<SubjectMatch MatchId="urn:oasis:names:tc:xacml:1.0:function:string-equal"> |
|
||||||
<AttributeValue DataType="http://www.w3.org/2001/XMLSchema#string">authenticated user</AttributeValue> |
|
||||||
<SubjectAttributeDesignator AttributeId="fedoraRole" MustBePresent="false" |
|
||||||
DataType="http://www.w3.org/2001/XMLSchema#string"/> |
|
||||||
</SubjectMatch> |
|
||||||
</Subject> |
|
||||||
</Subjects> |
|
||||||
<Resources> |
|
||||||
<AnyResource/> |
|
||||||
</Resources> |
|
||||||
<Actions> |
|
||||||
<Action> |
|
||||||
<ActionMatch MatchId="urn:oasis:names:tc:xacml:1.0:function:string-equal"> |
|
||||||
<AttributeValue DataType="http://www.w3.org/2001/XMLSchema#string">urn:fedora:names:fedora:2.1:action:id-upload</AttributeValue> |
|
||||||
<ActionAttributeDesignator DataType="http://www.w3.org/2001/XMLSchema#string" |
|
||||||
AttributeId="urn:fedora:names:fedora:2.1:action:id"/> |
|
||||||
</ActionMatch> |
|
||||||
</Action> |
|
||||||
</Actions> |
|
||||||
</Target> |
|
||||||
<Rule RuleId="1" Effect="Permit"/> |
|
||||||
</Policy> |
|
||||||
@ -1,4 +1,43 @@ |
|||||||
You can define your own configurations specific to your enviroment by copying |
OVERVIEW |
||||||
|
******** |
||||||
|
|
||||||
|
You can define your own configurations specific to your environment by copying |
||||||
default.test_config.ini to test_config.ini, making your changes in the copied |
default.test_config.ini to test_config.ini, making your changes in the copied |
||||||
file. These test need write access to the system's $FEDORA_HOME/server/config |
file. These test need write access to the system's $FEDORA_HOME/server/config |
||||||
directory as well as the filter-drupal.xml file. |
directory as well as the filter-drupal.xml file. |
||||||
|
|
||||||
|
DATASTREAM VALIDATION TESTS |
||||||
|
*************************** |
||||||
|
|
||||||
|
The datastream validator included in the Islandora testing suite is able to |
||||||
|
generate tests procedurally based on the files in the folder |
||||||
|
'fixtures/datastream_validator_files'. By default, this folder is empty. |
||||||
|
The unit tests for the validator pull the name of the file (before the |
||||||
|
extension) and use that to instantiate the correct ______DatastreamValidator |
||||||
|
class to test that file against (e.g. Image.jpg spins up an instance of the |
||||||
|
ImageDatastreamValidator class and checks the results). |
||||||
|
|
||||||
|
You can test against multiple different encodings of the same filetype by giving |
||||||
|
each file a different set of extensions, e.g. MP3.vbr.mp3 and MP3.sbr.mp3 both |
||||||
|
test against the MP3 datastream validator, even though both are encoded |
||||||
|
differently. |
||||||
|
|
||||||
|
For classes that require the third parameter (e.g. the TextDatastreamValidator), |
||||||
|
place an additional name.extension.ini file in the datastream_validator_files |
||||||
|
folder (e.g. the Text.txt would be paired with Text.txt.ini). This .ini file |
||||||
|
should be structured like a PHP .ini file (e.g. according to the format used by |
||||||
|
http://php.net/parse_ini_file).The generated test will parse the .ini |
||||||
|
file as an array and pass it on to the third parameter. |
||||||
|
|
||||||
|
The following prefixes are currently available for use: |
||||||
|
|
||||||
|
- Image (jpg, png, gif, and other filetypes recognized by PHPGD) |
||||||
|
- TIFF |
||||||
|
- JP2 |
||||||
|
- PDF |
||||||
|
- Text (requires a configured .ini) |
||||||
|
- WAV |
||||||
|
- MP3 |
||||||
|
- MP4 |
||||||
|
- OGG (asserts OGG video; use an .ini with an 'audio' key to test audio only) |
||||||
|
- MKV |
||||||
|
|||||||
@ -0,0 +1,276 @@ |
|||||||
|
<?php |
||||||
|
/** |
||||||
|
* @file |
||||||
|
* Tests for things that test tests. Madness. |
||||||
|
*/ |
||||||
|
|
||||||
|
/** |
||||||
|
* A test DatastreamValidator for the DatastreamValidatorResultTestCase. |
||||||
|
*/ |
||||||
|
class TestDatastreamValidator extends DatastreamValidator { |
||||||
|
|
||||||
|
/** |
||||||
|
* Assertion that adds a TRUE result. |
||||||
|
*/ |
||||||
|
protected function assertSomethingSuccessfully() { |
||||||
|
$this->addResult(TRUE, 'yay you did it', $this->getAssertionCall()); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Assertion that adds a FALSE result. |
||||||
|
*/ |
||||||
|
protected function assertSomethingFailed() { |
||||||
|
$this->addResult(FALSE, 'boo you failed', $this->getAssertionCall()); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Tests the ability of DatastreamValidators to produce correct results. |
||||||
|
*/ |
||||||
|
class DatastreamValidatorResultTestCase extends IslandoraWebTestCase { |
||||||
|
|
||||||
|
/** |
||||||
|
* Returns the info for this test case. |
||||||
|
* |
||||||
|
* @see DrupalWebTestCase::getInfo() |
||||||
|
*/ |
||||||
|
public static function getInfo() { |
||||||
|
return array( |
||||||
|
'name' => 'Datastream Validator Result Tests', |
||||||
|
'description' => 'Unit tests for datastream validation result functionality.', |
||||||
|
'group' => 'Islandora', |
||||||
|
); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Sets up the test. |
||||||
|
* |
||||||
|
* @see DrupalWebTestCase::setUp() |
||||||
|
*/ |
||||||
|
public function setUp() { |
||||||
|
parent::setUp(); |
||||||
|
$user = $this->drupalCreateUser(array_keys(module_invoke_all('permission'))); |
||||||
|
$this->drupalLogin($user); |
||||||
|
$object = $this->ingestConstructedObject(); |
||||||
|
$validator = new TestDatastreamValidator($object, 'DC'); |
||||||
|
$this->validator_results = $validator->getResults(); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Generates a generic DatastreamValidatorResult and grabs its properties. |
||||||
|
*/ |
||||||
|
public function testDatastreamValidatorResult() { |
||||||
|
$result = new IslandoraTestUtilityResult(TRUE, 'true', array()); |
||||||
|
$this->assertEqual($result->getMessage(), 'true', "Result message generated correctly.", 'Islandora'); |
||||||
|
$this->assertEqual($result->getType(), TRUE, "Result type generated correctly.", 'Islandora'); |
||||||
|
$this->assertEqual($result->getCaller(), array(), "Result caller generated correctly.", 'Islandora'); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Gets the results of TestDatastreamValidator and confirms only 2 exist. |
||||||
|
*/ |
||||||
|
public function testTestDatastreamValidatorResultCount() { |
||||||
|
$this->assertTrue(isset($this->validator_results[0]), "First of two expected results found.", 'Islandora'); |
||||||
|
$this->assertTrue(isset($this->validator_results[1]), "Second of two expected results found.", 'Islandora'); |
||||||
|
$this->assertFalse(isset($this->validator_results[2]), "No other unexpected results found.", 'Islandora'); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Confirms the messages from TestDatastreamValidator. |
||||||
|
*/ |
||||||
|
public function testTestDatastreamValidatorMessages() { |
||||||
|
if (isset($this->validator_results[0]) && isset($this->validator_results[1])) { |
||||||
|
$this->assertEqual($this->validator_results[0]->getMessage(), 'yay you did it', "Appropriate pass message returned.", 'Islandora'); |
||||||
|
$this->assertEqual($this->validator_results[1]->getMessage(), 'boo you failed', "Appropriate fail message returned.", 'Islandora'); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Confirms the types from TestDatastreamValidator. |
||||||
|
*/ |
||||||
|
public function testTestDatastreamValidatorTypes() { |
||||||
|
if (isset($this->validator_results[0]) && isset($this->validator_results[1])) { |
||||||
|
$this->assertEqual($this->validator_results[0]->getType(), TRUE, "Appropriate pass type of TRUE returned.", 'Islandora'); |
||||||
|
$this->assertEqual($this->validator_results[1]->getType(), FALSE, "Appropriate fail type of FALSE returned.", 'Islandora'); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Confirms the useful information from TestDatastreamValidator. |
||||||
|
*/ |
||||||
|
public function testTestDatastreamValidatorCallers() { |
||||||
|
if (isset($this->validator_results[0]) && isset($this->validator_results[1])) { |
||||||
|
// Grab the callers. |
||||||
|
$first_caller = $this->validator_results[0]->getCaller(); |
||||||
|
$second_caller = $this->validator_results[1]->getCaller(); |
||||||
|
|
||||||
|
// Assert the 'file' key. |
||||||
|
$this->assertTrue(substr($first_caller['file'], -48) === '/islandora/tests/datastream_validator_tests.test', "Appropriate pass caller file returned.", 'Islandora'); |
||||||
|
$this->assertTrue(substr($first_caller['file'], -48) === substr($second_caller['file'], -48), "Fail caller file matches the pass caller file.", 'Islandora'); |
||||||
|
$this->assertTrue($first_caller['function'] === 'TestDatastreamValidator->assertSomethingSuccessfully()', "Correct pass caller function returned (actual: {$first_caller['function']}; expected: TestDatastreamValidator->assertSomethingSuccessfully()).", 'Islandora'); |
||||||
|
$this->assertTrue($second_caller['function'] === 'TestDatastreamValidator->assertSomethingFailed()', "Correct fail caller function returned (actual: {$second_caller['function']}; expected: TestDatastreamValidator->assertSomethingFailed()).", 'Islandora'); |
||||||
|
$this->assertTrue($first_caller['line'] === 16, "Correct pass line number returned (actual: {$first_caller['line']}; expected: 16).", 'Islandora'); |
||||||
|
$this->assertTrue($second_caller['line'] === 23, "Correct fail line number returned (actual: {$second_caller['line']}; expected: 23).", 'Islandora'); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Procedurally generated tests for DatastreamValidators. |
||||||
|
*/ |
||||||
|
class PrefixDatastreamValidatorTestCase extends IslandoraWebTestCase { |
||||||
|
|
||||||
|
/** |
||||||
|
* The path to the datastream validator files. |
||||||
|
* |
||||||
|
* @var string |
||||||
|
*/ |
||||||
|
protected $path; |
||||||
|
|
||||||
|
/** |
||||||
|
* Returns the info for this test case. |
||||||
|
* |
||||||
|
* @see DrupalWebTestCase::getInfo() |
||||||
|
*/ |
||||||
|
public static function getInfo() { |
||||||
|
return array( |
||||||
|
'name' => 'Datastream File Validation Tests', |
||||||
|
'description' => 'Tests each file in the islandora/tests/fixtures/datastream_validator_files folder against the appropriate DatastreamValidator class (see the README.md in the tests folder for details).', |
||||||
|
'group' => 'Islandora', |
||||||
|
); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Sets up the test. |
||||||
|
* |
||||||
|
* @see DrupalWebTestCase::setUp() |
||||||
|
*/ |
||||||
|
public function setUp() { |
||||||
|
parent::setUp(); |
||||||
|
$this->path = DRUPAL_ROOT . drupal_get_path('module', 'islandora') . "/tests/fixtures/datastream_validator_files/"; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Confirms that a DatastreamValidator class exists for given filename. |
||||||
|
* |
||||||
|
* @param string $filename |
||||||
|
* The file to grab the DatastreamValidator prefix from. |
||||||
|
* |
||||||
|
* @return bool |
||||||
|
* TRUE if such a class exists; FALSE otherwise. |
||||||
|
*/ |
||||||
|
protected function confirmValidatorClass($filename) { |
||||||
|
$prefix = $this->getPrefix($filename); |
||||||
|
if (!class_exists("{$prefix}DatastreamValidator")) { |
||||||
|
$this->fail("No such DatastreamValidator exists for the prefix $prefix (filename: $filename)."); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
return TRUE; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Confirms that a file exists at the given path. |
||||||
|
* |
||||||
|
* Bundled with lovely return values and fail messages. |
||||||
|
* |
||||||
|
* @param string $path |
||||||
|
* The path to the file. |
||||||
|
* |
||||||
|
* @return bool |
||||||
|
* TRUE if the file exists, FALSE otherwise. |
||||||
|
*/ |
||||||
|
protected function confirmValidatorFile($path) { |
||||||
|
if (!file_exists($path)) { |
||||||
|
$this->fail("No such file exists at path $path."); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
return TRUE; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Gets the intended prefix from a filename. |
||||||
|
* |
||||||
|
* Uses the portion of the filename before the first period. |
||||||
|
* |
||||||
|
* @param string $filename |
||||||
|
* The filename to get the prefix for. |
||||||
|
* |
||||||
|
* @return string |
||||||
|
* The intended prefix. |
||||||
|
*/ |
||||||
|
protected function getPrefix($filename) { |
||||||
|
return array_shift(explode('.', $filename)); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Create an object with a datastream generated from the given filename. |
||||||
|
* |
||||||
|
* @param string $filename |
||||||
|
* The filename to use when adding a datastream. |
||||||
|
* |
||||||
|
* @return IslandoraFedoraObject |
||||||
|
* The created object. |
||||||
|
*/ |
||||||
|
protected function createObjectWithDatastream($filename) { |
||||||
|
$prefix = $this->getPrefix($filename); |
||||||
|
if (!$this->confirmValidatorClass($filename) && !$this->confirmValidatorFile($this->path . $filename)) { |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
|
||||||
|
$datastreams = array(array( |
||||||
|
'dsid' => $prefix, |
||||||
|
'path' => $this->path . $filename, |
||||||
|
'control_group' => 'M', |
||||||
|
), |
||||||
|
); |
||||||
|
$object = $this->ingestConstructedObject(array(), $datastreams); |
||||||
|
return $object; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Procedurally test each file in $this->path against a datastream validator. |
||||||
|
* |
||||||
|
* Check the README.md in this folder for details. |
||||||
|
*/ |
||||||
|
public function testDatastreamValidators() { |
||||||
|
|
||||||
|
// Grab everything in the validator files folder except for .ini files. |
||||||
|
$files = array_intersect(glob("{$this->path}/*"), glob("{$this->path}/*.ini")); |
||||||
|
|
||||||
|
foreach ($files as $file) { |
||||||
|
$prefix = $this->getPrefix($file); |
||||||
|
|
||||||
|
// If createObjectWithDatastream fails, we don't want to continue. We'll |
||||||
|
// task it with returning fail messages rather than do so here. |
||||||
|
$object = $this->createObjectWithDatastream($file); |
||||||
|
if ($object !== FALSE) { |
||||||
|
// Generate an appropriate validator. |
||||||
|
$validator_name = "{$prefix}DatastreamValidator"; |
||||||
|
// If the file is paired with an .ini, use it as the third param. |
||||||
|
if (file_exists("{$this->path}$file.ini")) { |
||||||
|
$validator = new $validator_name($object, $prefix, parse_ini_file("{$this->path}$file.ini")); |
||||||
|
} |
||||||
|
else { |
||||||
|
$validator = new $validator_name($object, $prefix); |
||||||
|
} |
||||||
|
|
||||||
|
// Get the results, check for fails. |
||||||
|
$results = $validator->getResults(); |
||||||
|
$fails = FALSE; |
||||||
|
foreach ($results as $result) { |
||||||
|
if (!$result->getType()) { |
||||||
|
$fails = TRUE; |
||||||
|
$caller = $result->getCaller(); |
||||||
|
$this->fail("Failed to validate the test file $file against the assertion {$caller['function']}."); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
// If there were no fails, say that the file passed validation. |
||||||
|
if (!$fails) { |
||||||
|
$this->pass("Test file $file validated successfully."); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
@ -1,473 +0,0 @@ |
|||||||
<?php |
|
||||||
|
|
||||||
/** |
|
||||||
* @file |
|
||||||
* Assertions for various datastream types. |
|
||||||
* |
|
||||||
* For a datastream validator to work correctly with IslandoraWebTestCase:: |
|
||||||
* validateDatastreams(), it needs to return an array of results, each entry of |
|
||||||
* which contains two values: first, TRUE or FALSE, depending on whether or not |
|
||||||
* that particular result passed or failed, and second, a string containing a |
|
||||||
* message to accompany the result. |
|
||||||
* |
|
||||||
* It also should contain three parameters, all of which may use any label, but |
|
||||||
* must be organized in the following order: |
|
||||||
* $object - an object that the datastream can be loaded from. |
|
||||||
* $datastream - a DSID to pull from $object. |
|
||||||
* $optional_params - a parameter for any data the function requires. |
|
||||||
* |
|
||||||
* When IslandoraWebTestCase::validateDatastreams() is called, it is passed an |
|
||||||
* array of datastreams, each of which is itself an array containing the DSID of |
|
||||||
* the datastream, the middle of the function name (image, pdf, tiff, etc.), and |
|
||||||
* (optional) data to be passed to that third parameter. |
|
||||||
*/ |
|
||||||
|
|
||||||
/** |
|
||||||
* A function to pass assertions to and receive results from. |
|
||||||
* |
|
||||||
* @param bool $assertion |
|
||||||
* The if/then statement to validate against. |
|
||||||
* @param array $results |
|
||||||
* An array of results to append the generated result to. |
|
||||||
* @param string $pass |
|
||||||
* A message to return if the assertion turns up true. |
|
||||||
* @param string $fail |
|
||||||
* An optional message to return if the assertion turns up false. |
|
||||||
* If left empty, the $pass message will be returned. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* A result that can be made useful in the validation functions below. |
|
||||||
*/ |
|
||||||
function islandora_assert_valid($assertion, $results, $pass, $fail = NULL) { |
|
||||||
if ($assertion) { |
|
||||||
$result = array(TRUE, $pass); |
|
||||||
} |
|
||||||
else { |
|
||||||
if (isset($fail)) { |
|
||||||
$result = array(FALSE, $fail); |
|
||||||
} |
|
||||||
else { |
|
||||||
$result = array(FALSE, $pass); |
|
||||||
} |
|
||||||
} |
|
||||||
array_push($results, $result); |
|
||||||
return $results; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Converts a hexidecimal string to an integer. |
|
||||||
* |
|
||||||
* This is useful for running checks on values that appear in the binary |
|
||||||
* of a datastream. Returns FALSE if the hex value contains non-hex characters |
|
||||||
* or if the string would not return a 16- or 32-bit formatted big-endian |
|
||||||
* signed integer. |
|
||||||
* |
|
||||||
* @param string $hex |
|
||||||
* The hexidecimal string. |
|
||||||
* |
|
||||||
* @return bool|int |
|
||||||
* FALSE on failure, or the integer on success. |
|
||||||
*/ |
|
||||||
function islandora_hex2int($hex) { |
|
||||||
|
|
||||||
// A couple of quick string checks. |
|
||||||
if (!ctype_xdigit($hex)) { |
|
||||||
drupal_set_message(t('String passed to islandora_hex2int() contains non-hexidecimal characters.'), 'error'); |
|
||||||
return FALSE; |
|
||||||
} |
|
||||||
if (!strlen($hex) === 4 || !strlen($hex) === 8) { |
|
||||||
drupal_set_message(t('String passed to islandora_hex2int() cannot create a 16- or 32-bit little-endian signed integer'), 'error'); |
|
||||||
return FALSE; |
|
||||||
} |
|
||||||
|
|
||||||
// The actual conversion. |
|
||||||
try { |
|
||||||
$reverse_hex = implode('', array_reverse(str_split($hex, 2))); |
|
||||||
$int = hexdec($reverse_hex); |
|
||||||
return $int; |
|
||||||
} |
|
||||||
catch (Exception $e) { |
|
||||||
throw new Exception('An error occurred during the conversion of hexidecimal to integer.', 0, $e); |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Asserts that an object's given datastreams are common-type image files. |
|
||||||
* |
|
||||||
* Uses PHPGD to run the assertion check. This means that only certain kinds |
|
||||||
* of image files can be checked. Please check the documentation for the PHPGD |
|
||||||
* imagecreatefromstring() function to determine what filetypes are valid. |
|
||||||
* |
|
||||||
* @param AbstractObject $object |
|
||||||
* The PID of the object. |
|
||||||
* @param string $datastream |
|
||||||
* A DSID to check that corresponds to a PHPGD-valid image datastream. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* A series of TRUE(pass)/FALSE(fail) results paired with result messages. |
|
||||||
*/ |
|
||||||
function islandora_validate_image_datastream($object, $datastream) { |
|
||||||
$datastream_string = $object[$datastream]->content; |
|
||||||
$results = array(); |
|
||||||
$pass = "Image datastream {$datastream} is valid."; |
|
||||||
$fail = "Image datastream {$datastream} is either invalid or corrupt."; |
|
||||||
$results = islandora_assert_valid(imagecreatefromstring($datastream_string), $results, $pass, $fail); |
|
||||||
return $results; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Asserts the validity of any .tif/.tiff datastream. |
|
||||||
* |
|
||||||
* Does not use the islandora_assert_valid() function, as this is not a simple |
|
||||||
* true/false. |
|
||||||
* |
|
||||||
* @param AbstractObject $object |
|
||||||
* The PID of the object. |
|
||||||
* @param string $datastream |
|
||||||
* A DSID to check that corresponds to a .tif/.tiff datastream. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* A series of TRUE(pass)/FALSE(fail) results paired with result messages. |
|
||||||
*/ |
|
||||||
function islandora_validate_tiff_datastream($object, $datastream) { |
|
||||||
$datastream_string = $object[$datastream]->content; |
|
||||||
$datastream_header_hex = substr(bin2hex($datastream_string), 0, 8); |
|
||||||
$results = array(); |
|
||||||
if ($datastream_header_hex == "49492a00") { |
|
||||||
// In this case, the ingested TIFF is designated as using the "Intel |
|
||||||
// byte-order" (e.g. little-endian) by starting with the characters "II" |
|
||||||
// (repeated so that byte order does not yet need to be significant). |
|
||||||
// The number that follows is '42' in little-endian hex, a number of |
|
||||||
// 'deep philosophical significance' to the TIFF format creators. |
|
||||||
array_push($results, array(TRUE, "{$datastream} datastream asserts that it is a valid Intel-byte-orderded TIF/TIFF file.")); |
|
||||||
} |
|
||||||
elseif ($datastream_header_hex == "4d4d002a") { |
|
||||||
// In this case, the ingested TIFF is designated as using the "Motorola |
|
||||||
// byte-order" (e.g. big-endian) by starting with the characters "MM" |
|
||||||
// instead. 42 follows once again, this time in big-endian hex. |
|
||||||
array_push($results, array(TRUE, "{$datastream} datastream asserts that it is a valid Motorola-byte-ordered TIF/TIFF file.")); |
|
||||||
} |
|
||||||
else { |
|
||||||
array_push($results, array(FALSE, "{$datastream} datastream does not assert that it is a valid TIF/TIFF file.")); |
|
||||||
} |
|
||||||
return $results; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Asserts the validity of any .jp2 datastream. |
|
||||||
* |
|
||||||
* @param AbstractObject $object |
|
||||||
* The PID of the object. |
|
||||||
* @param string $datastream |
|
||||||
* A DSID to check that corresponds to a .jp2 datastream. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* A series of TRUE(pass)/FALSE(fail) results paired with result messages. |
|
||||||
*/ |
|
||||||
function islandora_validate_jp2_datastream($object, $datastream) { |
|
||||||
$datastream_hex = bin2hex($object[$datastream]->content); |
|
||||||
$results = array(); |
|
||||||
// JP2 files begin with an offset header at the second 32-bit integer, |
|
||||||
// 0x6A502020. This header is in all .jp2s, and we check for it here. |
|
||||||
$pass = "{$datastream} datastream begins correctly with the appropriate .jp2 header."; |
|
||||||
$fail = "{$datastream} datastream does not begin with the appropriate .jp2 header."; |
|
||||||
$results = islandora_assert_valid(substr($datastream_hex, 8, 8) == '6a502020', $results, $pass, $fail); |
|
||||||
// JP2 files have their codestream capped with a marker, 0xFFD9. We're |
|
||||||
// just checking for it here to see if the .jp2 encoder finished okay. |
|
||||||
$pass = "{$datastream} datastream ends correctly with the appropriate .jp2 marker."; |
|
||||||
$fail = "{$datastream} datastream does not end with a .jp2 marker; derivative generation was likely interrupted."; |
|
||||||
$results = islandora_assert_valid(substr($datastream_hex, strlen($datastream_hex) - 4, 4) == 'ffd9', $results, $pass, $fail); |
|
||||||
return $results; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Asserts the validity of any .pdf datastream. |
|
||||||
* |
|
||||||
* @param AbstractObject $object |
|
||||||
* The PID of the object. |
|
||||||
* @param string $datastream |
|
||||||
* A DSID to check that corresponds to a .pdf datastream. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* A series of TRUE(pass)/FALSE(fail) results paired with result messages. |
|
||||||
*/ |
|
||||||
function islandora_validate_pdf_datastream($object, $datastream) { |
|
||||||
$pdf = $object[$datastream]->content; |
|
||||||
$pdf_version = substr($pdf, 5, 3); |
|
||||||
$results = array(); |
|
||||||
$pass = "{$datastream} datastream asserts that it is a valid PDF file using PDF version {$pdf_version}"; |
|
||||||
$fail = "{$datastream} datastream binary header appears to be corrupt and missing a valid PDF signature."; |
|
||||||
$results = islandora_assert_valid(substr($pdf, 0, 5) == '%PDF-', $results, $pass, $fail); |
|
||||||
|
|
||||||
$pdf_streams = substr_count(bin2hex($pdf), '0a73747265616d0a'); |
|
||||||
$pass = "{$datastream} datastream reports the existence of {$pdf_streams} PDF streams. Note that an extremely low number could still indicate corruption."; |
|
||||||
$fail = "{$datastream} datastream contains zero PDF streams, and is likely not a PDF file."; |
|
||||||
$results = islandora_assert_valid($pdf_streams, $results, $pass, $fail); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream reports the existence of the closing 'EOF' tag required at the end of PDFs"; |
|
||||||
$fail = "{$datastream} datastream does not contain the closing 'EOF' tag. If this is the only PDF validation that failed, it is likely that derivative generation was interrupted."; |
|
||||||
$results = islandora_assert_valid(strpos(bin2hex($pdf), '0a2525454f460a'), $results, $pass, $fail); |
|
||||||
return $results; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Asserts that a string of text shows up inside a datastream. |
|
||||||
* |
|
||||||
* @param AbstractObject $object |
|
||||||
* The PID of the object. |
|
||||||
* @param string $datastream |
|
||||||
* A DSID to check that corresponds to a datastream containing text. |
|
||||||
* @param array $text |
|
||||||
* An array of strings/the number of times it should appear in the datastream. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* A series of TRUE(pass)/FALSE(fail) results paired with result messages. |
|
||||||
*/ |
|
||||||
function islandora_validate_text_datastream($object, $datastream, array $text) { |
|
||||||
$results = array(); |
|
||||||
$content = $object[$datastream]->content; |
|
||||||
$string_count = substr_count($content, $text[0]); |
|
||||||
$pass = "{$datastream} datastream contains the word(s) '{$text[0]}' repeated {$string_count} time(s) (expected: {$text[1]})."; |
|
||||||
$fail = "{$datastream} datastream contains the word(s) '{$text[0]}' repeated {$string_count} time(s) (expected: {$text[1]})."; |
|
||||||
$results = islandora_assert_valid($string_count == $text[1], $results, $pass, $fail); |
|
||||||
return $results; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Asserts the validity of any .wav datastraeam. |
|
||||||
* |
|
||||||
* WAV files contain a rigidly detailed header that contains all sorts of fun |
|
||||||
* information we can use to validate things against other things. So, we check |
|
||||||
* rigorously that the header contains properly constructed data by looking to |
|
||||||
* see if certain values are at their expected byte offset. We also compare |
|
||||||
* declared chunk sizes against actual sizes. If any of these are off, WAV |
|
||||||
* players will fail to function. |
|
||||||
* |
|
||||||
* @param AbstractObject $object |
|
||||||
* The PID of the object. |
|
||||||
* @param string $datastream |
|
||||||
* A DSID to check that corresponds to a datastream generated via OCR or HOCR. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* A series of TRUE(pass)/FALSE(fail) results paired with result messages. |
|
||||||
*/ |
|
||||||
function islandora_validate_wav_datastream($object, $datastream) { |
|
||||||
$results = array(); |
|
||||||
$wav = bin2hex($object['OBJ']->content); |
|
||||||
$wav_subchunk2size = islandora_hex2int(substr($wav, 80, 8)); |
|
||||||
$wav_samplerate = islandora_hex2int(substr($wav, 48, 8)); |
|
||||||
$wav_numchannels = islandora_hex2int(substr($wav, 44, 4)); |
|
||||||
$wav_bytespersample = islandora_hex2int(substr($wav, 68, 4)) / 8; |
|
||||||
$wav_numsamples = strlen(substr($wav, 88)) / $wav_numchannels / $wav_bytespersample / 2; |
|
||||||
$magic_number = str_split(substr($wav, 0, 24), 8); |
|
||||||
|
|
||||||
$pass = "Header of the {$datastream} datastream contains correct file signature"; |
|
||||||
$fail = "Header of the {$datastream} datastream contains corrupt file signature"; |
|
||||||
$results = islandora_assert_valid($magic_number[0] = '52494646' && $magic_number[2] = '57415645', $results, $pass, $fail); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream chunksize in WAV header is correct"; |
|
||||||
$fail = "{$datastream} datastream chunksize in WAV header does not match actual chunksize."; |
|
||||||
$results = islandora_assert_valid(islandora_hex2int(substr($wav, 8, 8)) === 36 + $wav_subchunk2size, $results, $pass, $fail); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream contains a 'fmt' subchunk."; |
|
||||||
$fail = "{$datastream} datastream is missing the required 'fmt' subchunk."; |
|
||||||
$results = islandora_assert_valid(substr($wav, 24, 8) === '666d7420', $results, $pass, $fail); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream byterate in the WAV header is correct."; |
|
||||||
$fail = "{$datastream} datastream byterate in the WAV header does not match actual calculated byterate."; |
|
||||||
$results = islandora_assert_valid(islandora_hex2int(substr($wav, 56, 8)) === $wav_samplerate * $wav_numchannels * $wav_bytespersample, $results, $pass, $fail); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream block alignment is set correctly."; |
|
||||||
$fail = "{$datastream} datastream block alignment is off."; |
|
||||||
$results = islandora_assert_valid(islandora_hex2int(substr($wav, 64, 4)) === $wav_numchannels * $wav_bytespersample, $results, $pass, $fail); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream contains 'data' subchunk."; |
|
||||||
$fail = "{$datastream} datastream is missing the 'data' subchunk."; |
|
||||||
$results = islandora_assert_valid(substr($wav, 72, 8) === '64617461', $results, $pass, $fail); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream 'data' chunk is the correct size."; |
|
||||||
$fail = "{$datastream} datastream 'data' chunk is sized incorrectly."; |
|
||||||
$results = islandora_assert_valid($wav_subchunk2size === $wav_numsamples * $wav_numchannels * $wav_bytespersample, $results, $pass, $fail); |
|
||||||
|
|
||||||
return $results; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Asserts the validity of any .mp3 datastream. |
|
||||||
* |
|
||||||
* Our default setup tries to create an MP3 using VBR, but we do some extra |
|
||||||
* checks in case someone turns that off. If the header contains the characters |
|
||||||
* 'Xing', it is flagged as VBR, and we can do an in-depth check on each of the |
|
||||||
* VBR settings. Otherwise, we look for the basic MP3 signature 'fffa' or 'fffb' |
|
||||||
* at the start of the binary. |
|
||||||
* |
|
||||||
* @param AbstractObject $object |
|
||||||
* The PID of the object. |
|
||||||
* @param string $datastream |
|
||||||
* A DSID of a datastream corresponding to an mp3 file. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* A series of TRUE(pass)/FALSE(fail) results paired with result messages. |
|
||||||
*/ |
|
||||||
function islandora_validate_mp3_datastream($object, $datastream) { |
|
||||||
$results = array(); |
|
||||||
$mp3 = bin2hex($object[$datastream]->content); |
|
||||||
$mp3_size = strlen($mp3) / 2; |
|
||||||
|
|
||||||
// Looks to see if VBR was set properly by LAME. If so, MATH TIME! |
|
||||||
if (strpos($mp3, '58696e67')) { |
|
||||||
$mp3_vbrheader = substr($mp3, strpos($mp3, '58696e67'), 240); |
|
||||||
|
|
||||||
// Check the field flags. VBR-formatted MP3 files contain a 32-bit |
|
||||||
// integer (stored as $mp3_flag_value) that is a combination of four |
|
||||||
// bits, each one indicating the on-off status of a VBR setting, via |
|
||||||
// logical OR. Rather than disassembling this value into individual |
|
||||||
// bits, we use the algorithm "if (binary_total+bit_value*2)/bit_value*2 |
|
||||||
// is greater than or equal to bit_value, that bit is turned on" to find |
|
||||||
// the status of each bit, so we know whether to offset the rest. |
|
||||||
$mp3_field_offset = array(0, 0, 0); |
|
||||||
$mp3_flag_value = hexdec(substr($mp3_vbrheader, 8, 8)); |
|
||||||
|
|
||||||
// We can't use the first flag, but we still need to offset the rest. |
|
||||||
if (($mp3_flag_value + 1) % 2 == 0) { |
|
||||||
$mp3_field_offset[0] += 8; |
|
||||||
$mp3_field_offset[1] += 8; |
|
||||||
$mp3_field_offset[2] += 8; |
|
||||||
} |
|
||||||
|
|
||||||
// The second flag leads us to filesize data, which we can verify. |
|
||||||
if (($mp3_flag_value + 4) % 4 > 1) { |
|
||||||
$mp3_field_bytes = hexdec(substr($mp3_vbrheader, $mp3_field_offset[0] + 16, 8)); |
|
||||||
$pass = "{$datastream} datastream reported filesize of {$mp3_size} bytes matches size field value of {$mp3_field_bytes}"; |
|
||||||
$fail = "{$datastream} datastream reported filesize of {$mp3_size} bytes does not match size field value of {$mp3_field_bytes}"; |
|
||||||
$results = islandora_assert_valid($mp3_size == $mp3_field_bytes, $results, $pass, $fail); |
|
||||||
$mp3_field_offset[1] += 8; |
|
||||||
$mp3_field_offset[2] += 8; |
|
||||||
} |
|
||||||
|
|
||||||
// We can't use the third flag for anything either. |
|
||||||
if (($mp3_flag_value + 8) % 8 > 3) { |
|
||||||
$mp3_field_offset[2] += 200; |
|
||||||
} |
|
||||||
|
|
||||||
// The fourth flag leads us to VBR quality data, which we can validate. |
|
||||||
if ($mp3_flag_value > 7) { |
|
||||||
$mp3_field_quality = hexdec(substr($mp3_vbrheader, $mp3_field_offset[2] + 16, 8)); |
|
||||||
$pass = "{$datastream} datastream reports valid VBR quality of {$mp3_field_quality} (expected: between 0-100)"; |
|
||||||
$fail = "{$datastream} datastream reports invalid VBR quality of {$mp3_field_quality} (expected: between 0-100)"; |
|
||||||
$results = islandora_assert_valid($mp3_field_quality <= 100 && $mp3_field_quality >= 0, $results, $pass, $fail); |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
// Otherwise, just forget everything and check the file signature. |
|
||||||
elseif (strpos($mp3, '58696e67') == FALSE && substr($mp3, 0, 4) == 'fffa') { |
|
||||||
$results = array(array(TRUE, "{$datastream} datastream is encoded as a valid MPEG-1 Layer 3 file with CRC protection")); |
|
||||||
} |
|
||||||
elseif (strpos($mp3, '58696e67') == FALSE && substr($mp3, 0, 4) == 'fffb') { |
|
||||||
$results = array(array(TRUE, "{$datastream} datastream is encoded as a valid unprotected MPEG-1 Layer 3 file")); |
|
||||||
} |
|
||||||
else { |
|
||||||
$results = array(array(FALSE, "{$datastream} datastream is corrupt and does not identify as a valid MP3.")); |
|
||||||
} |
|
||||||
return $results; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Attempts to validate an .mp4 datastream. |
|
||||||
* |
|
||||||
* MP4 files are a subset of the ISO file format specification, and as such need |
|
||||||
* to contain a 64-bit declaration of type within the first eight eight bytes of |
|
||||||
* the file. This declaration is comprised of the characters 'ftyp', followed by |
|
||||||
* a four-character filetype code. Below, we look for 'ftyp', and then pass the |
|
||||||
* filetype code to the test message. |
|
||||||
* |
|
||||||
* @param AbstractObject $object |
|
||||||
* The PID of the object. |
|
||||||
* @param string $datastream |
|
||||||
* A DSID of a datastream corresponding to an mp4 file. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* A series of TRUE(pass)/FALSE(fail) results paired with result messages. |
|
||||||
*/ |
|
||||||
function islandora_validate_mp4_datastream($object, $datastream) { |
|
||||||
$results = array(); |
|
||||||
$mp4 = $object[$datastream]->content; |
|
||||||
if (strpos($mp4, 'ftyp')) { |
|
||||||
$mp4_ftyp = substr(strpos($mp4, 'ftyp'), 4, 4); |
|
||||||
} |
|
||||||
$pass = "{$datastream} datastream asserts that it is a valid ISO-formatted video file using ftyp {$mp4_ftyp}"; |
|
||||||
$fail = "{$datastream} datastream is not a valid ISO-formatted video"; |
|
||||||
$results = islandora_assert_valid(strpos($mp4, 'ftyp'), $results, $pass, $fail); |
|
||||||
return $results; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Attempts to validate an .ogg/ogv datastream using Vorbis and Theora encoding. |
|
||||||
* |
|
||||||
* OGG files are made up of several 'pages' of OGG data, each prefaced with an |
|
||||||
* OGG marker - the letters 'OggS'. The file header also contains information on |
|
||||||
* what encoders were used to create the file. Here, we're looking for at least |
|
||||||
* one OGG page, and confirming that the file asserts the Theora and Vorbis |
|
||||||
* codecs were used to create the file. |
|
||||||
* |
|
||||||
* @param AbstractObject $object |
|
||||||
* The PID of the object. |
|
||||||
* @param string $datastream |
|
||||||
* A DSID of a datastream corresponding to an ogg file. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* A series of TRUE(pass)/FALSE(fail) results paired with result messages. |
|
||||||
*/ |
|
||||||
function islandora_validate_ogg_datastream($object, $datastream) { |
|
||||||
$results = array(); |
|
||||||
$ogg = $object[$datastream]->content; |
|
||||||
$ogg_pages = substr_count($ogg, 'OggS'); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream asserts that it contains {$ogg_pages} Ogg pages (even a very small file should contain several)."; |
|
||||||
$fail = "{$datastream} datastream contains no Ogg pages."; |
|
||||||
$results = islandora_assert_valid(substr_count($ogg, 'OggS'), $results, $pass, $fail); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream asserts that it contains Theora-encoded video data."; |
|
||||||
$fail = "{$datastream} datastream contains no marker indicating the presence of Theora-encoded video data."; |
|
||||||
$results = islandora_assert_valid(substr_count($ogg, 'theora'), $results, $pass, $fail); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream asserts that it contains Vorbis-encoded audio data"; |
|
||||||
$fail = "{$datastream} datastream contains no marker indicating the presence of Vorbis-encoded audio data."; |
|
||||||
$results = islandora_assert_valid(substr_count($ogg, 'vorbis'), $results, $pass, $fail); |
|
||||||
|
|
||||||
return $results; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Attempts to validate an .mkv datastream. |
|
||||||
* |
|
||||||
* There's not much we can do to check an MKV file, since the format is really, |
|
||||||
* really loose. We do know a couple of things though - first, since MKV is an |
|
||||||
* EBML format, the first four characters will always be the same. Since they're |
|
||||||
* non-standard characters, we're looking at their hex values instead. And |
|
||||||
* second, we know that the file will contain the declaration 'matroska' soon |
|
||||||
* after. We could look for this in the binary, but we already have the hex- |
|
||||||
* translated version, so we just look for 'matroska' in hex. |
|
||||||
* |
|
||||||
* @param AbstractObject $object |
|
||||||
* The PID of the object. |
|
||||||
* @param string $datastream |
|
||||||
* A DSID of a datastream corresponding to an MKV file. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* A series of TRUE(pass)/FALSE(fail) results paired with result messages. |
|
||||||
*/ |
|
||||||
function islandora_validate_mkv_datastream($object, $datastream) { |
|
||||||
$results = array(); |
|
||||||
$mkv = bin2hex($object[$datastream]->content); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream asserts that it is an EBML-formatted file"; |
|
||||||
$fail = "{$datastream} datastream is not an EBML-formatted file."; |
|
||||||
$results = islandora_assert_valid(substr($mkv, 0, 8) == '1a45dfa3', $results, $pass, $fail); |
|
||||||
|
|
||||||
$pass = "{$datastream} datastream asserts that its EBML DocType is Matroska"; |
|
||||||
$fail = "{$datastream} datastream does not contain a Matroska EBML DocType marker."; |
|
||||||
$results = islandora_assert_valid(substr_count($mkv, '6d6174726f736b61') == 1, $results, $pass, $fail); |
|
||||||
|
|
||||||
return $results; |
|
||||||
} |
|
||||||
@ -0,0 +1,704 @@ |
|||||||
|
<?php |
||||||
|
/** |
||||||
|
* @file |
||||||
|
* Classes and functions for datastream validation. |
||||||
|
*/ |
||||||
|
|
||||||
|
/** |
||||||
|
* Converts a hexidecimal string to an integer. |
||||||
|
* |
||||||
|
* This is useful for running checks on values that appear in the binary |
||||||
|
* of a datastream. Returns FALSE if the hex value contains non-hex characters |
||||||
|
* or if the string would not return a 16- or 32-bit formatted big-endian |
||||||
|
* signed integer. |
||||||
|
* |
||||||
|
* @param string $hex |
||||||
|
* The hexidecimal string. |
||||||
|
* |
||||||
|
* @throws Exception |
||||||
|
* if something horrible happens during the actual conversion. |
||||||
|
* |
||||||
|
* @return bool|int |
||||||
|
* FALSE on failure, or the integer on success. |
||||||
|
*/ |
||||||
|
function islandora_hex2int($hex) { |
||||||
|
|
||||||
|
// A couple of quick string checks. |
||||||
|
if (!ctype_xdigit($hex)) { |
||||||
|
drupal_set_message(t('String passed to islandora_hex2int() contains non-hexidecimal characters.'), 'error'); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
if (!(strlen($hex) == 4 || strlen($hex) == 8)) { |
||||||
|
drupal_set_message(t('String passed to islandora_hex2int() cannot create a 16- or 32-bit little-endian signed integer'), 'error'); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
|
||||||
|
// The actual conversion. |
||||||
|
try { |
||||||
|
$reverse_hex = implode('', array_reverse(str_split($hex, 2))); |
||||||
|
$int = hexdec($reverse_hex); |
||||||
|
return $int; |
||||||
|
} |
||||||
|
catch (Exception $e) { |
||||||
|
throw new Exception('An error occurred during the conversion of hexidecimal to integer.', 0, $e); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Abstraction for datastream validators. |
||||||
|
* |
||||||
|
* Classes extended from DatastreamValidator don't require much to be useful. |
||||||
|
* They accept a Fedora object and a DSID to perform assertions on; |
||||||
|
* all you have to do is place a series of functions inside the extended class |
||||||
|
* using the naming convention assertThing(); each of these functions should |
||||||
|
* ideally assert one thing and one thing only (for simplicity's sake), and |
||||||
|
* should generate either a pass or a fail message by calling addPass() or |
||||||
|
* addFail(). That's it, really; they don't have to return any values, as |
||||||
|
* addPass() and addFail() just add messages to the overall pass/fail array. |
||||||
|
* |
||||||
|
* As long as you use those rules and naming conventions, all the magic is done |
||||||
|
* when you instantiate the new datastream validator object. |
||||||
|
* |
||||||
|
* The IslandoraWebTestCase::assertDatastreams() function accepts paired DSIDs |
||||||
|
* and datastream validator names in order to do the rest of the work. It grabs |
||||||
|
* all the test results using getPasses() and getFails() and transforms those |
||||||
|
* into something that DrupalWebTestCase can use. |
||||||
|
*/ |
||||||
|
abstract class DatastreamValidator extends IslandoraTestUtilityClass { |
||||||
|
|
||||||
|
/** |
||||||
|
* The Fedora object containing the datastream to test. |
||||||
|
* |
||||||
|
* @var IslandoraFedoraObject|FedoraObject |
||||||
|
*/ |
||||||
|
public $object; |
||||||
|
|
||||||
|
/** |
||||||
|
* The DSID of the string to test. |
||||||
|
* |
||||||
|
* @var string |
||||||
|
*/ |
||||||
|
public $datastream; |
||||||
|
|
||||||
|
/** |
||||||
|
* The content of the datastream. |
||||||
|
* |
||||||
|
* @var string[] |
||||||
|
*/ |
||||||
|
public $datastreamContent; |
||||||
|
|
||||||
|
/** |
||||||
|
* An array of additional required parameters. |
||||||
|
* |
||||||
|
* @var array |
||||||
|
*/ |
||||||
|
public $params = array(); |
||||||
|
|
||||||
|
/** |
||||||
|
* Constructs a DatastreamValidator. |
||||||
|
* |
||||||
|
* @param IslandoraFedoraObject|FedoraObject $object |
||||||
|
* The object to grab the datastream from. |
||||||
|
* @param string $datastream |
||||||
|
* The DSID of the datastream itself. |
||||||
|
* @param array $params |
||||||
|
* An extra array of parameters the validator might need. |
||||||
|
*/ |
||||||
|
public function __construct($object, $datastream, array $params = array()) { |
||||||
|
$this->object = $object; |
||||||
|
$this->datastream = $datastream; |
||||||
|
$this->params = $params; |
||||||
|
if ($object[$datastream]) { |
||||||
|
$this->datastreamContent = $object[$datastream]->content; |
||||||
|
} |
||||||
|
else { |
||||||
|
drupal_set_message(t("Error grabbing content from datastream %datastream in object %id", array( |
||||||
|
'%datastream' => $datastream, |
||||||
|
'%id' => $object->id, |
||||||
|
)), 'error'); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Helper function to run all the validators in a class. |
||||||
|
* |
||||||
|
* On DatastreamValidator::__construct(), this looks for any functions |
||||||
|
* within the class beginning in "assert" and runs them. In all current cases |
||||||
|
* (and realistically in all future cases), this adds one or more passes or |
||||||
|
* fails to $this->passes and/or $this->fails. |
||||||
|
*/ |
||||||
|
public function runValidators() { |
||||||
|
if ($this->object[$this->datastream]) { |
||||||
|
$methods = get_class_methods($this); |
||||||
|
foreach ($methods as $method) { |
||||||
|
if (substr($method, 0, 6) === 'assert') { |
||||||
|
$this->$method(); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
else { |
||||||
|
$this->addResult(FALSE, "Unable to load the requested datastream {$this->datastream} from object {$this->object->id}."); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Returns an array of IslandoraTestUtilityResults. |
||||||
|
* |
||||||
|
* @return IslandoraTestUtilityResult[] |
||||||
|
* The results. |
||||||
|
*/ |
||||||
|
public function getResults() { |
||||||
|
if (empty($this->results)) { |
||||||
|
$this->runValidators(); |
||||||
|
} |
||||||
|
return $this->results; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Adds a result to $this->results. |
||||||
|
* |
||||||
|
* @param bool $type |
||||||
|
* The type of result (TRUE for pass, FALSE for fail). |
||||||
|
* @param string $message |
||||||
|
* The message to put in the result. |
||||||
|
*/ |
||||||
|
public function addResult($type, $message) { |
||||||
|
$result = new IslandoraTestUtilityResult($type, $message, $this->getAssertionCall()); |
||||||
|
$this->results[] = $result; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Cycles through backtrace until the first non-assertion method is found. |
||||||
|
* |
||||||
|
* This is a manipulated version of DrupalWebTestCase::getAssertionCall(). |
||||||
|
* We use it here so that we can pass back assertion calls from |
||||||
|
* DatastreamValidator assertions instead of less useful TestCase functions. |
||||||
|
* |
||||||
|
* @return array |
||||||
|
* Array representing the true caller. |
||||||
|
*/ |
||||||
|
public function getAssertionCall() { |
||||||
|
$backtrace = debug_backtrace(); |
||||||
|
|
||||||
|
// While the current caller's function starts with 'assert', and another one |
||||||
|
// exists after this function, keep poppin' em off. |
||||||
|
while (substr($backtrace[1]['function'], 0, 6) !== 'assert' && isset($backtrace[2])) { |
||||||
|
array_shift($backtrace); |
||||||
|
} |
||||||
|
|
||||||
|
return _drupal_get_last_caller($backtrace); |
||||||
|
} |
||||||
|
|
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that an object's given datastreams are common-type image files. |
||||||
|
* |
||||||
|
* Uses PHPGD to run the assertion check. This means that only certain kinds |
||||||
|
* of image files can be checked. Please check the documentation for the PHPGD |
||||||
|
* imagecreatefromstring() function to determine what filetypes are valid. |
||||||
|
*/ |
||||||
|
class ImageDatastreamValidator extends DatastreamValidator { |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts the validity of an image using PHPGD. |
||||||
|
*/ |
||||||
|
protected function assertImageGeneration() { |
||||||
|
$assertion = imagecreatefromstring($this->datastreamContent) !== FALSE; |
||||||
|
$pass = "Image datastream {$this->datastream} is valid."; |
||||||
|
$fail = "Image datastream {$this->datastream} is either invalid or corrupt."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts the validity of any .tif/.tiff datastream. |
||||||
|
*/ |
||||||
|
class TIFFDatastreamValidator extends DatastreamValidator { |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the TIFF contains an appropriate header. |
||||||
|
*/ |
||||||
|
public function assertTIFFHeaderHex() { |
||||||
|
$datastream_header_hex = self::getTIFFHeaderHex(); |
||||||
|
if ($datastream_header_hex == "49492a00") { |
||||||
|
// In this case, the ingested TIFF is designated as using the "Intel |
||||||
|
// byte-order" (i.e. little-endian) by starting with the characters "II" |
||||||
|
// (repeated so that byte order does not yet need to be significant). |
||||||
|
// The number that follows is '42' in little-endian hex, a number of |
||||||
|
// 'deep philosophical significance' to the TIFF format creators.' |
||||||
|
$this->addResult(TRUE, "{$this->datastream} datastream asserts that it is a valid Intel-byte-orderded TIF/TIFF file."); |
||||||
|
} |
||||||
|
elseif ($datastream_header_hex == "4d4d002a") { |
||||||
|
// In this case, the ingested TIFF is designated as using the "Motorola |
||||||
|
// byte-order" (i.e. big-endian) by starting with the characters "MM" |
||||||
|
// instead. 42 follows once again, this time in big-endian hex. |
||||||
|
$this->addResult(TRUE, "{$this->datastream} datastream asserts that it is a valid Motorola-byte-ordered TIF/TIFF file."); |
||||||
|
} |
||||||
|
else { |
||||||
|
$this->addResult(FALSE, "{$this->datastream} datastream does not assert that it is a valid TIF/TIFF file."); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Grabs the first 8 characters from the TIFF datastream's hex. |
||||||
|
* |
||||||
|
* @return string |
||||||
|
* The ... thing I just wrote up there. |
||||||
|
*/ |
||||||
|
protected function getTIFFHeaderHex() { |
||||||
|
return substr(bin2hex($this->datastreamContent), 0, 8); |
||||||
|
} |
||||||
|
|
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts the validity of a JP2 datastream. |
||||||
|
*/ |
||||||
|
class JP2DatastreamValidator extends DatastreamValidator { |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts the hex values at the head of the JP2 file. |
||||||
|
* |
||||||
|
* JP2 files begin with an offset header at the second 32-bit integer, |
||||||
|
* 0x6A502020. This header is in all .jp2s, and we check for it here. |
||||||
|
*/ |
||||||
|
protected function assertJP2Header() { |
||||||
|
$assertion = substr(bin2hex($this->datastreamContent), 8, 8) == '6a502020'; |
||||||
|
$pass = "Datastream {$this->datastream} contains the appropriate JP2 header."; |
||||||
|
$fail = "Datastream {$this->datastream} does not contain the appropriate JP2 header."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts the marker at the end of the JP2 file. |
||||||
|
* |
||||||
|
* JP2 files have their codestream capped with a marker, 0xFFD9. We're just |
||||||
|
* checking for it here to see if the .jp2 encoder finished okay. |
||||||
|
*/ |
||||||
|
protected function assertJP2Marker() { |
||||||
|
$assertion = substr(bin2hex($this->datastreamContent), strlen(bin2hex($this->datastreamContent)) - 4, 4) == 'ffd9'; |
||||||
|
$pass = "Datastream {$this->datastream} contains the appropriate JP2 ending marker."; |
||||||
|
$fail = "Datastream {$this->datastream} does not contain the appropriate JP2 ending marker. If this is the only JP2 validator that failed, it is likely that derivative generation was interrupted."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts the validity of a PDF datastream. |
||||||
|
*/ |
||||||
|
class PDFDatastreamValidator extends DatastreamValidator { |
||||||
|
|
||||||
|
/** |
||||||
|
* Validates the PDF signature. |
||||||
|
*/ |
||||||
|
protected function assertPDFSignature() { |
||||||
|
$assertion = substr($this->datastreamContent, 0, 5) == '%PDF-'; |
||||||
|
$pdf_version = substr($this->datastreamContent, 5, 3); |
||||||
|
$pass = "{$this->datastream} datastream asserts that it is a valid PDF file using PDF version {$pdf_version}"; |
||||||
|
$fail = "{$this->datastream} datastream binary header appears to be corrupt and missing a valid PDF signature."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Counts the number of signatures in this PDF file and asserts there are any. |
||||||
|
*/ |
||||||
|
protected function assertPDFStreamCount() { |
||||||
|
$pdf_stream_count = substr_count(bin2hex($this->datastreamContent), '0a73747265616d0a'); |
||||||
|
$assertion = $pdf_stream_count !== 0; |
||||||
|
$pass = "{$this->datastream} datastream reports the existence of {$pdf_stream_count} PDF streams. Note that an extremely low number could still indicate corruption."; |
||||||
|
$fail = "{$this->datastream} datastream contains zero PDF streams, and is likely not a PDF file."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Validates the PDF closing tag. |
||||||
|
* |
||||||
|
* @return bool |
||||||
|
* TRUE if it was present; FALSE otherwise. |
||||||
|
*/ |
||||||
|
protected function assertPDFClosingTag() { |
||||||
|
$assertion = strpos(bin2hex($this->datastreamContent), '0a2525454f460a') == TRUE; |
||||||
|
$pass = "{$this->datastream} datastream reports the existence of the closing 'EOF' tag required at the end of PDFs"; |
||||||
|
$fail = "{$this->datastream} datastream does not contain the closing 'EOF' tag. If this is the only PDF validation that failed, it is likely that derivative generation was interrupted."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Validates the number of times a string occurs in a datastream. |
||||||
|
* |
||||||
|
* Requires $this->params to be set to an array containing two keys - the first |
||||||
|
* is the string we're looking to find in the datastream, and the second is an |
||||||
|
* integer representing the number of times it should appear in the datastream. |
||||||
|
*/ |
||||||
|
class TextDatastreamValidator extends DatastreamValidator { |
||||||
|
/** |
||||||
|
* Constructor override; blow up if we don't have our two values. |
||||||
|
*/ |
||||||
|
public function __construct($object, $datastream, array $params = array()) { |
||||||
|
if (count($params) < 2) { |
||||||
|
throw new InvalidArgumentException('$params must contain at least two values to instantiate a TextDatastreamValidator.'); |
||||||
|
} |
||||||
|
parent::__construct($object, $datastream, $params); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the string given appears the correct number of times. |
||||||
|
*/ |
||||||
|
protected function assertTextStringCount() { |
||||||
|
$string_count = self::getTextStringCount(); |
||||||
|
list($string, $expected) = $this->params; |
||||||
|
$assertion = $string_count === $expected; |
||||||
|
$this->addResult($assertion, "{$this->datastream} datastream contains the word(s) '{$string}' repeated {$string_count} time(s) (expected: {$expected})."); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* The number of times key [0] in $this->params appears in the datastream. |
||||||
|
* |
||||||
|
* @return int |
||||||
|
* That count I just mentioned up there. |
||||||
|
*/ |
||||||
|
protected function getTextStringCount() { |
||||||
|
return substr_count($this->datastreamContent, $this->params[0]); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts the validity a WAV datastream. |
||||||
|
* |
||||||
|
* WAV files contain a rigidly detailed header that contains all sorts of fun |
||||||
|
* information we can use to validate things against other things. So, we check |
||||||
|
* rigorously that the header contains properly constructed data by looking to |
||||||
|
* see if certain values are at their expected byte offset. We also compare |
||||||
|
* declared chunk sizes against actual sizes. If any of these are off, WAV |
||||||
|
* players will fail to function. |
||||||
|
*/ |
||||||
|
class WAVDatastreamValidator extends DatastreamValidator { |
||||||
|
|
||||||
|
/** |
||||||
|
* We need a special constructor here to get the hex datastream content. |
||||||
|
* |
||||||
|
* @param IslandoraFedoraObject|FedoraObject $object |
||||||
|
* The object to grab the datastream from. |
||||||
|
* @param string $datastream |
||||||
|
* The DSID of the datastream itself. |
||||||
|
* @param array $params |
||||||
|
* An extra array of parameters the validator might need. |
||||||
|
*/ |
||||||
|
public function __construct($object, $datastream, array $params = array()) { |
||||||
|
parent::__construct($object, $datastream, $params); |
||||||
|
$this->datastreamContent = bin2hex($this->datastreamContent); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the datastream contains a valid WAV signature. |
||||||
|
*/ |
||||||
|
protected function assertWAVSignature() { |
||||||
|
$signatures = str_split(substr($this->datastreamContent, 0, 24), 8); |
||||||
|
$assertion = $signatures[0] == '52494646' && $signatures[2] == '57415645'; |
||||||
|
$pass = "Header of the {$this->datastream} datastream contains a valid file signature."; |
||||||
|
$fail = "Header of the {$this->datastream} datastream contains corrupt file signature."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the chunksize in the header is correct. |
||||||
|
*/ |
||||||
|
protected function assertWAVChunkSize() { |
||||||
|
$assertion = islandora_hex2int(substr($this->datastreamContent, 8, 8)) === 36 + self::getDataSubChunkSize(); |
||||||
|
$pass = "{$this->datastream} datastream chunksize in WAV header is correct"; |
||||||
|
$fail = "{$this->datastream} datastream chunksize in WAV header does not match actual chunksize."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the datastream contains a 'fmt' subchunk. |
||||||
|
*/ |
||||||
|
protected function assertWAVFmtSubChunk() { |
||||||
|
$assertion = substr($this->datastreamContent, 24, 8) === '666d7420'; |
||||||
|
$pass = "{$this->datastream} datastream contains a 'fmt' subchunk."; |
||||||
|
$fail = "{$this->datastream} datastream is missing the required 'fmt' subchunk."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the byterate reported by the WAV header is valid. |
||||||
|
*/ |
||||||
|
protected function assertWAVByteRate() { |
||||||
|
$wav_samplerate = islandora_hex2int(substr($this->datastreamContent, 48, 8)); |
||||||
|
$assertion = islandora_hex2int(substr($this->datastreamContent, 56, 8)) === $wav_samplerate * self::getNumChannels() * self::getBytesPerSample(); |
||||||
|
$pass = "{$this->datastream} datastream byterate in the WAV header is correct."; |
||||||
|
$fail = "{$this->datastream} datastream byterate in the WAV header does not match actual calculated byterate."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the block alignment is correct. |
||||||
|
*/ |
||||||
|
protected function assertWAVBlockAlignment() { |
||||||
|
$assertion = islandora_hex2int(substr($this->datastreamContent, 64, 4)) === self::getNumChannels() * self::getBytesPerSample(); |
||||||
|
$pass = "{$this->datastream} datastream block alignment is set correctly."; |
||||||
|
$fail = "{$this->datastream} datastream block alignment is off."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts the existence of a 'data' subchunk. |
||||||
|
* |
||||||
|
* Also asserts that the subchunk size is correct. |
||||||
|
*/ |
||||||
|
protected function assertWAVDataSubChunk() { |
||||||
|
if (substr($this->datastreamContent, 72, 8) !== '64617461') { |
||||||
|
$this->addResult(FALSE, "{$this->datastream} datastream is missing the 'data' subchunk."); |
||||||
|
return; |
||||||
|
} |
||||||
|
else { |
||||||
|
$this->addResult(TRUE, "{$this->datastream} datastream contains 'data' subchunk."); |
||||||
|
$wav_numsamples = strlen(substr($this->datastreamContent, 88)) / self::getNumChannels() / self::getBytesPerSample() / 2; |
||||||
|
$assertion = self::getDataSubChunkSize() === $wav_numsamples * self::getNumChannels() * self::getBytesPerSample(); |
||||||
|
$pass = "{$this->datastream} datastream 'data' chunk is the correct size."; |
||||||
|
$fail = "{$this->datastream} datastream 'data' chunk is sized incorrectly."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Gets the number of channels reported by the WAV header. |
||||||
|
* |
||||||
|
* @return int |
||||||
|
* The number of channels reported by the datastream header. |
||||||
|
*/ |
||||||
|
protected function getNumChannels() { |
||||||
|
return islandora_hex2int(substr($this->datastreamContent, 44, 4)); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Gets the reported number of byte rates per sample. |
||||||
|
* |
||||||
|
* @return int |
||||||
|
* The number of bytes per sample reported by the datastream header. |
||||||
|
*/ |
||||||
|
protected function getBytesPerSample() { |
||||||
|
return islandora_hex2int(substr($this->datastreamContent, 68, 4)) / 8; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Gets the size of the 'data' subchunk. |
||||||
|
* |
||||||
|
* @return int |
||||||
|
* The size of the 'data' subchunk. |
||||||
|
*/ |
||||||
|
protected function getDataSubChunkSize() { |
||||||
|
return islandora_hex2int(substr($this->datastreamContent, 80, 8)); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts the validity of any .mp3 datastream. |
||||||
|
* |
||||||
|
* Our default setup tries to create an MP3 using VBR, but we do some extra |
||||||
|
* checks in case someone turns that off. If the header contains the characters |
||||||
|
* 'Xing', it is flagged as VBR, and we can do an in-depth check on each of the |
||||||
|
* VBR settings. Otherwise, we look for the basic MP3 signature 'fffa' or 'fffb' |
||||||
|
* at the start of the binary. |
||||||
|
*/ |
||||||
|
class MP3DatastreamValidator extends DatastreamValidator { |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts the validity of the MP3. |
||||||
|
* |
||||||
|
* The MP3 file format is a bit of a mess; the entire makeup of the file |
||||||
|
* depends on whether it uses variable bit rate or static bit rate. So, I'm |
||||||
|
* breaking my own rules here and using a single assert function so that I |
||||||
|
* can handle the weird logic. |
||||||
|
*/ |
||||||
|
protected function assertValidMP3() { |
||||||
|
$this->datastreamContent = bin2hex($this->datastreamContent); |
||||||
|
|
||||||
|
// If it's not a VBR MP3, we don't have to check much, so let's get that |
||||||
|
// out of the way first before we go doing a bunch of potentially pointless |
||||||
|
// math. Check to see if the VBR flag (58696e67) isn't there. |
||||||
|
if (strpos($this->datastreamContent, '58696e67') == FALSE && substr($this->datastreamContent, 0, 4) == 'fffa') { |
||||||
|
$this->addResult(TRUE, "{$this->datastream} datastream is encoded as a valid MPEG-1 Layer 3 file with CRC protection"); |
||||||
|
return; |
||||||
|
} |
||||||
|
if (strpos($this->datastreamContent, '58696e67') == FALSE && substr($this->datastreamContent, 0, 4) == 'fffb') { |
||||||
|
$this->addResult(TRUE, "{$this->datastream} datastream is encoded as a valid unprotected MPEG-1 Layer 3 file"); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
// And what if the flag IS set? |
||||||
|
if (strpos($this->datastreamContent, '58696e67')) { |
||||||
|
// Check the field flags. VBR-formatted MP3 files contain a 32-bit |
||||||
|
// integer (stored as $mp3_flag_value) that is a combination of four |
||||||
|
// bits, each one indicating the on-off status of a VBR setting, via |
||||||
|
// logical OR. Rather than disassembling this value into individual |
||||||
|
// bits, we use the algorithm "if (binary_total+bit_value*2)/bit_value*2 |
||||||
|
// is greater than or equal to bit_value, that bit is turned on" to find |
||||||
|
// the status of each bit, so we know whether to offset the rest. |
||||||
|
$mp3_field_offset = array(0, 0, 0); |
||||||
|
$mp3_vbrheader = substr($this->datastreamContent, strpos($this->datastreamContent, '58696e67'), 240); |
||||||
|
$mp3_flag_value = hexdec(substr($mp3_vbrheader, 8, 8)); |
||||||
|
|
||||||
|
// We can't use the first flag, but we still need to offset the rest. |
||||||
|
if (($mp3_flag_value + 1) % 2 == 0) { |
||||||
|
$mp3_field_offset[0] += 8; |
||||||
|
$mp3_field_offset[1] += 8; |
||||||
|
$mp3_field_offset[2] += 8; |
||||||
|
} |
||||||
|
|
||||||
|
// The second flag leads us to filesize data, which we can verify. |
||||||
|
if (($mp3_flag_value + 4) % 4 > 1) { |
||||||
|
$mp3_field_bytes = hexdec(substr($mp3_vbrheader, $mp3_field_offset[0] + 16, 8)); |
||||||
|
$mp3_size = strlen($this->datastreamContent) / 2; |
||||||
|
$assertion = $mp3_size == $mp3_field_bytes; |
||||||
|
$pass = "{$this->datastream} datastream reported filesize of {$mp3_size} bytes matches size field value of {$mp3_field_bytes}"; |
||||||
|
$fail = "{$this->datastream} datastream reported filesize of {$mp3_size} bytes does not match size field value of {$mp3_field_bytes}"; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
$mp3_field_offset[1] += 8; |
||||||
|
$mp3_field_offset[2] += 8; |
||||||
|
} |
||||||
|
|
||||||
|
// We can't use the third flag for anything, but we still have to offset. |
||||||
|
if (($mp3_flag_value + 8) % 8 > 3) { |
||||||
|
$mp3_field_offset[2] += 200; |
||||||
|
} |
||||||
|
|
||||||
|
// The fourth flag leads us to VBR quality data, which we can validate. |
||||||
|
if ($mp3_flag_value > 7) { |
||||||
|
$mp3_field_quality = hexdec(substr($mp3_vbrheader, $mp3_field_offset[2] + 16, 8)); |
||||||
|
$assertion = $mp3_field_quality <= 100 && $mp3_field_quality >= 0; |
||||||
|
$pass = "{$this->datastream} datastream reports valid VBR quality of {$mp3_field_quality} (expected: between 0-100)"; |
||||||
|
$fail = "{$this->datastream} datastream reports invalid VBR quality of {$mp3_field_quality} (expected: between 0-100)"; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
// If none of that works out, fail. |
||||||
|
else { |
||||||
|
$this->addResult(FALSE, "{$this->datastream} datastream is corrupt and does not identify as a valid MP3."); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Attempts to validate an .mp4 datastream. |
||||||
|
* |
||||||
|
* MP4 files are a subset of the ISO file format specification, and as such need |
||||||
|
* to contain a 64-bit declaration of type within the first eight eight bytes of |
||||||
|
* the file. This declaration is comprised of the characters 'ftyp', followed by |
||||||
|
* a four-character filetype code. Here, we look for 'ftyp', and then pass the |
||||||
|
* filetype code to the test message. |
||||||
|
*/ |
||||||
|
class MP4DatastreamValidator extends DatastreamValidator { |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the datastream is ISO-formatted video. |
||||||
|
*/ |
||||||
|
protected function assertISOVideo() { |
||||||
|
$mp4_ftyp = substr(strpos($this->datastreamContent, 'ftyp'), 4, 4); |
||||||
|
$assertion = strpos($this->datastreamContent, 'ftyp') !== 0; |
||||||
|
$pass = "{$this->datastream} datastream asserts that it is a valid ISO-formatted video file using ftyp {$mp4_ftyp}"; |
||||||
|
$fail = "{$this->datastream} datastream is not a valid ISO-formatted video"; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Attempts to validate an .ogg/ogv datastream using Vorbis and Theora encoding. |
||||||
|
* |
||||||
|
* OGG files are made up of several 'pages' of OGG data, each prefaced with an |
||||||
|
* OGG marker - the letters 'OggS'. The file header also contains information on |
||||||
|
* what encoders were used to create the file. Here, we're looking for at least |
||||||
|
* one OGG page, and confirming that the file asserts the Theora and Vorbis |
||||||
|
* codecs were used to create the file. |
||||||
|
*/ |
||||||
|
class OGGDatastreamValidator extends DatastreamValidator { |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the datastream contains ogg pages. |
||||||
|
*/ |
||||||
|
protected function assertOGGPages() { |
||||||
|
$ogg_pages = substr_count($this->datastreamContent, 'OggS'); |
||||||
|
$assertion = $ogg_pages !== 0; |
||||||
|
$pass = "{$this->datastream} datastream asserts that it contains {$ogg_pages} Ogg pages (even a very small file should contain several)."; |
||||||
|
$fail = "{$this->datastream} datastream contains no Ogg pages."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the datastream contains Theora-encoded video. |
||||||
|
*/ |
||||||
|
protected function assertTheoraVideo() { |
||||||
|
$assertion = substr_count($this->datastreamContent, 'theora') !== 0; |
||||||
|
$pass = "{$this->datastream} datastream asserts that it contains Theora-encoded video data."; |
||||||
|
$fail = "{$this->datastream} datastream contains no marker indicating the presence of Theora-encoded video data."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the datastream contains Vorbis-encoded audio. |
||||||
|
*/ |
||||||
|
protected function assertVorbisAudio() { |
||||||
|
$assertion = substr_count($this->datastreamContent, 'vorbis') !== 0; |
||||||
|
$pass = "{$this->datastream} datastream asserts that it contains Vorbis-encoded audio data"; |
||||||
|
$fail = "{$this->datastream} datastream contains no marker indicating the presence of Vorbis-encoded audio data."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Attempts to validate an .mkv datastream. |
||||||
|
* |
||||||
|
* There's not much we can do to check an MKV file, since the format is really, |
||||||
|
* really loose. We do know a couple of things though - first, since MKV is an |
||||||
|
* EBML format, the first four characters will always be the same. Since they're |
||||||
|
* non-standard characters, we're looking at their hex values instead. And |
||||||
|
* second, we know that the file will contain the declaration 'matroska' soon |
||||||
|
* after. |
||||||
|
*/ |
||||||
|
class MKVDatastreamValidator extends DatastreamValidator { |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the datastream is an EBML-format file. |
||||||
|
*/ |
||||||
|
protected function assertEBMLFormat() { |
||||||
|
$assertion = substr(bin2hex($this->datastreamContent), 0, 8) == '1a45dfa3'; |
||||||
|
$pass = "{$this->datastream} datastream asserts that it is an EBML-formatted file"; |
||||||
|
$fail = "{$this->datastream} datastream is not an EBML-formatted file."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the datastream contains a matroska marker. |
||||||
|
*/ |
||||||
|
protected function assertMatroskaMarker() { |
||||||
|
$assertion = substr_count($this->datastreamContent, 'matroska') == 1; |
||||||
|
$pass = "{$this->datastream} datastream asserts that its EBML DocType is Matroska"; |
||||||
|
$fail = "{$this->datastream} datastream does not contain a Matroska EBML DocType marker."; |
||||||
|
$message = $assertion ? $pass : $fail; |
||||||
|
$this->addResult($assertion, $message); |
||||||
|
} |
||||||
|
} |
||||||
@ -0,0 +1,76 @@ |
|||||||
|
<?php |
||||||
|
/** |
||||||
|
* @file |
||||||
|
* Islandora extensions for DrupalUnitTestCase. |
||||||
|
*/ |
||||||
|
|
||||||
|
class IslandoraUnitTestCase extends DrupalUnitTestCase { |
||||||
|
|
||||||
|
/** |
||||||
|
* By default, deleteUserCreatedObjects() runs on each tearDown() step. |
||||||
|
* |
||||||
|
* @var bool |
||||||
|
*/ |
||||||
|
protected $deleteObjectsOnTeardown = TRUE; |
||||||
|
|
||||||
|
/** |
||||||
|
* Defers to IslandoraTestUtilities for missing methods. |
||||||
|
* |
||||||
|
* @param string $method |
||||||
|
* The method being called. |
||||||
|
* @param array $args |
||||||
|
* The arguments for that method. |
||||||
|
*/ |
||||||
|
public function __call($method, $args) { |
||||||
|
module_load_include('inc', 'islandora', 'tests/includes/utilities'); |
||||||
|
$params = array('db_access' => FALSE); |
||||||
|
$utilities = new IslandoraTestUtilities($this->configuration, $params); |
||||||
|
if (!method_exists($utilities, $method)) { |
||||||
|
$caller = $this->getAssertionCall(); |
||||||
|
throw new BadMethodCallException("Exception: undefined method $method in {$caller['file']}, line {$caller['line']}."); |
||||||
|
} |
||||||
|
$result = call_user_func_array(array(&$utilities, $method), $args); |
||||||
|
$this->parseUtilityResults($utilities); |
||||||
|
return $result; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Parses utility results and passes them to the test results as an assertion. |
||||||
|
* |
||||||
|
* @param IslandoraTestUtilities $utility |
||||||
|
* An instance of IslandoraTestUtilities with populated results. |
||||||
|
*/ |
||||||
|
public function parseUtilityResults($utility) { |
||||||
|
foreach ($utility->getResults() as $result) { |
||||||
|
$this->assert($result->getType(), $result->getMessage(), 'Islandora', $result->getCaller()); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Sets up the Drupal filter to access this test Drupal instances database. |
||||||
|
* |
||||||
|
* @see DrupalWebTestCase::setUp() |
||||||
|
*/ |
||||||
|
public function setUp() { |
||||||
|
parent::setUp(); |
||||||
|
|
||||||
|
// It's possible test are running before class autoloading. |
||||||
|
module_load_include('inc', 'islandora', 'includes/tuque'); |
||||||
|
|
||||||
|
$this->configuration = IslandoraTestUtilityClass::getTestConfiguration(); |
||||||
|
$this->connection = new RepositoryConnection($this->configuration['fedora_url'], $this->configuration['admin_user'], $this->configuration['admin_pass']); |
||||||
|
$api = new FedoraApi($this->connection); |
||||||
|
$this->repository = new FedoraRepository($api, new SimpleCache()); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Frees any allocated resources. |
||||||
|
* |
||||||
|
* @see DrupalWebTestCase::tearDown() |
||||||
|
*/ |
||||||
|
public function tearDown() { |
||||||
|
unset($this->configuration); |
||||||
|
parent::tearDown(); |
||||||
|
} |
||||||
|
|
||||||
|
} |
||||||
@ -0,0 +1,332 @@ |
|||||||
|
<?php |
||||||
|
|
||||||
|
/** |
||||||
|
* @file |
||||||
|
* Defines the class IslandoraWebTestCase, which allows tests to access Fedora. |
||||||
|
*/ |
||||||
|
|
||||||
|
class IslandoraWebTestCase extends DrupalWebTestCase { |
||||||
|
|
||||||
|
/** |
||||||
|
* An array of users that may be created over the course of a test. |
||||||
|
* |
||||||
|
* @var array |
||||||
|
*/ |
||||||
|
protected $users = array(); |
||||||
|
|
||||||
|
/** |
||||||
|
* By default, deleteUserCreatedObjects() runs on each tearDown() step. |
||||||
|
* |
||||||
|
* @var bool |
||||||
|
*/ |
||||||
|
protected $deleteObjectsOnTeardown = TRUE; |
||||||
|
|
||||||
|
/** |
||||||
|
* Defers to IslandoraTestUtilities for missing methods. |
||||||
|
* |
||||||
|
* @param string $method |
||||||
|
* The method being called. |
||||||
|
* @param array $args |
||||||
|
* The arguments for that method. |
||||||
|
*/ |
||||||
|
public function __call($method, $args) { |
||||||
|
module_load_include('inc', 'islandora', 'tests/includes/utilities'); |
||||||
|
$params = array( |
||||||
|
'logged_in_user' => $this->loggedInUser, |
||||||
|
'db_access' => TRUE, |
||||||
|
); |
||||||
|
$utilities = new IslandoraTestUtilities($this->configuration, $params); |
||||||
|
if (!method_exists($utilities, $method)) { |
||||||
|
$caller = $this->getAssertionCall(); |
||||||
|
throw new BadMethodCallException("Exception: undefined method $method in {$caller['file']}, line {$caller['line']}."); |
||||||
|
} |
||||||
|
$result = call_user_func_array(array(&$utilities, $method), $args); |
||||||
|
$this->parseUtilityResults($utilities); |
||||||
|
return $result; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Parses utility results and passes them to the test results as an assertion. |
||||||
|
* |
||||||
|
* @param IslandoraTestUtilities $utility |
||||||
|
* An instance of IslandoraTestUtilities with populated results. |
||||||
|
*/ |
||||||
|
public function parseUtilityResults($utility) { |
||||||
|
foreach ($utility->getResults() as $result) { |
||||||
|
$this->assert($result->getType(), $result->getMessage(), 'Islandora', $result->getCaller()); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Sets up the web test case. |
||||||
|
* |
||||||
|
* @see DrupalWebTestCase::setUp() |
||||||
|
*/ |
||||||
|
public function setUp() { |
||||||
|
$args = func_get_args(); |
||||||
|
$args = (isset($args[0]) && is_array($args[0])) ? $args[0] : $args; |
||||||
|
// Always enable islandora. |
||||||
|
$args[] = 'islandora'; |
||||||
|
parent::setUp($args); |
||||||
|
|
||||||
|
// It's possible test are running before class autoloading. |
||||||
|
module_load_include('inc', 'islandora', 'includes/tuque'); |
||||||
|
module_load_include('inc', 'islandora', 'includes/tuque_wrapper'); |
||||||
|
module_load_include('inc', 'islandora', 'tests/includes/utilities'); |
||||||
|
|
||||||
|
$this->configuration = IslandoraTestUtilityClass::getTestConfiguration(); |
||||||
|
if ($this->configuration['use_drupal_filter']) { |
||||||
|
$this->setUpDrupalFilter(); |
||||||
|
} |
||||||
|
$this->admin = $this->createAdminUser(); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Creates the a full fedora admin user with a repository connection. |
||||||
|
*/ |
||||||
|
protected function createAdminUser() { |
||||||
|
$roles = user_roles(); |
||||||
|
$index = array_search('administrator', $roles); |
||||||
|
$user = $this->drupalCreateUser(); |
||||||
|
$user->roles[$index] = 'administrator'; |
||||||
|
$user->name = $this->configuration['admin_user']; |
||||||
|
$user->pass = $this->configuration['admin_pass']; |
||||||
|
$user = user_save($user); |
||||||
|
$url = variable_get('islandora_base_url', $this->configuration['fedora_url']); |
||||||
|
$connection = islandora_get_tuque_connection($user, $url); |
||||||
|
$user->repository = $connection->repository; |
||||||
|
return $user; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Logs in the given user, handles the special case where the user is admin. |
||||||
|
* |
||||||
|
* @see DrupalWebTestCase::drupalLogin() |
||||||
|
*/ |
||||||
|
protected function drupalLogin(stdClass $account) { |
||||||
|
if ($account->uid == $this->admin->uid) { |
||||||
|
// Create password for Drupal. |
||||||
|
$edit = array('pass' => user_password()); |
||||||
|
$account = user_save($account, $edit); |
||||||
|
// Raw password is used to login. |
||||||
|
$account->pass_raw = $edit['pass']; |
||||||
|
// We must login before changing the password for fedora. |
||||||
|
parent::drupalLogin($account); |
||||||
|
$account->name = $this->configuration['admin_user']; |
||||||
|
$account->pass = $this->configuration['admin_pass']; |
||||||
|
// Save the fedora admin credentials for later GET/POST requests. |
||||||
|
$account = user_save($account); |
||||||
|
} |
||||||
|
else { |
||||||
|
parent::drupalLogin($account); |
||||||
|
$this->users[] = $account->name; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Restores the original Drupal filter, frees any allocated resources. |
||||||
|
* |
||||||
|
* To safeguard against leaving test objects in the repository, tearDown() |
||||||
|
* calls deleteUserCreatedObjects() every time by default. This feature can be |
||||||
|
* toggled by setting $this->deleteObjectsOnTeardown to TRUE or FALSE. |
||||||
|
* |
||||||
|
* @see DrupalWebTestCase::tearDown() |
||||||
|
*/ |
||||||
|
public function tearDown() { |
||||||
|
if ($this->deleteObjectsOnTeardown) { |
||||||
|
foreach ($this->users as $user) { |
||||||
|
$this->deleteUserCreatedObjects($user); |
||||||
|
} |
||||||
|
} |
||||||
|
if ($this->configuration['use_drupal_filter']) { |
||||||
|
islandora_repair_drupal_filter(); |
||||||
|
} |
||||||
|
unset($this->admin); |
||||||
|
unset($this->configuration); |
||||||
|
parent::tearDown(); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Gets a tuque object from a path. |
||||||
|
* |
||||||
|
* @param string $path |
||||||
|
* A full or partial path to an islandora object. |
||||||
|
* |
||||||
|
* @return AbstractObject |
||||||
|
* The pid of the object or FALSE if a PID is not found. |
||||||
|
*/ |
||||||
|
public function getObjectFromPath($path) { |
||||||
|
$path_parts = explode('/', $path); |
||||||
|
$array_length = count($path_parts); |
||||||
|
for ($i = 0; $i < $array_length; $i++) { |
||||||
|
if ($path_parts[$i] == 'islandora' && isset($path_parts[$i + 1]) && $path_parts[$i + 1] == 'object') { |
||||||
|
if (isset($path_parts[$i + 2])) { |
||||||
|
return islandora_object_load(urldecode($path_parts[$i + 2])); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
$this->fail("Failed to parse path: $path."); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Deletes an object using the PID. This does the deletion using the UI. |
||||||
|
* |
||||||
|
* @param string $pid |
||||||
|
* The PID of the collection to be deleted |
||||||
|
* @param string $button |
||||||
|
* The label of the first 'Delete' button |
||||||
|
* @param bool $safety |
||||||
|
* If TRUE, this will only delete objects owned by users in $this->users. |
||||||
|
*/ |
||||||
|
public function deleteObject($pid, $button = NULL, $safety = TRUE) { |
||||||
|
$object = islandora_object_load($pid); |
||||||
|
if (!$safety || in_array($object->owner, $this->users)) { |
||||||
|
$path = "islandora/object/$pid/manage/properties"; |
||||||
|
if (isset($button)) { |
||||||
|
$this->drupalPost($path, array(), $button); |
||||||
|
} |
||||||
|
else { |
||||||
|
$object = islandora_object_load($pid); |
||||||
|
$this->drupalPost($path, array(), "Permanently remove '{$object->label}' from repository"); |
||||||
|
} |
||||||
|
$this->drupalPost($this->url, array(), t('Delete')); |
||||||
|
|
||||||
|
$this->drupalGet("islandora/object/$pid"); |
||||||
|
$this->assertResponse(404, "Object $pid successfully deleted."); |
||||||
|
} |
||||||
|
else { |
||||||
|
$this->fail("Cannot delete object {$pid}; it is owned by non-test user {$object->owner}, and this function was called with the safety on."); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* These are a few quick helper functions to fill in a gap in the standard |
||||||
|
* DrupalWebTestCase where no function exists to test for the simple existence |
||||||
|
* or non-existence of an error. |
||||||
|
*/ |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that an error is found in $this->content. |
||||||
|
* |
||||||
|
* @param string $message |
||||||
|
* The message to pass on to the results. |
||||||
|
* @param string $group |
||||||
|
* The group to place the result in. |
||||||
|
* |
||||||
|
* @return bool |
||||||
|
* TRUE on success, FALSE on failure. |
||||||
|
*/ |
||||||
|
public function assertError($message = '', $group = 'Other') { |
||||||
|
if (!$message) { |
||||||
|
$message = "Error found on current page when error was expected."; |
||||||
|
} |
||||||
|
return $this->assertFieldByXPath('//div[contains(@class, "message") and contains(@class, "error")]', NULL, $message, $group); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that no error is found in $this->content. |
||||||
|
* |
||||||
|
* @param string $message |
||||||
|
* The message to pass on to the results. |
||||||
|
* @param string $group |
||||||
|
* The group to place the result in. |
||||||
|
* |
||||||
|
* @return bool |
||||||
|
* TRUE on success, FALSE on failure. |
||||||
|
*/ |
||||||
|
public function assertNoError($message = '', $group = 'Other') { |
||||||
|
if (!$message) { |
||||||
|
$message = "No error found on current page when no error was expected."; |
||||||
|
} |
||||||
|
return $this->assertNoFieldByXPath('//div[contains(@class, "message") and contains(@class, "error")]', NULL, $message, $group); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that a warning is found in $this->content. |
||||||
|
* |
||||||
|
* @param string $message |
||||||
|
* The message to pass on to the results. |
||||||
|
* @param string $group |
||||||
|
* The group to place the result in. |
||||||
|
* |
||||||
|
* @return bool |
||||||
|
* TRUE on success, FALSE on failure. |
||||||
|
*/ |
||||||
|
public function assertWarning($message = '', $group = 'Other') { |
||||||
|
if (!$message) { |
||||||
|
$message = "Warning found on current page when warning was expected."; |
||||||
|
} |
||||||
|
return $this->assertFieldByXPath('//div[contains(@class, "message") and contains(@class, "warning")]', NULL, $message, $group); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that no warning is found in $this->content. |
||||||
|
* |
||||||
|
* @param string $message |
||||||
|
* The message to pass on to the results. |
||||||
|
* @param string $group |
||||||
|
* The group to place the result in. |
||||||
|
* |
||||||
|
* @return bool |
||||||
|
* TRUE on success, FALSE on failure. |
||||||
|
*/ |
||||||
|
public function assertNoWarning($message = '', $group = 'Other') { |
||||||
|
if (!$message) { |
||||||
|
$message = "No warning found on current page when no warning was expected."; |
||||||
|
} |
||||||
|
return $this->assertNoFieldByXPath('//div[contains(@class, "message") and contains(@class, "warning")]', NULL, $message, $group); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Makes a drupalPost() request, using the form submit button's ID. |
||||||
|
* |
||||||
|
* Because drupalPost() is silly and doesn't let us choose which button we'd |
||||||
|
* like to select if multiple buttons have the same value, this function |
||||||
|
* allows us to select whatever button we'd like based on the ID instead. |
||||||
|
* |
||||||
|
* This is done via the absolutely hilarious method of fudging the actual |
||||||
|
* button labels that don't have the ID we want, so that the only one left |
||||||
|
* with the correct label is the one with the right ID. |
||||||
|
* |
||||||
|
* @see DrupalWebTestCase::drupalPost() |
||||||
|
* |
||||||
|
* @param string $path |
||||||
|
* Location of the post form. |
||||||
|
* @param array $edit |
||||||
|
* Field data in an associative array. |
||||||
|
* @param string $submit |
||||||
|
* Value of the submit button whose click is to be emulated. |
||||||
|
* @param string $id |
||||||
|
* ID of the submit button whose click is to be emulated. |
||||||
|
* @param array $options |
||||||
|
* Options to be forwarded to url(). |
||||||
|
* @param array $headers |
||||||
|
* An array containing additional HTTP request headers, each formatted as |
||||||
|
* "name: value". |
||||||
|
* @param null $form_html_id |
||||||
|
* (optional) HTML ID of the form to be submitted. |
||||||
|
* @param null $extra_post |
||||||
|
* (optional) A string of additional data to append to the POST submission. |
||||||
|
* |
||||||
|
* @return bool|string |
||||||
|
* The content from the POST request's curlExec, or FALSE on fail. |
||||||
|
*/ |
||||||
|
public function drupalPostByID($path, $edit, $submit, $id, array $options = array(), array $headers = array(), $form_html_id = NULL, $extra_post = NULL) { |
||||||
|
$buttons = $this->xpath("//input[@type=\"submit\" and @value=\"{$submit}\"]"); |
||||||
|
if (empty($buttons)) { |
||||||
|
$this->fail("No buttons found on the page with value '$submit'"); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
$i = 0; |
||||||
|
foreach ($buttons as $button) { |
||||||
|
if ($button['id'] !== $id) { |
||||||
|
$button['value'] .= "_$i"; |
||||||
|
$i++; |
||||||
|
} |
||||||
|
} |
||||||
|
return $this->drupalPost($path, $edit, $submit, $options, $headers, $form_html_id, $extra_post); |
||||||
|
} |
||||||
|
|
||||||
|
} |
||||||
@ -0,0 +1,153 @@ |
|||||||
|
<?php |
||||||
|
/** |
||||||
|
* @file |
||||||
|
* Abstraction n' stuff for the test utilities and results. |
||||||
|
*/ |
||||||
|
|
||||||
|
/** |
||||||
|
* A result from a utility method; $type defines TRUE/FALSE as pass/fail. |
||||||
|
*/ |
||||||
|
class IslandoraTestUtilityResult { |
||||||
|
|
||||||
|
/** |
||||||
|
* The message for this result. |
||||||
|
* |
||||||
|
* @var string |
||||||
|
*/ |
||||||
|
protected $message; |
||||||
|
|
||||||
|
/** |
||||||
|
* The caller for this result. |
||||||
|
* |
||||||
|
* @var array |
||||||
|
*/ |
||||||
|
protected $caller; |
||||||
|
|
||||||
|
/** |
||||||
|
* The type of result this is - TRUE for pass, FALSE for fail. |
||||||
|
* |
||||||
|
* @var bool |
||||||
|
*/ |
||||||
|
protected $type; |
||||||
|
|
||||||
|
/** |
||||||
|
* Constructs an IslandoraTestUtilityResult. |
||||||
|
* |
||||||
|
* @param bool $type |
||||||
|
* Whether this result should indicate a pass (TRUE) or fail (FALSE). |
||||||
|
* @param string $message |
||||||
|
* The message that will be used by this result. |
||||||
|
* @param array $caller |
||||||
|
* The caller for this result. |
||||||
|
*/ |
||||||
|
public function __construct($type, $message, array $caller) { |
||||||
|
$this->message = $message; |
||||||
|
$this->caller = $caller; |
||||||
|
$this->type = $type; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Get the message for this result. |
||||||
|
* |
||||||
|
* @return string |
||||||
|
* The message for this result. |
||||||
|
*/ |
||||||
|
public function getMessage() { |
||||||
|
return $this->message; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Get the caller for this result. |
||||||
|
* |
||||||
|
* @return string |
||||||
|
* The caller for this result. |
||||||
|
*/ |
||||||
|
public function getCaller() { |
||||||
|
return $this->caller; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Get the type of result. |
||||||
|
* |
||||||
|
* @return bool |
||||||
|
* The type of pass (TRUE for pass, FALSE for fail). |
||||||
|
*/ |
||||||
|
public function getType() { |
||||||
|
return $this->type; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Abstraction for test utility classes. |
||||||
|
* |
||||||
|
* This is to be implemented in any class that wants to have test utility |
||||||
|
* functionality (i.e. that wants to pass back results to tests). Check out the |
||||||
|
* datastream validator class for a good example of how this is implemented. |
||||||
|
* |
||||||
|
* Test utility classes should store per-installation configuration options in |
||||||
|
* a test_config.ini file, contained in the islandora/tests folder. A function |
||||||
|
* is included with the abstraction to parse the configuration file. |
||||||
|
*/ |
||||||
|
abstract class IslandoraTestUtilityClass { |
||||||
|
|
||||||
|
/** |
||||||
|
* An array of IslandoraTestUtilityResults. |
||||||
|
* |
||||||
|
* These should be generated using $this->addResult. |
||||||
|
* |
||||||
|
* @var IslandoraTestUtilityResult[] |
||||||
|
*/ |
||||||
|
public $results = array(); |
||||||
|
|
||||||
|
/** |
||||||
|
* Parses and returns the settings from the test configuration file. |
||||||
|
* |
||||||
|
* If no install specific test_config.ini file is found, it will use the |
||||||
|
* assumed default configs found in default.test_config.ini. |
||||||
|
* |
||||||
|
* @return array |
||||||
|
* The test configuration. |
||||||
|
* |
||||||
|
* @see parse_ini_file() |
||||||
|
*/ |
||||||
|
public static function getTestConfiguration() { |
||||||
|
$path = drupal_get_path('module', 'islandora'); |
||||||
|
if (file_exists("$path/tests/test_config.ini")) { |
||||||
|
return parse_ini_file("$path/tests/test_config.ini"); |
||||||
|
} |
||||||
|
elseif (file_exists("$path/tests/default.test_config.ini")) { |
||||||
|
return parse_ini_file("$path/tests/default.test_config.ini"); |
||||||
|
} |
||||||
|
throw new Exception('Required default.test_config.ini/test_config.ini file not found'); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Returns an array of IslandoraTestUtilityResults. |
||||||
|
* |
||||||
|
* The particular testing implementation you are using should use this to |
||||||
|
* parse results from utilities and pass them through. |
||||||
|
* |
||||||
|
* @return IslandoraTestUtilityResult[] |
||||||
|
* The results. |
||||||
|
*/ |
||||||
|
abstract public function getResults(); |
||||||
|
|
||||||
|
/** |
||||||
|
* Adds a result to $this->results. |
||||||
|
* |
||||||
|
* @param bool $type |
||||||
|
* The type of result (TRUE for pass, FALSE for fail). |
||||||
|
* @param string $message |
||||||
|
* The message to put in the result. |
||||||
|
*/ |
||||||
|
abstract public function addResult($type, $message); |
||||||
|
|
||||||
|
/** |
||||||
|
* Gets the caller of the method that passed a result. |
||||||
|
* |
||||||
|
* @return array |
||||||
|
* Array representing the true caller. |
||||||
|
*/ |
||||||
|
abstract public function getAssertionCall(); |
||||||
|
|
||||||
|
} |
||||||
@ -0,0 +1,354 @@ |
|||||||
|
<?php |
||||||
|
/** |
||||||
|
* @file |
||||||
|
* Utilities classes for simpletest. |
||||||
|
* |
||||||
|
* These utilities are shared between the Islandora Web and Unit test cases and |
||||||
|
* can potentially be used for future testing implementations, as they pass back |
||||||
|
* a consistent style of result. |
||||||
|
* |
||||||
|
* Check the implementations in IslandoraUnitTestCase and IslandoraWebTestCase |
||||||
|
* for some examples of how this is done in a Drupal context; in the future, |
||||||
|
* more methods for result-passing could potentially be added to this without |
||||||
|
* breaking existing implementations. |
||||||
|
*/ |
||||||
|
|
||||||
|
class IslandoraTestUtilities extends IslandoraTestUtilityClass { |
||||||
|
|
||||||
|
protected $configuration; |
||||||
|
|
||||||
|
protected $params; |
||||||
|
|
||||||
|
public $results = array(); |
||||||
|
|
||||||
|
protected $repository; |
||||||
|
|
||||||
|
/** |
||||||
|
* Constructs an IslandoraTestUtilities object. |
||||||
|
* |
||||||
|
* @param array $configuration |
||||||
|
* The parsed test configuration. |
||||||
|
* @param array $params |
||||||
|
* Any additional parameters the method called may need to function. |
||||||
|
*/ |
||||||
|
public function __construct($configuration, array $params = array()) { |
||||||
|
$this->configuration = $configuration; |
||||||
|
$this->params = $params; |
||||||
|
$connection = new RepositoryConnection($this->configuration['fedora_url'], $this->configuration['admin_user'], $this->configuration['admin_pass']); |
||||||
|
$api = new FedoraApi($connection); |
||||||
|
$this->repository = new FedoraRepository($api, new SimpleCache()); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Sets up a drupal filter that can read from the tests users table. |
||||||
|
*/ |
||||||
|
public function setUpDrupalFilter() { |
||||||
|
$original_drupal_filter_content = file_get_contents($this->configuration['drupal_filter_file']); |
||||||
|
$connection_info = Database::getConnectionInfo('default'); |
||||||
|
$drupal_filter_dom = new DomDocument(); |
||||||
|
$drupal_filter_dom->loadXML($original_drupal_filter_content); |
||||||
|
$prefix = $connection_info['default']['prefix']['default']; |
||||||
|
$filter_drupal_connection_node = $drupal_filter_dom->getElementsByTagName('FilterDrupal_Connection')->item(0); |
||||||
|
$first_connection_node = $drupal_filter_dom->getElementsByTagName('connection')->item(0); |
||||||
|
$connection_node = $filter_drupal_connection_node->insertBefore($drupal_filter_dom->createElement('connection'), $first_connection_node); |
||||||
|
$connection_node->setAttribute('server', $connection_info['default']['host']); |
||||||
|
$connection_node->setAttribute('dbname', $connection_info['default']['database']); |
||||||
|
$connection_node->setAttribute('user', $connection_info['default']['username']); |
||||||
|
$connection_node->setAttribute('password', $connection_info['default']['password']); |
||||||
|
$connection_node->setAttribute('port', $connection_info['default']['port'] ? $connection_info['default']['port'] : '3306'); |
||||||
|
$sql_node = $drupal_filter_dom->createElement('sql', "SELECT DISTINCT u.uid AS userid, u.name AS Name, u.pass AS Pass, r.name AS Role FROM ({$prefix}users u LEFT JOIN {$prefix}users_roles ON u.uid={$prefix}users_roles.uid) LEFT JOIN {$prefix}role r ON r.rid={$prefix}users_roles.rid WHERE u.name=? AND u.pass=?;"); |
||||||
|
$connection_node->appendChild($sql_node); |
||||||
|
file_put_contents($this->configuration['drupal_filter_file'], $drupal_filter_dom->saveXML()); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Returns an array of IslandoraTestUtilityResults. |
||||||
|
* |
||||||
|
* @return IslandoraTestUtilityResult[] |
||||||
|
* The results. |
||||||
|
*/ |
||||||
|
public function getResults() { |
||||||
|
return $this->results; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Adds a result to $this->results. |
||||||
|
* |
||||||
|
* @param bool $type |
||||||
|
* The type of result (TRUE for pass, FALSE for fail). |
||||||
|
* @param string $message |
||||||
|
* The message to put in the result. |
||||||
|
*/ |
||||||
|
public function addResult($type, $message) { |
||||||
|
$result = new IslandoraTestUtilityResult($type, $message, $this->getAssertionCall()); |
||||||
|
$this->results[] = $result; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Cycles through backtrace until the first non-assertion method is found. |
||||||
|
* |
||||||
|
* This is a manipulated version of DrupalWebTestCase::getAssertionCall(). |
||||||
|
* We use it here so that we can pass back assertion calls from |
||||||
|
* DatastreamValidator assertions instead of less useful TestCase functions. |
||||||
|
* |
||||||
|
* @return array |
||||||
|
* Array representing the true caller. |
||||||
|
*/ |
||||||
|
public function getAssertionCall() { |
||||||
|
$backtrace = debug_backtrace(); |
||||||
|
array_shift($backtrace); |
||||||
|
return _drupal_get_last_caller($backtrace); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the given datastreams exist correctly on the object. |
||||||
|
* |
||||||
|
* @param AbstractObject $object |
||||||
|
* The object to check. |
||||||
|
* @param array $datastreams |
||||||
|
* An array of strings containing datastream names. |
||||||
|
* |
||||||
|
* @return bool |
||||||
|
* TRUE on success, FALSE on fail. |
||||||
|
*/ |
||||||
|
public function assertDatastreams($object, array $datastreams) { |
||||||
|
if (!self::assertFedoraObject($object)) { |
||||||
|
$this->addResult(FALSE, "Failed. Object passed in is invalid.", 'Islandora'); |
||||||
|
} |
||||||
|
else { |
||||||
|
$missing_datastreams = array_diff_key(array_flip($datastreams), $object->repository->api->a->listDatastreams($object->id)); |
||||||
|
|
||||||
|
if (!empty($missing_datastreams)) { |
||||||
|
$this->addResult(FALSE, "Failed to find datastream(s) " . implode(', ', array_flip($missing_datastreams)) . " in object {$object->id}."); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
|
||||||
|
$this->addResult(TRUE, "Found required datastream(s) in object {$object->id}"); |
||||||
|
return TRUE; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that the given datastreams do not exist on the object. |
||||||
|
* |
||||||
|
* @param AbstractObject $object |
||||||
|
* The object to check. |
||||||
|
* @param array $datastreams |
||||||
|
* An array of datastreams to confirm not present. |
||||||
|
*/ |
||||||
|
public function assertNoDatastreams($object, array $datastreams) { |
||||||
|
if (!self::assertFedoraObject($object)) { |
||||||
|
$this->addResult(FALSE, "Failed. Object passed in is invalid.", 'Islandora'); |
||||||
|
return; |
||||||
|
} |
||||||
|
$found_datastreams = array_intersect_key(array_flip($datastreams), $object->repository->api->a->listDatastreams($object->id)); |
||||||
|
|
||||||
|
if (!empty($found_datastreams)) { |
||||||
|
$this->addResult(FALSE, "Found unwanted datastream(s)" . implode(', ', array_flip($found_datastreams)) . " in object {$object->id}."); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
|
||||||
|
$this->addResult(TRUE, "Unwanted datastream(s) not found in object {$object->id}"); |
||||||
|
return TRUE; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Attempts to validate an array of datastreams, generally via binary checks. |
||||||
|
* |
||||||
|
* Datastream validation classes exist in, and can be added to, the file |
||||||
|
* 'datastream_validators.inc', which is found in this folder. Datastream |
||||||
|
* validator classes use the naming convention 'PrefixDatastreamValidator', |
||||||
|
* and that 'Prefix' is what this function uses to determine what class to |
||||||
|
* instantiate. |
||||||
|
* |
||||||
|
* $param IslandoraFedoraObject $object |
||||||
|
* The object to load datastreams from. |
||||||
|
* $param array $datastreams |
||||||
|
* An array of arrays that pair DSIDs, DatastreamValidator class prefixes, |
||||||
|
* and optional params. You can check some of the existing implementations |
||||||
|
* for examples. |
||||||
|
*/ |
||||||
|
public function validateDatastreams($object, array $datastreams) { |
||||||
|
|
||||||
|
if (!self::assertFedoraObject($object)) { |
||||||
|
$this->addResult(FALSE, "Datastream validation failed; Object passed in is invalid.", 'Islandora'); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
module_load_include('inc', 'islandora', 'tests/includes/datastream_validators'); |
||||||
|
|
||||||
|
foreach ($datastreams as $datastream) { |
||||||
|
// XXX: The "+ array (2 => array())" is to allow the value to be optional. |
||||||
|
list($dsid, $prefix, $params) = $datastream + array(2 => array()); |
||||||
|
|
||||||
|
// Instantiate the appropriate class, and grab the results. |
||||||
|
$class_name = "{$prefix}DatastreamValidator"; |
||||||
|
if (class_exists($class_name)) { |
||||||
|
$validator = new $class_name($object, $dsid, $params); |
||||||
|
foreach ($validator->getResults() as $result) { |
||||||
|
$this->addResult($result->getType(), $result->getMessage()); |
||||||
|
} |
||||||
|
} |
||||||
|
else { |
||||||
|
$this->addResult(FALSE, "No DatastreamValidator class was found with the name '$class_name'; are you sure the prefix given to IslandoraWebTestCase->validateDatastreams() was entered correctly, or that such a validator exists?", 'Islandora'); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Constructs and ingests a Fedora object and datastream(s) via tuque. |
||||||
|
* |
||||||
|
* All keys inside the parameter arrays for this function are optional. it |
||||||
|
* can be run simply by calling the method with no arguments. |
||||||
|
* |
||||||
|
* If your test case supports logged in Drupal users, IslandoraTestUtilities |
||||||
|
* can be instantiated with $params['logged_in_user'] as that user object, and |
||||||
|
* this method will set the owner of the ingested object as that user by |
||||||
|
* default. |
||||||
|
* |
||||||
|
* @param array $properties |
||||||
|
* An array containing object information using these keys: |
||||||
|
* 'label' - The object label; randomized if not set. |
||||||
|
* 'pid' - 'namespace:pid', or just 'namespace' to generate the suffix. |
||||||
|
* 'models' - An array that can contain multiple content model PIDs, or a |
||||||
|
* string containing a single content model PID. |
||||||
|
* 'owner' - The object's owner. Defaults to the currently logged-in user, |
||||||
|
* if available. It is recommended to set this to a value that can be found |
||||||
|
* in $this->users; otherwise, this object will have to be manually deleted. |
||||||
|
* 'parent' - The PID of the parent collection. |
||||||
|
* @param array $datastreams |
||||||
|
* An array containing zero or more datastream arrays that use the keys: |
||||||
|
* 'dsid' - the datastream ID; randomized if not set. |
||||||
|
* 'path' - The path to the file to use; defaults to fixtures/test.jpg. |
||||||
|
* 'control_group' - The single-letter control group identifier. |
||||||
|
* 'mimetype' - The datastream's mimetype. |
||||||
|
* |
||||||
|
* @return bool|array |
||||||
|
* FALSE if the object ingest failed, or the object array if successful. |
||||||
|
*/ |
||||||
|
public function ingestConstructedObject(array $properties = array(), array $datastreams = array()) { |
||||||
|
if (!isset($properties['pid'])) { |
||||||
|
$properties['pid'] = "islandora"; |
||||||
|
} |
||||||
|
$object = $this->repository->constructObject($properties['pid']); |
||||||
|
|
||||||
|
// Set the object properties before ingesting it. |
||||||
|
if (isset($properties['label'])) { |
||||||
|
$object->label = $properties['label']; |
||||||
|
} |
||||||
|
else { |
||||||
|
$properties['label'] = DrupalUnitTestCase::randomName(); |
||||||
|
$object->label = $properties['label']; |
||||||
|
} |
||||||
|
|
||||||
|
if (isset($properties['owner'])) { |
||||||
|
$object->owner = $properties['owner']; |
||||||
|
} |
||||||
|
elseif (isset($this->params['logged_in_user'])) { |
||||||
|
$object->owner = $this->params['logged_in_user']->name; |
||||||
|
} |
||||||
|
|
||||||
|
if (isset($properties['models'])) { |
||||||
|
try { |
||||||
|
$object->models = (array) $properties['models']; |
||||||
|
} |
||||||
|
catch (Exception $e) { |
||||||
|
$this->addResult(FALSE, "Encountered an exception when trying to add content models to {$object->id}: $e"); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
// Chuck in some datastreams. |
||||||
|
if (!empty($datastreams)) { |
||||||
|
foreach ($datastreams as $datastream) { |
||||||
|
if (!isset($datastream['dsid'])) { |
||||||
|
$datastream['dsid'] = DrupalUnitTestCase::randomName(); |
||||||
|
} |
||||||
|
if (!isset($datastream['path'])) { |
||||||
|
$datastream['path'] = drupal_get_path('module', 'islandora') . '/tests/fixtures/test.jpg'; |
||||||
|
} |
||||||
|
if (!isset($datastream['control_group'])) { |
||||||
|
$new_datastream = $object->constructDatastream($datastream['dsid']); |
||||||
|
} |
||||||
|
else { |
||||||
|
$new_datastream = $object->constructDatastream($datastream['dsid'], $datastream['control_group']); |
||||||
|
} |
||||||
|
$new_datastream->label = $datastream['dsid']; |
||||||
|
if (isset($datastream['mimetype'])) { |
||||||
|
$new_datastream->mimetype = $datastream['mimetype']; |
||||||
|
} |
||||||
|
$new_datastream->setContentFromFile($datastream['path']); |
||||||
|
$object->ingestDatastream($new_datastream); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
$this->repository->ingestObject($object); |
||||||
|
if (!$object) { |
||||||
|
$this->addResult(FALSE, t("Failed to ingest object."), 'Islandora'); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
else { |
||||||
|
$this->addResult(TRUE, t("Ingested object %object", array('%object' => $object->id)), 'Islandora'); |
||||||
|
} |
||||||
|
|
||||||
|
// Add a parent relationship, if necessary. |
||||||
|
if (isset($properties['parent'])) { |
||||||
|
$object->relationships->add(FEDORA_RELS_EXT_URI, 'isMemberOfCollection', $properties['parent']); |
||||||
|
} |
||||||
|
|
||||||
|
return $object; |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Deletes all objects created by the given user. |
||||||
|
* |
||||||
|
* To safeguard against leaving test objects in the repository, this is called |
||||||
|
* each time DrupalTestCase::run() calls tearDown(). This feature can be |
||||||
|
* toggled by setting $this->deleteObjectsOnTeardown to TRUE or FALSE. |
||||||
|
* |
||||||
|
* @param object $username |
||||||
|
* The user whose objects we'd like to remove. |
||||||
|
* |
||||||
|
* @return bool |
||||||
|
* TRUE on success, FALSE on failure. |
||||||
|
*/ |
||||||
|
public function deleteUserCreatedObjects($username) { |
||||||
|
if ($username === $this->configuration['admin_user']) { |
||||||
|
$this->addResult(FALSE, "This function will under no circumstance attempt deletion of all objects owned by the configured Fedora admin user ({$this->configuration['admin_user']}), as this could irreparably damage the repository.", 'Islandora'); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
|
||||||
|
$query = <<<QUERY |
||||||
|
SELECT ?object FROM <#ri> WHERE |
||||||
|
{ |
||||||
|
?object <fedora-model:ownerId> "$username" |
||||||
|
} |
||||||
|
QUERY; |
||||||
|
|
||||||
|
$objects = $this->repository->ri->sparqlQuery($query); |
||||||
|
foreach ($objects as $object) { |
||||||
|
$loaded_object = islandora_object_load($object['object']['value']); |
||||||
|
$this->repository->api->m->purgeObject($loaded_object->id); |
||||||
|
if (islandora_object_load($object['object']['value'])) { |
||||||
|
$this->addResult(TRUE, "Object {$object['object']['value']} successfully removed from repository."); |
||||||
|
return TRUE; |
||||||
|
} |
||||||
|
$this->addResult(FALSE, "Unable to remove object {$object['object']['value']} from the repository."); |
||||||
|
return FALSE; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Asserts that an object is a FedoraObject or an IslandoraFedoraObject. |
||||||
|
* |
||||||
|
* @param object $object |
||||||
|
* The object to assess. |
||||||
|
* |
||||||
|
* @return bool |
||||||
|
* TRUE if it is either of those object types, or FALSE otherwise. |
||||||
|
*/ |
||||||
|
public static function assertFedoraObject($object) { |
||||||
|
return ($object instanceof FedoraObject); |
||||||
|
} |
||||||
|
|
||||||
|
} |
||||||
@ -0,0 +1,83 @@ |
|||||||
|
<?php |
||||||
|
|
||||||
|
/** |
||||||
|
* @file |
||||||
|
* Tests for our islandora_temp_file_entry() function. |
||||||
|
*/ |
||||||
|
|
||||||
|
class IslandoraManageTempfileTestCase extends IslandoraWebTestCase { |
||||||
|
|
||||||
|
/** |
||||||
|
* Gets info to display to describe this test. |
||||||
|
* |
||||||
|
* @see IslandoraWebTestCase::getInfo() |
||||||
|
*/ |
||||||
|
public static function getInfo() { |
||||||
|
return array( |
||||||
|
'name' => 'Islandora Managed Tempfile Interface', |
||||||
|
'description' => 'Ensure that our managed tempfile interface returns appropriate results.', |
||||||
|
'group' => 'Islandora', |
||||||
|
); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Creates an admin user and a connection to a fedora repository. |
||||||
|
* |
||||||
|
* @see IslandoraWebTestCase::setUp() |
||||||
|
*/ |
||||||
|
public function setUp() { |
||||||
|
parent::setUp('islandora'); |
||||||
|
$this->tempUri = file_create_filename('temp.txt', 'temporary://'); |
||||||
|
$this->publicUri = file_create_filename('temp.txt', 'public://'); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Free any objects/resources created for this test. |
||||||
|
* |
||||||
|
* @see IslandoraWebTestCase::tearDown() |
||||||
|
*/ |
||||||
|
public function tearDown() { |
||||||
|
parent::tearDown(); |
||||||
|
file_unmanaged_delete($this->tempUri); |
||||||
|
file_unmanaged_delete($this->publicUri); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Existing files are made temporary. |
||||||
|
*/ |
||||||
|
public function testExistingFile() { |
||||||
|
$temp_file = file_save_data('blah', $this->tempUri, FILE_EXISTS_REPLACE); |
||||||
|
$public_file = file_save_data('blah', $this->publicUri, FILE_EXISTS_REPLACE); |
||||||
|
|
||||||
|
$this->existingFileHelper($temp_file); |
||||||
|
$this->existingFileHelper($public_file); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Helper function; ensure file is permanent (as file_save_data() creates). |
||||||
|
*/ |
||||||
|
protected function existingFileHelper($file_object) { |
||||||
|
$this->assertEqual($file_object->status & FILE_STATUS_PERMANENT, FILE_STATUS_PERMANENT, 'Existing file is permanent.'); |
||||||
|
$this->baseFileHelper($file_object->uri); |
||||||
|
$this->assertTrue(file_delete($file_object)); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Helper function; ensure our function produces an temporary file object. |
||||||
|
*/ |
||||||
|
protected function baseFileHelper($file_uri) { |
||||||
|
$temp_file = islandora_temp_file_entry($file_uri); |
||||||
|
$this->assertNotEqual($temp_file->status & FILE_STATUS_PERMANENT, FILE_STATUS_PERMANENT, 'File has been made temporary.'); |
||||||
|
} |
||||||
|
|
||||||
|
/** |
||||||
|
* Unmanaged files start being managed. |
||||||
|
*/ |
||||||
|
public function testNewFileUri() { |
||||||
|
file_put_contents($this->tempUri, 'test'); |
||||||
|
file_put_contents($this->publicUri, 'test'); |
||||||
|
|
||||||
|
$this->baseFileHelper($this->tempUri); |
||||||
|
$this->baseFileHelper($this->publicUri); |
||||||
|
} |
||||||
|
} |
||||||
@ -1,445 +0,0 @@ |
|||||||
<?php |
|
||||||
|
|
||||||
/** |
|
||||||
* @file |
|
||||||
* Defines the class IslandoraWebTestCase, which allows tests to access Fedora. |
|
||||||
*/ |
|
||||||
|
|
||||||
class IslandoraWebTestCase extends DrupalWebTestCase { |
|
||||||
|
|
||||||
/** |
|
||||||
* An array of users that may be created over the course of a test. |
|
||||||
* |
|
||||||
* @var array |
|
||||||
*/ |
|
||||||
protected $users = array(); |
|
||||||
|
|
||||||
/** |
|
||||||
* By default, deleteUserCreatedObjects() runs on each tearDown() step. |
|
||||||
*/ |
|
||||||
protected $deleteObjectsOnTeardown = TRUE; |
|
||||||
|
|
||||||
/** |
|
||||||
* Sets up the Drupal filter to access this test Drupal instances database. |
|
||||||
* |
|
||||||
* @see DrupalWebTestCase::setUp() |
|
||||||
*/ |
|
||||||
public function setUp() { |
|
||||||
$args = func_get_args(); |
|
||||||
$args = (isset($args[0]) && is_array($args[0])) ? $args[0] : $args; |
|
||||||
// Always enable islandora. |
|
||||||
$args[] = 'islandora'; |
|
||||||
parent::setUp($args); |
|
||||||
|
|
||||||
// Its possible test are running before class autoloading. |
|
||||||
module_load_include('inc', 'islandora', 'includes/tuque'); |
|
||||||
module_load_include('inc', 'islandora', 'includes/tuque_wrapper'); |
|
||||||
|
|
||||||
$this->configuration = $this->getTestConfiguration(); |
|
||||||
if ($this->configuration['use_drupal_filter']) { |
|
||||||
$this->backUpDrupalFilter(); |
|
||||||
$this->setUpDrupalFilter(); |
|
||||||
} |
|
||||||
$this->admin = $this->createAdminUser(); |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Parses and returns the settings from the test configuration file. |
|
||||||
* |
|
||||||
* If no install specific test_config.ini file is found, it will use the |
|
||||||
* assumed default configs found in default.test_config.ini. |
|
||||||
* |
|
||||||
* @return array |
|
||||||
* The test configuration. |
|
||||||
* |
|
||||||
* @see parse_ini_file() |
|
||||||
*/ |
|
||||||
protected function getTestConfiguration() { |
|
||||||
$path = drupal_get_path('module', 'islandora'); |
|
||||||
if (file_exists("$path/tests/test_config.ini")) { |
|
||||||
$this->pass('Using custom test configuration.'); |
|
||||||
return parse_ini_file("$path/tests/test_config.ini"); |
|
||||||
} |
|
||||||
elseif (file_exists("$path/tests/default.test_config.ini")) { |
|
||||||
$this->pass('Using default test configuration.'); |
|
||||||
return parse_ini_file("$path/tests/default.test_config.ini"); |
|
||||||
} |
|
||||||
throw new Exception('Required default.test_config.ini/test_config.ini file not found'); |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Stores the content of the Drupal Filter for later restoration. |
|
||||||
*/ |
|
||||||
protected function backUpDrupalFilter() { |
|
||||||
if (file_exists($this->configuration['drupal_filter_file'])) { |
|
||||||
$this->originalDrupalFilterContent = file_get_contents($this->configuration['drupal_filter_file']); |
|
||||||
} |
|
||||||
else { |
|
||||||
throw new Exception('Failed to find the required Drupal Filter configuration file.'); |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Sets up a drupal filter that can read for the tests users table. |
|
||||||
*/ |
|
||||||
protected function setUpDrupalFilter() { |
|
||||||
$connection_info = Database::getConnectionInfo('default'); |
|
||||||
$drupal_filter_dom = new DomDocument(); |
|
||||||
$drupal_filter_dom->loadXML($this->originalDrupalFilterContent); |
|
||||||
$server = $connection_info['default']['host']; |
|
||||||
$dbname = $connection_info['default']['database']; |
|
||||||
$user = $connection_info['default']['username']; |
|
||||||
$password = $connection_info['default']['password']; |
|
||||||
$port = $connection_info['default']['port'] ? $connection_info['default']['port'] : '3306'; |
|
||||||
$prefix = $connection_info['default']['prefix']['default']; |
|
||||||
$filter_drupal_connection_node = $drupal_filter_dom->getElementsByTagName('FilterDrupal_Connection')->item(0); |
|
||||||
$first_connection_node = $drupal_filter_dom->getElementsByTagName('connection')->item(0); |
|
||||||
$connection_node = $filter_drupal_connection_node->insertBefore($drupal_filter_dom->createElement('connection'), $first_connection_node); |
|
||||||
$connection_node->setAttributeNode(new DOMAttr('server', $server)); |
|
||||||
$connection_node->setAttributeNode(new DOMAttr('dbname', $dbname)); |
|
||||||
$connection_node->setAttributeNode(new DOMAttr('user', $user)); |
|
||||||
$connection_node->setAttributeNode(new DOMAttr('password', $password)); |
|
||||||
$connection_node->setAttributeNode(new DOMAttr('port', $port)); |
|
||||||
$sql_node = $connection_node->appendChild(new DOMElement('sql')); |
|
||||||
$sql_node->appendChild($drupal_filter_dom->createTextNode("SELECT DISTINCT u.uid AS userid, u.name AS Name, u.pass AS Pass, r.name AS Role FROM ({$prefix}users u LEFT JOIN {$prefix}users_roles ON u.uid={$prefix}users_roles.uid) LEFT JOIN {$prefix}role r ON r.rid={$prefix}users_roles.rid WHERE u.name=? AND u.pass=?;")); |
|
||||||
file_put_contents($this->configuration['drupal_filter_file'], $drupal_filter_dom->saveXML()); |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Creates the a full fedora admin user with a repository connection. |
|
||||||
*/ |
|
||||||
protected function createAdminUser() { |
|
||||||
$roles = user_roles(); |
|
||||||
$index = array_search('administrator', $roles); |
|
||||||
$user = $this->drupalCreateUser(); |
|
||||||
$user->roles[$index] = 'administrator'; |
|
||||||
$user->name = $this->configuration['admin_user']; |
|
||||||
$user->pass = $this->configuration['admin_pass']; |
|
||||||
$user = user_save($user); |
|
||||||
$url = variable_get('islandora_base_url', $this->configuration['fedora_url']); |
|
||||||
$connection = islandora_get_tuque_connection($user, $url); |
|
||||||
$user->repository = $connection->repository; |
|
||||||
return $user; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Logs in the given user, handles the special case where the user is admin. |
|
||||||
* |
|
||||||
* @see DrupalWebTestCase::drupalLogin() |
|
||||||
*/ |
|
||||||
protected function drupalLogin(stdClass $account) { |
|
||||||
if ($account->uid == $this->admin->uid) { |
|
||||||
// Create password for Drupal. |
|
||||||
$edit = array('pass' => user_password()); |
|
||||||
$account = user_save($account, $edit); |
|
||||||
// Raw password is used to login. |
|
||||||
$account->pass_raw = $edit['pass']; |
|
||||||
// We must login before changing the password for fedora. |
|
||||||
parent::drupalLogin($account); |
|
||||||
$account->name = $this->configuration['admin_user']; |
|
||||||
$account->pass = $this->configuration['admin_pass']; |
|
||||||
// Save the fedora admin credentials for later GET/POST requests. |
|
||||||
$account = user_save($account); |
|
||||||
} |
|
||||||
else { |
|
||||||
parent::drupalLogin($account); |
|
||||||
$this->users[] = $account->name; |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
|
|
||||||
/** |
|
||||||
* Stores the content of the Drupal Filter for later restoration. |
|
||||||
*/ |
|
||||||
protected function restoreDrupalFilter() { |
|
||||||
$file = $this->configuration['drupal_filter_file']; |
|
||||||
if (isset($this->originalDrupalFilterContent)) { |
|
||||||
file_put_contents($file, $this->originalDrupalFilterContent); |
|
||||||
} |
|
||||||
elseif (file_exists($file)) { |
|
||||||
// Remove if there was never an original. |
|
||||||
drupal_unlink($file); |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Restores the original Drupal filter, frees any allocated resources. |
|
||||||
* |
|
||||||
* To safeguard against leaving test objects in the repository, tearDown() |
|
||||||
* calls deleteUserCreatedObjects() every time by default. This feature can be |
|
||||||
* toggled by setting $this->deleteObjectsOnTeardown to TRUE or FALSE. |
|
||||||
* |
|
||||||
* @see DrupalWebTestCase::tearDown() |
|
||||||
*/ |
|
||||||
public function tearDown() { |
|
||||||
if ($this->deleteObjectsOnTeardown) { |
|
||||||
foreach ($this->users as $user) { |
|
||||||
$this->deleteUserCreatedObjects($user); |
|
||||||
} |
|
||||||
} |
|
||||||
if ($this->configuration['use_drupal_filter']) { |
|
||||||
$this->restoreDrupalFilter(); |
|
||||||
} |
|
||||||
unset($this->admin); |
|
||||||
unset($this->configuration); |
|
||||||
parent::tearDown(); |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Asserts that the given datastreams exist correctly on the object. |
|
||||||
* |
|
||||||
* @param AbstractObject $object |
|
||||||
* The PID of the object |
|
||||||
* @param array $datastreams |
|
||||||
* An array of strings containing datastream names |
|
||||||
* |
|
||||||
* @return bool |
|
||||||
* TRUE on success, FALSE on fail. |
|
||||||
*/ |
|
||||||
public function assertDatastreams($object, array $datastreams) { |
|
||||||
if (!is_object($object)) { |
|
||||||
$this->fail("Failed. Object passed in is invalid.", 'Islandora'); |
|
||||||
} |
|
||||||
else { |
|
||||||
$missing_datastreams = array_diff_key(array_flip($datastreams), $this->admin->repository->api->a->listDatastreams($object->id)); |
|
||||||
|
|
||||||
if (!empty($missing_datastreams)) { |
|
||||||
$this->fail("Failed to find datastream(s) " . implode(', ', array_flip($missing_datastreams)) . " in object {$object->id}."); |
|
||||||
return FALSE; |
|
||||||
} |
|
||||||
|
|
||||||
$this->pass("Found required datastream(s) in object {$object->id}"); |
|
||||||
return TRUE; |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Attempts to validate an array of datastreams, generally via binary checks. |
|
||||||
* |
|
||||||
* These functions exist in, and can be added to, datastream_validators.inc, |
|
||||||
* which is found in this folder. |
|
||||||
* |
|
||||||
* $param AbstractObject $object |
|
||||||
* The object to load datastreams from. |
|
||||||
* $param array $datastreams |
|
||||||
* An array of paired DSIDs, validate function names, and optional params. |
|
||||||
*/ |
|
||||||
public function validateDatastreams($object, array $datastreams) { |
|
||||||
if (!is_object($object)) { |
|
||||||
$this->fail("Failed. Object passed in is invalid.", 'Islandora'); |
|
||||||
} |
|
||||||
module_load_include('inc', 'islandora', 'tests/datastream_validators'); |
|
||||||
foreach ($datastreams as $datastream) { |
|
||||||
if (isset($object[$datastream[0]])) { |
|
||||||
$function = 'islandora_validate_' . $datastream[1] . '_datastream'; |
|
||||||
if (function_exists($function)) { |
|
||||||
if (isset($datastream[2])) { |
|
||||||
$results = $function($object, $datastream[0], $datastream[2]); |
|
||||||
} |
|
||||||
else { |
|
||||||
$results = $function($object, $datastream[0]); |
|
||||||
} |
|
||||||
foreach ($results as $result) { |
|
||||||
$this->assertTrue($result[0], $result[1], 'Islandora'); |
|
||||||
} |
|
||||||
} |
|
||||||
else { |
|
||||||
$this->fail("No {$datastream[0]} validation function exists for the {$datastream[1]} datastream.", 'Islandora'); |
|
||||||
} |
|
||||||
} |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Gets a tuque object from a path. |
|
||||||
* |
|
||||||
* @param string $path |
|
||||||
* A full or partial path to an islandora object. |
|
||||||
* |
|
||||||
* @return AbstractObject |
|
||||||
* The pid of the object or FALSE if a PID is not found. |
|
||||||
*/ |
|
||||||
public function getObjectFromPath($path) { |
|
||||||
$path_parts = explode('/', $path); |
|
||||||
$array_length = count($path_parts); |
|
||||||
for ($i = 0; $i < $array_length; $i++) { |
|
||||||
if ($path_parts[$i] == 'islandora' && isset($path_parts[$i + 1]) && $path_parts[$i + 1] == 'object') { |
|
||||||
if (isset($path_parts[$i + 2])) { |
|
||||||
return islandora_object_load(urldecode($path_parts[$i + 2])); |
|
||||||
} |
|
||||||
} |
|
||||||
} |
|
||||||
$this->fail("Failed to parse path: $path."); |
|
||||||
return FALSE; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Deletes an object using the PID. This does the deletion using the UI. |
|
||||||
* |
|
||||||
* @param string $pid |
|
||||||
* The PID of the collection to be deleted |
|
||||||
* @param string $button |
|
||||||
* The label of the first 'Delete' button |
|
||||||
* @param bool $safety |
|
||||||
* If TRUE, this will only delete objects owned by users in $this->users. |
|
||||||
*/ |
|
||||||
public function deleteObject($pid, $button = NULL, $safety = TRUE) { |
|
||||||
$object = islandora_object_load($pid); |
|
||||||
if (!$safety || in_array($object->owner, $this->users)) { |
|
||||||
$path = "islandora/object/$pid/manage/properties"; |
|
||||||
if (isset($button)) { |
|
||||||
$this->drupalPost($path, array(), $button); |
|
||||||
} |
|
||||||
else { |
|
||||||
$object = islandora_object_load($pid); |
|
||||||
$this->drupalPost($path, array(), "Permanently remove '{$object->label}' from repository"); |
|
||||||
} |
|
||||||
$this->drupalPost($this->url, array(), t('Delete')); |
|
||||||
|
|
||||||
$this->drupalGet("islandora/object/$pid"); |
|
||||||
$this->assertResponse(404, "Object $pid successfully deleted."); |
|
||||||
} |
|
||||||
else { |
|
||||||
$this->fail("Cannot delete object {$pid}; it is owned by non-test user {$object->owner}, and this function was called with the safety on."); |
|
||||||
return FALSE; |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Constructs and ingests a Fedora object and datastream(s) via tuque. |
|
||||||
* |
|
||||||
* All keys inside the parameter arrays for this function are optional. it |
|
||||||
* can be run simply by calling $this->ingestConstructedObject();. |
|
||||||
* |
|
||||||
* @param array $properties |
|
||||||
* An array containing object information using these keys: |
|
||||||
* 'label' - The object label; randomized if not set. |
|
||||||
* 'pid' - 'namespace:pid', or just 'namespace' to generate the suffix. |
|
||||||
* 'models' - An array that can contain multiple content model PIDs. |
|
||||||
* 'owner' - The object's owner. Defaults to the currently logged-in user, |
|
||||||
* if available. It is recommended to set this to a value that can be found |
|
||||||
* in $this->users; otherwise, this object will have to be manually deleted. |
|
||||||
* 'parent' - The PID of the parent collection. |
|
||||||
* @param array $datastreams |
|
||||||
* An array containing zero or more datastream arrays that use the keys: |
|
||||||
* 'dsid' - the datastream ID; randomized if not set. |
|
||||||
* 'path' - The path to the file to use; defaults to fixtures/test.jpg. |
|
||||||
* 'control_group' - The single-letter control group identifier. |
|
||||||
* 'mimetype' - The datastream's mimetype. |
|
||||||
* |
|
||||||
* @return bool|array |
|
||||||
* FALSE if the object ingest failed, or the object array if successful. |
|
||||||
*/ |
|
||||||
public function ingestConstructedObject(array $properties = array(), array $datastreams = array()) { |
|
||||||
module_load_include('inc', 'islandora', 'includes/tuque'); |
|
||||||
$tuque = new IslandoraTuque(); |
|
||||||
$repository = $tuque->repository; |
|
||||||
if (!isset($properties['pid'])) { |
|
||||||
$properties['pid'] = "islandora"; |
|
||||||
} |
|
||||||
$object = $repository->constructObject($properties['pid']); |
|
||||||
|
|
||||||
// Set the object properties before ingesting it. |
|
||||||
if (isset($properties['label'])) { |
|
||||||
$object->label = $properties['label']; |
|
||||||
} |
|
||||||
else { |
|
||||||
$properties['label'] = $this->randomName(16); |
|
||||||
$object->label = $properties['label']; |
|
||||||
} |
|
||||||
|
|
||||||
if (isset($properties['owner'])) { |
|
||||||
$object->owner = $properties['owner']; |
|
||||||
} |
|
||||||
elseif ($this->loggedInUser !== FALSE) { |
|
||||||
$object->owner = $this->loggedInUser->name; |
|
||||||
} |
|
||||||
|
|
||||||
if (isset($properties['models']) && is_array($properties['models'])) { |
|
||||||
foreach ($properties['models'] as $model) { |
|
||||||
$object->relationships->add(FEDORA_MODEL_URI, 'hasModel', $model); |
|
||||||
} |
|
||||||
} |
|
||||||
elseif (isset($properties['models']) && !is_array($properties['models'])) { |
|
||||||
$this->fail(t("'models' key of properties variable is not an array. Content model(s) will not be set."), 'Islandora'); |
|
||||||
} |
|
||||||
|
|
||||||
$repository->ingestObject($object); |
|
||||||
if (!$object) { |
|
||||||
$this->fail(t("Failed to ingest object."), 'Islandora'); |
|
||||||
return FALSE; |
|
||||||
} |
|
||||||
else { |
|
||||||
$this->pass(t("Ingested object %object", array('%object' => $object->id)), 'Islandora'); |
|
||||||
} |
|
||||||
|
|
||||||
// Chuck in some datastreams. |
|
||||||
if (!empty($datastreams)) { |
|
||||||
foreach ($datastreams as $datastream) { |
|
||||||
if (!isset($datastream['dsid'])) { |
|
||||||
$datastream['dsid'] = $this->randomName(8); |
|
||||||
} |
|
||||||
if (!isset($datastream['path'])) { |
|
||||||
$datastream['path'] = drupal_get_path('module', 'islandora') . '/tests/fixtures/test.jpg'; |
|
||||||
} |
|
||||||
if (!isset($datastream['control_group'])) { |
|
||||||
$new_datastream = $object->constructDatastream($datastream['dsid']); |
|
||||||
} |
|
||||||
else { |
|
||||||
$new_datastream = $object->constructDatastream($datastream['dsid'], $datastream['control_group']); |
|
||||||
} |
|
||||||
$new_datastream->label = $datastream['dsid']; |
|
||||||
if (isset($datastream['mimetype'])) { |
|
||||||
$new_datastream->mimetype = $datastream['mimetype']; |
|
||||||
} |
|
||||||
$new_datastream->setContentFromFile($datastream['path']); |
|
||||||
$object->ingestDatastream($new_datastream); |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
// Add a parent relationship, if necessary. |
|
||||||
if (isset($properties['parent'])) { |
|
||||||
$object->relationships->add(FEDORA_RELS_EXT_URI, 'isMemberOfCollection', $properties['parent']); |
|
||||||
} |
|
||||||
|
|
||||||
return $object; |
|
||||||
} |
|
||||||
|
|
||||||
/** |
|
||||||
* Deletes all objects created by the given user. |
|
||||||
* |
|
||||||
* To safeguard against leaving test objects in the repository, this is called |
|
||||||
* each time DrupalTestCase::run() calls tearDown(). This feature can be |
|
||||||
* toggled by setting $this->deleteObjectsOnTeardown to TRUE or FALSE. |
|
||||||
* |
|
||||||
* @param object $username |
|
||||||
* The user whose objects we'd like to remove. |
|
||||||
* |
|
||||||
* @return bool |
|
||||||
* TRUE on success, FALSE on failure. |
|
||||||
*/ |
|
||||||
public function deleteUserCreatedObjects($username) { |
|
||||||
if ($username === $this->configuration['admin_user']) { |
|
||||||
$this->fail("This function will under no circumstance attempt deletion of all objects owned by the configured Fedora admin user ({$this->configuration['admin_user']}), as this could irreparably damage the repository.", 'Islandora'); |
|
||||||
return FALSE; |
|
||||||
} |
|
||||||
|
|
||||||
$query = <<<QUERY |
|
||||||
SELECT ?object FROM <#ri> WHERE |
|
||||||
{ |
|
||||||
?object <fedora-model:ownerId> "$username" |
|
||||||
} |
|
||||||
QUERY; |
|
||||||
|
|
||||||
$objects = $this->admin->repository->ri->sparqlQuery($query); |
|
||||||
foreach ($objects as $object) { |
|
||||||
$loaded_object = islandora_object_load($object['object']['value']); |
|
||||||
islandora_delete_object($loaded_object); |
|
||||||
if ($this->assertFalse(islandora_object_load($object['object']['value']), "Object {$object['object']['value']} successfully removed from repository.", 'Islandora')) { |
|
||||||
return FALSE; |
|
||||||
} |
|
||||||
return TRUE; |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
} |
|
||||||
@ -0,0 +1,22 @@ |
|||||||
|
#!/bin/bash |
||||||
|
|
||||||
|
# Get the end portion of the TRAVIS_REPO_SLUG for the branch name. |
||||||
|
IFS=/ read -a DELIMITED_SLUG <<< "$TRAVIS_REPO_SLUG" |
||||||
|
export CURRENT_REPO=${DELIMITED_SLUG[1]} |
||||||
|
|
||||||
|
git config user.name --global islandora-logger |
||||||
|
git config user.email --global noreply@islandora.ca |
||||||
|
|
||||||
|
# Git business |
||||||
|
export VERBOSE_DIR = $HOME/sites/default/files/simpletest/verbose |
||||||
|
cd $HOME |
||||||
|
git clone https://islandora-logger:$LOGGER_PW@github.com/Islandora/islandora_travis_logs.git |
||||||
|
cd islandora_travis_logs |
||||||
|
git checkout -B $CURRENT_REPO |
||||||
|
|
||||||
|
# Out with the old, in with the new |
||||||
|
git rm $HOME/islandora_travis_logs/*.* |
||||||
|
cp $VERBOSE_DIR/*.* $HOME/islandora_travis_logs |
||||||
|
git add -A |
||||||
|
git commit -m "Job: $TRAVIS_JOB_NUMBER Commit: $TRAVIS_COMMIT" |
||||||
|
git push origin $CURRENT_REPO |
||||||
Loading…
Reference in new issue