Commit 40b0c6ac authored by Mathieu Hemery's avatar Mathieu Hemery

Fix the bug revealed by the previous test

parent 0dcc798e
......@@ -133,11 +133,12 @@ initialize_functions_list :-
(
FunctionsList = []
->
nb_setval(functions_number,0)
nb_setval(functions_number,0),
nb_delete(functions_list)
;
nb_setval(functions_list,FunctionsList),
length(FunctionsList,Number),
nb_setval(functions_number,Number)
nb_setval(functions_number,Number),
nb_setval(functions_list,FunctionsList)
).
initialize_functions_list([],[]) :- !.
......
......@@ -68,6 +68,14 @@ test(test_ball, [setup(command(clear_model)), cleanup(command(clear_model))]) :-
check_integration_ball(D, 1e-3),
set_option(time, Time_default).
test(test_cell_cyle, [setup(command(clear_model)), cleanup(command(clear_model))]) :-
get_option(time, Time_default),
command(load("library/examples/cell_cycle/BIOMD0000000008.xml")),
command(option(time:10)),
command(numerical_simulation(method:rsbk)),
get_table_data(_D),
set_option(time, Time_default).
test(test_time_event, [setup(command(clear_model)), cleanup(command(clear_model))]) :-
command(k*a for a => b),
command(present(a,1.0)),
......@@ -79,12 +87,4 @@ test(test_time_event, [setup(command(clear_model)), cleanup(command(clear_model)
last(D, row(T,A,_B)),
near(A, exp(2-T), 1e-5).
test(test_cell_cyle, [setup(command(clear_model)), cleanup(command(clear_model))]) :-
get_option(time, Time_default),
command(load("library/examples/cell_cycle/BIOMD0000000008.xml")),
command(option(time:10)),
command(numerical_simulation(method:rsbk)),
get_table_data(_D),
set_option(time, Time_default).
:- end_tests(rosenbrock).
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment