sbml_qual_files.plt 514 Bytes
Newer Older
1 2
:- use_module(library(plunit)).

3 4 5
:- use_module(reaction_rules).
:- use_module(influence_rules).

6 7
:- begin_tests(sbml_qual_files).

8
% FIXME no unit test, only one integration test, could be better
9 10
test(
  'load_qual',
11 12 13 14 15
  [true(Influences = [
    ('A'->'B'), (/'A'-<'B'),
    ('C','A'->'A'), ('C'/'A'->'A'),
    ('A'/'C'-<'A'), (/'C'-<'A'), (/'A','C'-<'A'),
    ('B'->'C'), (/'B'-<'C')])]
16 17 18 19 20 21
) :-
  load('modules/sbml/examples/foo_grn.sbml'),
  all_items([kind: influence], Influences).


:- end_tests(sbml_qual_files).