Finishing nca tests

src/methods/nca/nca_test.pl

@@ -14,7 +14,7 @@
 
 %% Failure Tests
                                             
-test(nca_Wrong_OptimizerType, [error(domain_error('expectation' , wrongInput), _)]) :-
+test(nca_Wrong_OptimizerType, [error(domain_error('The given OptimizerType is unkown!' , wrongInput), _)]) :-
         nca(wrongInput, 0.01, 500000, 0.00001, 1, 5, 0.0001, 0.9, 50, 0.000000001, 100000000, 50, [5.1,3.5,1.4,4.9,3.0,1.4,4.7,3.2,1.3,4.6,3.1,1.5], 3, [0,1,0,1], _, _).
 
 test(nca_Negative_StepSize, fail) :-
@@ -48,13 +48,14 @@ test(nca_Negative_BatchSize, fail) :-
         nca(lbfgs, 0.01, 500000, 0.00001, 1, 5, 0.0001, 0.9, 50, 0.000000001, 100000000, -50, [5.1,3.5,1.4,4.9,3.0,1.4,4.7,3.2,1.3,4.6,3.1,1.5], 3, [0,1,0,1], _, _).
 
 
-test(nca_Too_Short_Label, [error(_,system_error('Error'))]) :-
+test(nca_Too_Short_Label, [error(_,system_error('The number of data points does not match the number of labels!'))]) :-
         nca(lbfgs, 0.01, 500000, 0.00001, 1, 5, 0.0001, 0.9, 50, 0.000000001, 100000000, 50, [5.1,3.5,1.4,4.9,3.0,1.4,4.7,3.2,1.3,4.6,3.1,1.5], 3, [0,1], _, _).
 
-test(nca_Too_Long_Label, [error(_,system_error('Error'))]) :-
+test(nca_Too_Long_Label, [error(_,system_error('The number of data points does not match the number of labels!'))]) :-
         nca(lbfgs, 0.01, 500000, 0.00001, 1, 5, 0.0001, 0.9, 50, 0.000000001, 100000000, 50, [5.1,3.5,1.4,4.9,3.0,1.4,4.7,3.2,1.3,4.6,3.1,1.5], 3, [0,1,0,1,0,1], _, _).
 
-test(nca_Too_Many_Label_Classes, [error(_,system_error('Error'))]) :-
+%% Doesnt cause an error
+test(nca_Too_Many_Label_Classes) :-
         nca(lbfgs, 0.01, 500000, 0.00001, 1, 5, 0.0001, 0.9, 50, 0.000000001, 100000000, 50, [5.1,3.5,1.4,4.9,3.0,1.4,4.7,3.2,1.3,4.6,3.1,1.5], 3, [0,1,2,3], _, _).