parameters.plt 312 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
  command(set_parameter(a = 1, b = 2)),
  command(set_parameter(b = 3)),
Thierry Martinez's avatar
Thierry Martinez committed
12
  all_items([kind: parameter], Parameters).
Thierry Martinez's avatar
Thierry Martinez committed
13 14

:- end_tests(parameters).