Update metacode tests

FlexibleSUSY · Feb 22, 2017 · ab0782f · ab0782f
1 parent be9c767
commit ab0782f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -300,6 +300,9 @@
 AddExtraParameterInfo[{par_, block_, type_}] :=
     allExtraParameters = UpdateParameterInfo[allExtraParameters, {par, block, type}];
 
+AddExtraParameterInfo[{par_, type_}] :=
+    allExtraParameters = UpdateParameterInfo[allExtraParameters, {par, {}, type}];
+
 AddExtraParameterInfo[par_] :=
     AddExtraParameterInfo[{par, {}, GuessExtraParameterType[par]}];
 

diff --git a/test/test_Parameters.m b/test/test_Parameters.m
@@ -21,7 +21,7 @@
 extraPars = {t, u, FlexibleSUSY`Phase[v]};
 
 TestEquality[Parameters`GuessExtraParameterType[t],
-             CConversion`ScalarType[CConversion`complexScalarCType]];
+             CConversion`ScalarType[CConversion`realScalarCType]];
 TestEquality[Parameters`GuessExtraParameterType[FlexibleSUSY`Phase[v]],
              CConversion`ScalarType[CConversion`complexScalarCType]];
 
@@ -52,7 +52,7 @@
 TestEquality[Parameters`IsRealParameter[FlexibleSUSY`Phase[p]], False];
 TestEquality[Parameters`IsRealParameter[q], True];
 TestEquality[Parameters`IsRealParameter[t], True];
-TestEquality[Parameters`IsRealParameter[u], False];
+TestEquality[Parameters`IsRealParameter[u], True];
 TestEquality[Parameters`IsRealParameter[FlexibleSUSY`Phase[v]], False];
 TestEquality[Parameters`IsRealParameter[w], True];