tao-test/app/tao/test/integration/LanguagesTest.php

108 lines
5.2 KiB
PHP

<?php
/*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; under version 2
* of the License (non-upgradable).
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
* Copyright (c) 2008-2010 (original work) Deutsche Institut für Internationale Pädagogische Forschung (under the project TAO-TRANSFER);
* 2009-2012 (update and modification) Public Research Centre Henri Tudor (under the project TAO-SUSTAIN & TAO-DEV);
*
*/
use oat\generis\model\OntologyRdf;
use oat\tao\model\TaoOntology;
use oat\tao\test\TaoPhpUnitTestRunner;
/**
* Aims at testing languages/locales in TAO.
*
* @author Jerome Bogaerts, <taosupport@tudor.lu>
* @package tao
*/
class LanguagesTestCase extends TaoPhpUnitTestRunner
{
/**
* Test the existence of language definition resources in the knowledge base
* regarding what we found in the tao/locales directory.
*
* @author Jerome Bogaerts, <taosupport@tudor.lu>
*/
public function testLanguagesExistence()
{
// Check for lang.rdf in /tao locales and query the KB to see if it exists or not.
$languageClass = new core_kernel_classes_Class(tao_models_classes_LanguageService::CLASS_URI_LANGUAGES);
$taoLocalesDir = ROOT_PATH . '/tao/locales';
$expectedUriPrefix = 'http://www.tao.lu/Ontologies/TAO.rdf#Lang';
if (false !== ($locales = scandir($taoLocalesDir))) {
foreach ($locales as $l) {
$localePath = $taoLocalesDir . '/' . $l;
if ($l[0] !== '.' && is_dir($localePath) && is_readable($localePath)) {
$langPath = $localePath . '/lang.rdf';
if (file_exists($langPath)) {
$lgResource = new core_kernel_classes_Resource($expectedUriPrefix . $l);
$this->assertTrue($lgResource->exists(), '$lgResource Resource does not exist (' . $expectedUriPrefix . $l . ').');
// Check for this language in Ontology.
$kbLangs = $lgResource->getPropertyValues(new core_kernel_classes_Property(OntologyRdf::RDF_VALUE));
if (is_array($kbLangs)) {
$this->assertEquals(count($kbLangs), 1, "Number of languages retrieved for language '${l}' is '" . count($kbLangs) . "'.");
// Check if the language has the correct URI.
if ($kbLangs[0] instanceof core_kernel_classes_Resource) {
$this->assertTrue($kbLangs[0]->getUri() == $expectedUriPrefix . $l, "Malformed URI scheme for language resource '${l}'.");
}
} else {
$this->fail('the $kbLangs variable should be an array. "' . gettype($kbLangs) . '" found instead.');
}
}
}
}
}
}
/**
* Test the language usages property. The usages property defines
* in which context a language can take place e.g. GUI, data, ...
*
* @author Jerome Bogaerts, <taosupport@tudor.lu>
*/
public function testLanguageUsages()
{
// The default locale should always exists and should
// be available in any known language usage.
$lgUsageProperty = new core_kernel_classes_Property(tao_models_classes_LanguageService::PROPERTY_LANGUAGE_USAGES);
$this->assertIsA($lgUsageProperty, 'core_kernel_classes_Property');
$this->assertEquals($lgUsageProperty->getUri(), tao_models_classes_LanguageService::PROPERTY_LANGUAGE_USAGES);
$usagePropertyRange = $lgUsageProperty->getRange();
$this->assertIsA($usagePropertyRange, 'core_kernel_classes_Class');
$this->assertEquals($usagePropertyRange->getUri(), tao_models_classes_LanguageService::CLASS_URI_LANGUAGES_USAGES);
$instancePrefix = 'http://www.tao.lu/Ontologies/TAO.rdf#Lang';
$targetLanguageCode = DEFAULT_LANG;
$valueProperty = new core_kernel_classes_Property(OntologyRdf::RDF_VALUE);
$defaultLanguage = new core_kernel_classes_Resource($instancePrefix . $targetLanguageCode);
$this->assertIsA($defaultLanguage, 'core_kernel_classes_Resource');
$this->assertTrue(in_array(DEFAULT_LANG, $defaultLanguage->getPropertyValues($valueProperty)));
$usages = $defaultLanguage->getPropertyValues($lgUsageProperty);
$this->assertTrue(count($usages) >= 2);
$this->assertTrue(in_array(tao_models_classes_LanguageService::INSTANCE_LANGUAGE_USAGE_GUI, $usages));
$this->assertTrue(in_array(tao_models_classes_LanguageService::INSTANCE_LANGUAGE_USAGE_DATA, $usages));
}
}