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).