Wavyzz/dolibarr-fork
2
0
Fork 0
forked from Wavyzz/dolibarr
Code Pull Requests Activity
Files
325cb587f62d50e255b51336ba8c196de9786b87
dolibarr-fork/test/phpunit/FilesLibTest.php
MDW 325cb587f6 Qual: Exclude some tests from windows-ci until fixed 
# Qual: Exclude some tests from windows-ci until fixed

Until #28598 and #28264 find some way to the develop branch, this update will
skip the tests that currently fail on windows so that the results of other
tests have an effect on the CI status and github annotations
2024-03-11 20:46:21 +01:00

559 lines
19 KiB
PHP
Raw Blame History

<?php
/* Copyright (C) 2010-2012 Laurent Destailleur <eldy@users.sourceforge.net>
* Copyright (C) 2012 Regis Houssin <regis.houssin@inodbox.com>
* Copyright (C) 2023 Alexandre Janniaux <alexandre.janniaux@gmail.com>
* Copyright (C) 2024 MDW <mdeweerd@users.noreply.github.com>
*
* 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; either version 3 of the License, or
* (at your option) any later version.
*
* 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, see <https://www.gnu.org/licenses/>.
* or see https://www.gnu.org/
*/
/**
* \file test/phpunit/FilesLibTest.php
* \ingroup test
* \brief PHPUnit test
* \remarks To run this script as CLI: phpunit filename.php
*/
global $conf,$user,$langs,$db;
//define('TEST_DB_FORCE_TYPE','mysql'); // This is to force using mysql driver
//require_once 'PHPUnit/Autoload.php';
require_once dirname(__FILE__).'/../../htdocs/master.inc.php';
require_once dirname(__FILE__).'/../../htdocs/core/lib/files.lib.php';
require_once dirname(__FILE__).'/CommonClassTest.class.php';
if (empty($user->id)) {
print "Load permissions for admin user nb 1\n";
$user->fetch(1);
$user->getrights();
}
$conf->global->MAIN_DISABLE_ALL_MAILS = 1;
/**
* Class for PHPUnit tests
*
* @backupGlobals disabled
* @backupStaticAttributes enabled
* @remarks backupGlobals must be disabled to have db,conf,user and lang not erased.
*/
class FilesLibTest extends CommonClassTest
{
/**
* testDolBasename
*
* @return void
*/
public function testDolBasename()
{
global $conf,$user,$langs,$db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
$result = dol_basename('adir/a_file');
print __METHOD__." result=".$result."\n";
$this->assertEquals('a_file', $result);
$result = dol_basename('adir/a_file/');
print __METHOD__." result=".$result."\n";
$this->assertEquals('a_file', $result);
$result = dol_basename('adir/νεο'); // With cyrillic data. Here basename fails to return correct value
print __METHOD__." result=".$result."\n";
$this->assertEquals('νεο', $result);
$result = dol_basename('adir/νεο/'); // With cyrillic data. Here basename fails to return correct value
print __METHOD__." result=".$result."\n";
$this->assertEquals('νεο', $result);
}
/**
* testDolCountNbOfLine
*
* @return int
*/
public function testDolCountNbOfLine()
{
global $conf,$user,$langs,$db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
$file = dirname(__FILE__).'/file_import_company_1.csv';
$result = dol_count_nb_of_line($file);
print __METHOD__." result=".$result."\n";
$this->assertEquals(3, $result);
return $result;
}
/**
* testDolIsFileDir
*
* @return int
*/
public function testDolIsFileDir()
{
global $conf,$user,$langs,$db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
$file = dirname(__FILE__).'/file_import_company_1.csv';
$result = dol_is_file($file);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result);
$result = dol_is_dir($file);
print __METHOD__." result=".$result."\n";
$this->assertFalse($result);
return $result;
}
/**
* testDolOther
*
* @return boolean
*/
public function testDolOther()
{
global $conf,$user,$langs,$db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
$url = 'http://www.dolibarr.org';
$result = dol_is_url($url);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result);
$url = 'https://www.dolibarr.org';
$result = dol_is_url($url);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result);
$url = 'file://www.dolibarr.org/download/file.zip';
$result = dol_is_url($url);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result);
return $result;
}
/**
* testDolMimeType
*
* @return void
*/
public function testDolMimeType()
{
global $conf,$user,$langs,$db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
// file.png
$result = dol_mimetype('file.png', '', 0);
$this->assertEquals('image/png', $result);
$result = dol_mimetype('file.png', '', 1);
$this->assertEquals('png', $result);
$result = dol_mimetype('file.png', '', 2);
$this->assertEquals('image.png', $result);
$result = dol_mimetype('file.png', '', 3);
$this->assertEquals('', $result);
// file.odt
$result = dol_mimetype('file.odt', '', 0);
$this->assertEquals('application/vnd.oasis.opendocument.text', $result);
$result = dol_mimetype('file.odt', '', 1);
$this->assertEquals('vnd.oasis.opendocument.text', $result);
$result = dol_mimetype('file.odt', '', 2);
$this->assertEquals('ooffice.png', $result);
$result = dol_mimetype('file.odt', '', 3);
$this->assertEquals('', $result);
// file.php
$result = dol_mimetype('file.php', '', 0);
$this->assertEquals('text/plain', $result);
$result = dol_mimetype('file.php', '', 1);
$this->assertEquals('plain', $result);
$result = dol_mimetype('file.php', '', 2);
$this->assertEquals('php.png', $result);
$result = dol_mimetype('file.php', '', 3);
$this->assertEquals('php', $result);
// file.php.noexe
$result = dol_mimetype('file.php.noexe', '', 0);
$this->assertEquals('text/plain', $result);
}
/**
* testDolDeleteDir
*
* @return void
*/
public function testDolDeleteDir()
{
global $conf,$user,$langs,$db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
$dirout = $conf->admin->dir_temp.'/test';
$dirout2 = $conf->admin->dir_temp.'/test2';
$count = 0;
$result = dol_delete_dir_recursive($dirout, $count); // If it has no permission to delete, it will fails as if dir does not exists, so we can't test it
print __METHOD__." result=".$result."\n";
$this->assertGreaterThanOrEqual(0, $result);
$count = 0;
$countdeleted = 0;
$result = dol_delete_dir_recursive($dirout, $count, 1, 0, $countdeleted); // If it has no permission to delete, it will fails as if dir does not exists, so we can't test it
print __METHOD__." result=".$result."\n";
$this->assertGreaterThanOrEqual(0, $result);
$this->assertGreaterThanOrEqual(0, $countdeleted);
dol_mkdir($dirout2);
$count = 0;
$countdeleted = 0;
$result = dol_delete_dir_recursive($dirout2, $count, 1, 0, $countdeleted); // If it has no permission to delete, it will fails as if dir does not exists, so we can't test it
print __METHOD__." result=".$result."\n";
$this->assertGreaterThanOrEqual(1, $result);
$this->assertGreaterThanOrEqual(1, $countdeleted);
}
/**
* testDolCopyMoveDelete
*
* @return void
* @group WindowsWaitingForFix
*/
public function testDolCopyMoveDelete()
{
global $conf,$user,$langs,$db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
$file = dirname(__FILE__).'/file_import_company_1.csv';
$result = dol_copy($file, '/adir/that/does/not/exists/file.csv');
print __METHOD__." result=".$result."\n";
$this->assertLessThan(0, $result, "$result".'copy dir that does not exists'); // We should have error
$result = dol_copy($file, '/adir/that/does/not/exists/file.csv');
print __METHOD__." result=".$result."\n";
$this->assertLessThan(0, $result, "$result".'copy dir that does not exists'); // We should have error
$result = dol_copy($file, $conf->admin->dir_temp.'/file.csv', 0, 1);
print __METHOD__." result=".$result."\n";
$this->assertGreaterThanOrEqual(1, $result, 'copy file ('.$file.') into a dir that exists ('.$conf->admin->dir_temp.'/file.csv)'); // Should be 1
// Again to test with overwriting=0
$result = dol_copy($file, $conf->admin->dir_temp.'/file.csv', 0, 0);
print __METHOD__." result=".$result."\n";
$this->assertEquals(0, $result, 'copy destination already exists, no overwrite'); // Should be 0
// Again to test with overwriting=1
$result = dol_copy($file, $conf->admin->dir_temp.'/file.csv', 0, 1);
print __METHOD__." result=".$result."\n";
$this->assertGreaterThanOrEqual(1, $result, 'copy destination already exists, overwrite'); // Should be 1
// To test a move that should work
$result = dol_move($conf->admin->dir_temp.'/file.csv', $conf->admin->dir_temp.'/file2.csv', 0, 1);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result, 'move with default mask');
// To test a move that should work with forced mask
$result = dol_move($conf->admin->dir_temp.'/file2.csv', $conf->admin->dir_temp.'/file3.csv', '0754', 1); // file should be rwxr-wr--
print __METHOD__." result=".$result."\n";
$this->assertTrue($result, 'move with forced mask');
// To test a delete that should success
$result = dol_delete_file($conf->admin->dir_temp.'/file3.csv');
print __METHOD__." result=".$result."\n";
$this->assertTrue($result, 'delete file');
// Again to test there is error when deleting a non existing file with option disableglob
$result = dol_delete_file($conf->admin->dir_temp.'/file3.csv', 1, 1);
print __METHOD__." result=".$result."\n";
$this->assertFalse($result, 'delete file that does not exists with disableglo must return ko');
// Again to test there is no error when deleting a non existing file without option disableglob
$result = dol_delete_file($conf->admin->dir_temp.'/file3csv', 0, 1);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result, 'delete file that does not exists without disabling glob must return ok');
// Test copy with special char / delete with blob
$result = dol_copy($file, $conf->admin->dir_temp.'/file with [x] and é.csv', 0, 1);
print __METHOD__." result=".$result."\n";
$this->assertGreaterThanOrEqual(1, $result, 'copy file with special chars, overwrite'); // Should be 1
// Try to delete using a glob criteria
$result = dol_delete_file($conf->admin->dir_temp.'/file with [x]*é.csv');
print __METHOD__." result=".$result."\n";
$this->assertTrue($result, 'delete file using glob');
$file = dirname(__FILE__).'/file_pdf_with_js.pdf.jpg';
$result = dol_copy($file, $conf->admin->dir_temp.'/file_pdf_with_js.pdf.jpg');
print __METHOD__." result=".$result."\n";
$this->assertGreaterThan(0, $result, "$result".' failed to copy pdf file');
$result = dol_move($conf->admin->dir_temp.'/file_pdf_with_js.pdf.jpg', $conf->admin->dir_temp.'/file_pdf_with_js.pdf');
print __METHOD__." dol_move of corrupted file result=".$result."\n";
$this->assertFalse($result, "$result".' move of a jpg into a corrupted pdf should fails');
}
/**
* testDolCompressUnCompress
*
* @return void
*/
public function testDolCompressUnCompress()
{
global $conf,$user,$langs,$db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
// Format zip
print "\n";
print 'testDolCompressUnCompress zip'."\n";
$format = 'zip';
$filein = dirname(__FILE__).'/file_import_company_1.csv';
$fileout = $conf->admin->dir_temp.'/test.'.$format;
$dirout = $conf->admin->dir_temp.'/testdir'.$format;
dol_delete_file($fileout);
$count = 0;
dol_delete_dir_recursive($dirout, $count, 1);
$errorstring = '';
dol_mkdir($conf->admin->dir_temp);
$conf->global->MAIN_ENABLE_LOG_TO_HTML = 1;
$conf->modules['syslog'] = 'syslog';
$_REQUEST['logtohtml'] = 1;
$conf->logbuffer = array();
$result = dol_compress_file($filein, $fileout, $format, $errorstring);
print __METHOD__." compress result=".$result."\n";
print join(', ', $conf->logbuffer);
$this->assertGreaterThanOrEqual(1, $result, "Pb with dol_compress_file on ".$filein." into ".$fileout." : ".$errorstring);
$result = dol_uncompress($fileout, $dirout);
print __METHOD__." uncompress result=".join(',', $result)."\n";
print join(', ', $conf->logbuffer);
$this->assertEquals(0, count($result), "Pb with dol_uncompress_file of file ".$fileout);
// Format gz
print "\n";
print 'testDolCompressUnCompress gz'."\n";
$format = 'gz';
$filein = dirname(__FILE__).'/file_import_company_1.csv';
$fileout = $conf->admin->dir_temp.'/test.'.$format;
$dirout = $conf->admin->dir_temp.'/testdir'.$format;
dol_delete_file($fileout);
$count = 0;
dol_delete_dir_recursive($dirout, $count, 1);
$errorstring = '';
dol_mkdir($conf->admin->dir_temp);
$conf->global->MAIN_ENABLE_LOG_TO_HTML = 1;
$conf->modules['syslog'] = 'syslog';
$_REQUEST['logtohtml'] = 1;
$conf->logbuffer = array();
$result = dol_compress_file($filein, $fileout, $format, $errorstring);
print __METHOD__." compress result=".$result."\n";
print join(', ', $conf->logbuffer);
$this->assertGreaterThanOrEqual(1, $result, "Pb with dol_compress_file on ".$filein." into ".$fileout." : ".$errorstring);
$result = dol_uncompress($fileout, $dirout);
print __METHOD__." uncompress result=".join(',', $result)."\n";
print join(', ', $conf->logbuffer);
$this->assertEquals(0, count($result), "Pb with dol_uncompress_file of file ".$fileout);
// Test compression of a directory
// $dirout is $conf->admin->dir_temp.'/testdirgz'
$excludefiles = '/(\.back|\.old|\.log|documents[\/\\\]admin[\/\\\]documents[\/\\\])/i';
if (preg_match($excludefiles, 'a/temp/b')) {
echo '----- Regex OK -----'."\n";
}
$result = dol_compress_dir($dirout, $conf->admin->dir_temp.'/testcompressdirzip.zip', 'zip', $excludefiles);
print __METHOD__." dol_compress_dir result=".$result."\n";
print join(', ', $conf->logbuffer);
$this->assertGreaterThanOrEqual(1, $result, "Pb with dol_compress_dir of ".$dirout." into ".$conf->admin->dir_temp.'/testdir.zip');
}
/**
* testDolCheckSecureAccessDocument
*
* @return void
*/
public function testDolCheckSecureAccessDocument()
{
global $conf,$user,$langs,$db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
//$dummyuser=new User($db);
//$result=restrictedArea($dummyuser,'societe');
// We save user properties
$savpermlire = $user->hasRight('facture', 'lire');
$savpermcreer = $user->hasRight('facture', 'creer');
if (empty($user->rights->facture)) {
$user->rights->facture = new stdClass();
}
// Check access to SPECIMEN
$user->rights->facture->lire = 0;
$user->rights->facture->creer = 0;
$filename = 'SPECIMEN.pdf'; // Filename relative to module part
$result = dol_check_secure_access_document('facture', $filename, 0, '', '', 'read');
$this->assertEquals(1, $result['accessallowed'], "Check access allowed to '$filename'".json_encode($result));
// Check read permission
$user->rights->facture->lire = 1;
$user->rights->facture->creer = 1;
$filename = 'FA010101/FA010101.pdf'; // Filename relative to module part
$result = dol_check_secure_access_document('facture', $filename, 0, '', '', 'read');
$this->assertEquals(1, $result['accessallowed'], "Check access allowed to '$filename'".json_encode($result));
$user->rights->facture->lire = 0;
$user->rights->facture->creer = 0;
$filename = 'FA010101/FA010101.pdf'; // Filename relative to module part
$result = dol_check_secure_access_document('facture', $filename, 0, '', '', 'read');
$this->assertEquals(0, $result['accessallowed'], "Check access denied to '$filename':".json_encode($result));
// Check write permission
$user->rights->facture->lire = 0;
$user->rights->facture->creer = 0;
$filename = 'FA010101/FA010101.pdf'; // Filename relative to module part
$result = dol_check_secure_access_document('facture', $filename, 0, '', '', 'write');
$this->assertEquals(0, $result['accessallowed']);
$user->rights->facture->lire = 1;
$user->rights->facture->creer = 1;
$filename = 'FA010101/FA010101.pdf'; // Filename relative to module part
$result = dol_check_secure_access_document('facture', $filename, 0, '', '', 'write');
$this->assertEquals(1, $result['accessallowed']);
$user->rights->facture->lire = 1;
$user->rights->facture->creer = 0;
$filename = 'FA010101/FA010101.pdf'; // Filename relative to module part
$result = dol_check_secure_access_document('facture', $filename, 0, '', '', 'write');
$this->assertEquals(0, $result['accessallowed']);
// We restore user properties
$user->rights->facture->lire = $savpermlire;
$user->rights->facture->creer = $savpermcreer;
}
/**
* testDolDirMove
*
* @return void
* @group WindowsWaitingForFix
*/
public function testDolDirMove()
{
global $conf,$user,$langs,$db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
// To test a move of empty directory that should work
$dirsrcpath = $conf->admin->dir_temp.'/directory';
$dirdestpath = $conf->admin->dir_temp.'/directory2';
$file = dirname(__FILE__).'/file_import_company_1.csv';
dol_mkdir($dirsrcpath);
dol_delete_dir_recursive($dirdestpath, 0, 1);
$result = dol_move_dir($dirsrcpath, $dirdestpath, 1, 1, 1);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result, 'move of directory with empty directory');
// To test a move on existing directory with overwrite
dol_mkdir($dirsrcpath);
$result = dol_move_dir($dirsrcpath, $dirdestpath, 1, 1, 1);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result, "move of directory on existing directory with empty directory");
// To test a move on existing directory without overwrite
dol_mkdir($dirsrcpath);
$result = dol_move_dir($dirsrcpath, $dirdestpath, 0, 1, 1);
print __METHOD__." result=".$result."\n";
$this->assertFalse($result, 'move of directory on existing directory without overwrite');
// To test a move with a file to rename in src directory
dol_mkdir($dirsrcpath);
dol_delete_dir_recursive($dirdestpath, 0, 1);
dol_copy($file, $dirsrcpath.'/directory_file.csv');
$result = dol_move_dir($dirsrcpath, $dirdestpath, 1, 1, 1);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result, 'move of directory with file in directory');
// To test a move without a file to rename in src directory
dol_mkdir($dirsrcpath);
dol_delete_dir_recursive($dirdestpath, 0, 1);
dol_copy($file, $dirsrcpath.'/file.csv');
$result = dol_move_dir($dirsrcpath, $dirdestpath, 1, 1, 1);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result, 'move of directory with file without rename needed in directory');
// To test a move with a directory to rename in src directory
dol_mkdir($dirsrcpath);
dol_delete_dir_recursive($dirdestpath, 0, 1);
dol_mkdir($dirsrcpath.'/directory');
$result = dol_move_dir($dirsrcpath, $dirdestpath, 1, 1, 1);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result, 'move of directory with file with rename needed in directory');
// To test a move without a directory to rename in src directory
dol_mkdir($dirsrcpath);
dol_delete_dir_recursive($dirdestpath, 0, 1);
dol_mkdir($dirsrcpath.'/notorename');
$result = dol_move_dir($dirsrcpath, $dirdestpath, 1, 1, 1);
print __METHOD__." result=".$result."\n";
$this->assertTrue($result, 'move of directory with directory without rename needed in directory');
}
}
View Git Blame Copy Permalink