/******************************************************************************
 * Copyright (c) ETSI 2017.
 *
 * This file is subject to copyrights owned by ETSI. Non-exclusive permission
 * is hereby granted, free of charge, to copy, reproduce and amend this file
 * under the following conditions: It is provided "as is", without warranty of any
 * kind, expressed or implied.
 * 
 * ETSI shall never be liable for any claim, damages, or other liability arising
 * from its use or inability of use.This permission does not apply to any documentation
 * associated with this file for which ETSI keeps all rights reserved. The present
 * copyright notice shall be included in all copies of whole or part of this
 * file and shall not imply any sub-license right.
 *
 * Modified by: Adrien Kirjak
 *
 ** @version  0.0.1
 ** @purpose  1:5.5, Verify that cyclic import containing cyclic function calls is allowed
 ** @verdict  pass accept, ttcn3verdict:pass
 ***************************************************/

// The following requirements are tested:
// Direct and indirect cyclic definitions are not allowed with the exception of the 
// following cases:
// a) for recursive type definitions (see clause 6.2);
// b) function and altstep definitions (i.e. recursive function or altstep calls);
// c) cyclic import definitions, if the imported definitions only form allowed cyclic 
// definitions.
// In particular, the combination of c and b is tested

module Sem_0505_cyclic_definitions_003 {
	import from Sem_0505_cyclic_definitions_003_import { function f_factImp; }
	type component GeneralComp {	    	    
	}	
	
	function f_fact(integer p_argument) return integer {	    
	    if(p_argument==0) {
	     return 1;
	    }
	    else {
	     return p_argument*f_factImp(p_argument-1);
	    }
	}		
	
	testcase TC_Sem_0505_cyclic_definitions_003() runs on GeneralComp {
	    if (f_fact(10) == 3628800) {		// checks 10!
	        setverdict(pass);
	    }
	    else {
	        setverdict(fail);
	    }		
	}
	
	control{
	    execute(TC_Sem_0505_cyclic_definitions_003());
	}

}

