From ab0782f2f6123de7ea8558dcbb43fd2c07936c08 Mon Sep 17 00:00:00 2001
From: Dylan Harries <dylan.harries@adelaide.edu.au>
Date: Thu, 23 Feb 2017 09:38:53 +1030
Subject: [PATCH] Update metacode tests

---
 meta/Parameters.m      | 3 +++
 test/test_Parameters.m | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/meta/Parameters.m b/meta/Parameters.m
index 994a5d29e..d8f9c1ce8 100644
--- 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
index 0d25ac4e1..b7d65f822 100644
--- 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];