1:- module(test_lemur,
    2  [test_lemur/0]).    3:- use_module(library(plunit)).    4
    5test_lemur:-
    6  run_tests([
    7    mach_lm,
    8    bongard_lm,
    9    bongardkeys_lm,
   10    registration_lm
   11  ]).
   12
   13
   14:- begin_tests(mach_lm, []).   15:-ensure_loaded(library(examples/lemur/mach)).   16test(induce_lm):-
   17  induce_lm([train],P),test(P,[test],LL,AUCROC,_ROC,AUCPR,_PR),
   18  writeln('Result:'),
   19  writeln(P),
   20  writeln((LL,AUCROC,AUCPR)),
   21  writeln('Expected:'),
   22  writeln([(class_fix:0.167671594180088;'':0.832328405819912:-not_replaceable(_92), replaceable(_96), replaceable(_100), worn(_96), not_worn(_92)),
   23  (class_sendback:1.0;'':0.0:-not_replaceable(_112), worn(_112)),
   24  (class_ok:1.0;'':0.0:-none_worn),
   25  (class_ok:7.426381092891156e-11;'':0.9999999999257362:-not_replaceable(_120))]),
   26  writeln((-1.8063458978498406,1.0,1.0)).
   27:- end_tests(mach_lm).   28
   29
   30:- begin_tests(bongard_lm, []).   31:-ensure_loaded(library(examples/lemur/bongard)).   32test(induce_lm):-
   33  induce_lm([train],P),test(P,[test],LL,AUCROC,_ROC,AUCPR,_PR),
   34  writeln('Result:'),
   35  writeln(P),
   36  writeln((LL,AUCROC,AUCPR)),
   37  writeln('Expected:'),
   38  writeln([(pos:0.23497241271435504;'':0.7650275872856449:-triangle(_92), triangle(_96), triangle(_100), in(_96, _106)),
   39  (pos:0.09907287899912748;'':0.9009271210008725:-circle(_110), in(_114, _110), circle(_120), in(_114, _120), square(_130)),
   40  (pos:2.400626683893628e-8;'':0.9999999759937331:-square(_134))]),
   41  writeln((-66.18600681193735,0.9038314176245211,0.7937421909836889)).
   42
   43:- end_tests(bongard_lm).   44
   45:- begin_tests(bongardkeys_lm, []).   46:-ensure_loaded(library(examples/lemur/bongardkeys)).   47
   48
   49test(induce_lm):-
   50  induce_lm([train],P),test(P,[test],LL,AUCROC,_ROC,AUCPR,_PR),
   51  writeln('Result:'),
   52  writeln(P),
   53  writeln((LL,AUCROC,AUCPR)),
   54  writeln('Expected:'),
   55  writeln([(pos:0.23497241271435504;'':0.7650275872856449:-triangle(_92), triangle(_96), triangle(_100), in(_96, _106)),
   56  (pos:0.09907287899912748;'':0.9009271210008725:-circle(_110), in(_114, _110), circle(_120), in(_114, _120), square(_130)),
   57  (pos:2.400626683893628e-8;'':0.9999999759937331:-square(_134))]),
   58  writeln((-66.18600681193735,0.9038314176245211,0.7937421909836889)).
   59
   60:- end_tests(bongardkeys_lm).   61
   62:- begin_tests(registration_lm, []).   63:-ensure_loaded(library(examples/lemur/registration)).   64
   65test(induce_lm):-
   66  induce_lm([all],P),test(P,[all],LL,AUCROC,_ROC,AUCPR,_PR),
   67  writeln('Result:'),
   68  writeln(P),
   69  writeln((LL,AUCROC,AUCPR)),
   70  writeln('Expected:'),
   71  writeln([(party(_92):0.06663081956298464;'':0.9333691804370153:-subscription(_96)),
   72  (party(_100):0.20556786978108324;'':0.7944321302189168:-subscription(_104))]),
   73  writeln((-8.818022622164117,0.5,0.5)).
   74
   75:- end_tests(registration_lm).