261 lines
10 KiB
PHP
261 lines
10 KiB
PHP
<?php
|
|
|
|
use PHPUnit\Framework\TestCase;
|
|
use PHPUnit\Framework\Attributes\DataProvider;
|
|
/*
|
|
* This file is part of NOALYSS.
|
|
*
|
|
* PhpCompta 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 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* PhpCompta 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 PhpCompta; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
// Copyright (2002-2021) Author Dany De Bontridder <danydb@noalyss.eu>
|
|
|
|
/**
|
|
* @file
|
|
* @brief test impress.class.php
|
|
*
|
|
*
|
|
*/
|
|
class ImpressTest extends TestCase
|
|
{
|
|
|
|
/**
|
|
* @var
|
|
*/
|
|
protected $object;
|
|
|
|
/**
|
|
* Sets up the fixture, for example, opens a network connection.
|
|
* This method is called before a test is executed.
|
|
*/
|
|
protected function setUp():void
|
|
{
|
|
include 'global.php';
|
|
}
|
|
public static function setUpBeforeClass(): void
|
|
{
|
|
include 'global.php';
|
|
global $g_connection;
|
|
$g_connection->exec_sql("delete from operation_analytique where oa_id > 48 and oa_id < 57");
|
|
$sql="INSERT INTO operation_analytique
|
|
(oa_id,po_id,oa_amount,oa_description,oa_debit,j_id,oa_date,oa_row,oa_jrnx_id_source,oa_positive,f_id)
|
|
VALUES
|
|
(49,3,90.0000,'',true,18,'2018-02-24',0,NULL,'Y',NULL),
|
|
(50,4,93.0000,'',true,18,'2018-02-24',1,NULL,'Y',NULL),
|
|
(51,3,10.0000,'Déplacement',false,4,'2018-02-24',0,NULL,'Y',NULL),
|
|
(52,1,30.0000,'Déplacement',false,4,'2018-02-24',1,NULL,'Y',NULL),
|
|
(53,3,25.0000,'Vente de marchandises',false,7,'2018-02-24',0,NULL,'Y',NULL),
|
|
(54,3,91.0000,'Eau',true,371,'2018-04-24',0,NULL,'Y',NULL),
|
|
(55,3,80.0000,'Eau',true,371,'2018-04-24',1,NULL,'Y',NULL)";
|
|
$g_connection->exec_sql($sql);
|
|
}
|
|
/**
|
|
*
|
|
* @covers Impress::check_formula
|
|
*/
|
|
function test_check_formula()
|
|
{
|
|
$aFormulaTest=array(
|
|
['1', true],
|
|
['(45+5)', true],
|
|
['round([45])', true],
|
|
['$A=9', true],
|
|
['$S30=($F1 >=0)?$F1:0', true],
|
|
['[45%]', true],
|
|
['[50]*[51%]', true],
|
|
['$A1=[50]*[51%]', true],
|
|
['[50]*9', true],
|
|
['[50]*9.0', true],
|
|
['[50%]*9', true],
|
|
['$C1111=[50%]*9', true],
|
|
['$C1111=[50%]*9*$D1', true],
|
|
['$C10=[10%]', true],
|
|
['[50%]*9.0', true],
|
|
['[50%]*9.0 FROM=01.2004', true],
|
|
['[50%]*9.0FROM=01.2004', true],
|
|
['system', false],
|
|
['unlink', false],
|
|
['ls -1', false],
|
|
['<script>document.location="https://yahoo.fr";</script>', false],
|
|
["[45ABC]*1", true],
|
|
["[4511-s]", true],
|
|
["{TEL}", true],
|
|
["{TEL}*45", true],
|
|
["{TEL-s}*45", true],
|
|
["{1TEL-s}*45", true],
|
|
["{1TEL}*45", true],
|
|
["{T*EL-s}*45", false],
|
|
["{T+EL-s}*45", false],
|
|
["{T/EL-s}*45", false]
|
|
);
|
|
foreach ($aFormulaTest as $formula)
|
|
{
|
|
$this->assertEquals(\Impress::check_formula($formula[0]), $formula[1], " $formula[0] ");
|
|
|
|
foreach (array('+', '-', '/') as $b)
|
|
{
|
|
$ee=str_replace('*', $b, $formula[0]);
|
|
$this->assertEquals(\Impress::check_formula($formula[0]), $formula[1], " with $formula[0] ");
|
|
}
|
|
for ($e=0; $e<3; $e++)
|
|
{
|
|
$formula[0].="*".$formula[0];
|
|
$this->assertEquals(\Impress::check_formula($formula[0]), $formula[1], " with $formula[0] ");
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* @brief supply data to test_compute_amount
|
|
* @return array[]
|
|
*/
|
|
function getData_compute_amount()
|
|
{
|
|
return array(
|
|
["[70%-s]", -456.8000],
|
|
["[61%-s]", 1491.5000],
|
|
["[61%-S]", -1491.5000],
|
|
["[61%-d]", 1591.50],
|
|
["[61%-c]", 100.00],
|
|
["{EAU}", 915.00],
|
|
["{EAU-d}", 915.00],
|
|
["{EAU-c}", 0],
|
|
["{EAU-s}", 915.00],
|
|
["{EAU-S}", -915.00 ],
|
|
["{ELECTR}", 0 ],
|
|
["{ELECTR-c}", 0 ],
|
|
["{ELECTR-d}", 0 ],
|
|
["{ELECTR-s}", 0 ],
|
|
["{ELECTR-S}", 0 ]
|
|
);
|
|
}
|
|
/**
|
|
* @covers Impress::parse_formula
|
|
* @dataProvider getData_compute_amount
|
|
*/
|
|
#[DataProvider('getData_compute_amount')]
|
|
function test_compute_amount($p_accounting,$p_amount)
|
|
{
|
|
global $g_connection;
|
|
// filter on period
|
|
$sql_periode="j_date >= '2018-01-01' and j_date <= '2018-12-31'";
|
|
$and_sql_periode="oa_date >= '2018-01-01' and oa_date <= '2018-12-31'";
|
|
// 0 = formula , 1 is the expected value
|
|
|
|
|
|
$this->assertEquals($p_amount,\Impress::compute_amount($g_connection,$p_accounting,
|
|
$sql_periode,$and_sql_periode),
|
|
" {$p_accounting} != {$p_amount}");
|
|
|
|
}
|
|
|
|
/**
|
|
* Test pattern
|
|
*
|
|
*/
|
|
function test_pattern()
|
|
{
|
|
$a_formula=array(
|
|
["[4500%-s]+[60]-[770-d]+120",3],
|
|
["{TEL}+[60]*5",2],
|
|
["{TEL-s}+[60]",2],
|
|
["{TEL-S}+[60]",2],
|
|
["{TEL}+[60-s]",2],
|
|
["{{TEL}}+[60-s]",2]
|
|
);
|
|
foreach ($a_formula as $p_formula)
|
|
{
|
|
$formula=$p_formula[0];
|
|
$result=$p_formula[1];
|
|
$this->assertEquals(preg_match_all(\Impress::STR_PATTERN, $formula, $e),$result,
|
|
" check $formula returns $result");
|
|
|
|
|
|
}
|
|
}
|
|
/**
|
|
* @covers compute_periode
|
|
*/
|
|
function test_computePeriode()
|
|
{
|
|
global $g_connection,$g_parameter,$g_user;
|
|
$g_user->set_periode(98);
|
|
$this->assertEquals(trim("j_tech_per in (select p_id from parm_periode where p_start >= to_date('01.01.2017','DD.MM.YYYY') and p_end <= to_date('30.11.2017','DD.MM.YYYY'))"),trim(\Impress::compute_periode($g_connection, "00.0000",115))
|
|
," SQL from 01.01.2017 to 01.11.2017");
|
|
$this->assertEquals(trim("j_tech_per in (select p_id from parm_periode where p_start >= to_date('01.01.2020','DD.MM.YYYY') and p_end <= to_date('30.09.2020','DD.MM.YYYY'))"),trim(\Impress::compute_periode($g_connection, "00.0000",140))
|
|
," SQL from 01.01.2020 to 01.11.2020");
|
|
$this->assertEquals(trim("j_tech_per in (select p_id from parm_periode where p_start >= to_date('01.01.2019','DD.MM.YYYY') and p_end <= to_date('30.09.2019','DD.MM.YYYY'))"),trim(\Impress::compute_periode($g_connection, "00.0000",127))
|
|
," SQL from 01.01.2019 to 30.09.2019");
|
|
$this->assertEquals(
|
|
trim("j_tech_per in (select p_id from parm_periode where p_start >= to_date('01.02.2017','DD.MM.YYYY') and p_end <= to_date('31.10.2017','DD.MM.YYYY'))"),
|
|
trim(\Impress::compute_periode($g_connection, "02.2017",114)),
|
|
" SQL from 01.02.2017 to 01.10.2017");
|
|
|
|
$this->assertEquals(
|
|
trim("j_tech_per in (select p_id from parm_periode where p_start >= to_date('01.01.2017','DD.MM.YYYY') and p_end <= to_date('31.10.2017','DD.MM.YYYY'))"),
|
|
trim(\Impress::compute_periode($g_connection, "02.2000",114)),
|
|
" From periode doesn't exist, we start from the first period found SQL from 01.02.2017 to 01.10.2017");
|
|
}
|
|
/**
|
|
* @covers Impress::parse_formula
|
|
* @global type $g_connection
|
|
* @global type $g_user
|
|
*/
|
|
function test_parse_formula()
|
|
{
|
|
global $g_connection,$g_user;
|
|
$a_formula=array(
|
|
0=>array("sum 70% (credit is negative)", "[70%-s]",-456.80),
|
|
1=>array("sum 70% (debit is negative)", "0-round([70%-s],2)",456.80),
|
|
2=>array("sum 70% (debit is negative)", "0-round([70%-s],2)+150",606.80),
|
|
3=>array("sum 70% (debit is negative)", "0-round([70%-s],2)*0.2+150",241.36),
|
|
4=>array("sum FOURNI1 ", "{FOURNI1}",1496.34),
|
|
5=>array("sum FOURNI1 ", "{FOURNI1}+1",1497.34),
|
|
6=>array("sum FOURNI1 ", "round({FOURNI1}/3,2)",498.78),
|
|
7=>array("sum FOURNI1 ", "round({FOURNI1-s}/3,2)",-498.78),
|
|
8=>array("sum FOURNI1 + 70% ", "[70%-S]+round({FOURNI1-s}/3,2)",-41.98),
|
|
9=>array("Analytic DEVELOPPEMENT","{{DEVELOPPEMENT}}",226),
|
|
10=>array("Analytic DEVELOPPEMENT","{{DEVELOPPEMENT-S}}",-226),
|
|
11=>array("Analytic DEVELOPPEMENT","{{DEVELOPPEMENT-S}}+10",-216),
|
|
12=>array("Analytic DEVELOPPEMENT FROM","{{DEVELOPPEMENT}} FROM=04.2018",171),
|
|
13=>array("Analytic DEVELOPPEMENT Credit","{{DEVELOPPEMENT-c}}",35),
|
|
13=>array("Analytic DEVELOPPEMENT Débit","{{DEVELOPPEMENT-d}} ",261),
|
|
array("sum 70% Crédit", "[70%-c]",456.80),
|
|
array("sum 70% Débit", "[70%-d]",0),
|
|
array("sum FOURNI1 Crédit", "{FOURNI1-c}",1717.77),
|
|
array("sum FOURNI1 Débit", "{FOURNI1-d}",221.43),
|
|
array("sum FOURNI1 Débit", "{NOTEXIST-d}",0),
|
|
array("sum FOURNI1 Débit", "{{NOTEXIST-d}}",0),
|
|
array("Double minus sign throw an error ParseError: syntax error, unexpected '--' (T_DEC) ", "[6%-S]-[6%-S]",0),
|
|
);
|
|
// ------ Periode ----------
|
|
foreach ($a_formula as $formula)
|
|
{
|
|
$result=\Impress::parse_formula($g_connection,$formula[0], $formula[1], 92, 103);
|
|
$this->assertEquals($formula[2],$result['montant'],$formula[0]);
|
|
|
|
}
|
|
//-----------Calendar -----------
|
|
// if there is a FROM clause, it will be skipped silently, so the amount is 316 and not 171
|
|
$a_formula[12][2]=226;
|
|
foreach ($a_formula as $formula)
|
|
{
|
|
|
|
$result=\Impress::parse_formula($g_connection,$formula[0], $formula[1], '01.01.2018', '31.12.2018',true,1);
|
|
$this->assertEquals($formula[2],$result['montant'],$formula[0]);
|
|
|
|
}
|
|
}
|
|
}
|