aliases.plt 245 Bytes
Newer Older
Thierry Martinez's avatar
Thierry Martinez committed
1 2 3 4
:- use_module(library(plunit)).

:- begin_tests(aliases).

Thierry Martinez's avatar
Thierry Martinez committed
5
test('alias', [true(Reactions == [2 * a => c])]) :-
Thierry Martinez's avatar
Thierry Martinez committed
6
  clear_model,
Thierry Martinez's avatar
Thierry Martinez committed
7
  add_reaction(a + b => c),
Thierry Martinez's avatar
Thierry Martinez committed
8
  command(alias(a = b)),
Thierry Martinez's avatar
Thierry Martinez committed
9
  all_items([kind: reaction], Reactions).
Thierry Martinez's avatar
Thierry Martinez committed
10 11

:- end_tests(aliases).