parameters.plt 334 Bytes
Newer Older
Thierry Martinez's avatar
Thierry Martinez committed
1 2 3 4 5 6 7 8
:- use_module(library(plunit)).

:- begin_tests(parameters).

test(
  'set_parameter',
  [true(Parameters == [parameter(a = 1), parameter(b = 3)])]
) :-
Thierry Martinez's avatar
Thierry Martinez committed
9
  clear_model,
Thierry Martinez's avatar
Thierry Martinez committed
10 11 12 13 14
  command(set_parameter(a = 1, b = 2)),
  command(set_parameter(b = 3)),
  all_items([model: current_model, kind: parameter], Parameters).

:- end_tests(parameters).