diff --git a/Media/SimpleMoistAir/package.order b/Media/SimpleMoistAir/package.order
index d2525ca95c10182aa4cd930f07b436dc569b7dba..086cd15d0c8971e186781c92048c660bb5bb71c1 100644
--- a/Media/SimpleMoistAir/package.order
+++ b/Media/SimpleMoistAir/package.order
@@ -4,3 +4,10 @@ test_d_phX
 test_pressure
 test_cp
 test_saturationDensity
+test_saturationPressureLiquid
+test_saturationPressureLiquidDer
+test_sublimationPressureIce
+test_sublimationPressureIceDer
+test_saturationPressure
+test_r_dTX
+test_r_dTX_der
diff --git a/Media/SimpleMoistAir/test_r_dTX.mo b/Media/SimpleMoistAir/test_r_dTX.mo
new file mode 100644
index 0000000000000000000000000000000000000000..c1334ecc3bd81dfb7be0f726b5971c3bab85c022
--- /dev/null
+++ b/Media/SimpleMoistAir/test_r_dTX.mo
@@ -0,0 +1,13 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_r_dTX
+  parameter Modelica.SIunits.Density d = 1.2;
+  parameter Modelica.SIunits.MassFraction X[2] = {0.03, 0.97};
+  Modelica.SIunits.Temperature T;
+  Modelica.SIunits.SpecificHeatCapacity R;
+equation
+  T = 190 + time;
+  R = TAeZoSysPro.Media.Air.MoistAir.r_dTX(d = d, T = T, X = X);
+  annotation(
+    experiment(StartTime = 0, StopTime = 100, Tolerance = 1e-06, Interval = 0.2));
+end test_r_dTX;
diff --git a/Media/SimpleMoistAir/test_r_dTX_der.mo b/Media/SimpleMoistAir/test_r_dTX_der.mo
new file mode 100644
index 0000000000000000000000000000000000000000..1ed58ab9d45a46f16a8eb2b30163a02d94e6ca5c
--- /dev/null
+++ b/Media/SimpleMoistAir/test_r_dTX_der.mo
@@ -0,0 +1,23 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_r_dTX_der
+
+  parameter Modelica.SIunits.Density d = 1.2;
+  parameter Modelica.SIunits.MassFraction X[2] = {0.03, 0.97};
+  Modelica.SIunits.Temperature T;
+  Modelica.SIunits.SpecificHeatCapacity R;
+  Real der_R "Analytical time derivative of R";
+  Real der_R_num "Numererical time derivative of R";
+
+equation
+
+  T = 190 + time;
+  R = TAeZoSysPro.Media.Air.MoistAir.r_dTX(d = d, T = T, X = X);
+  der_R = TAeZoSysPro.Media.Air.MoistAir.r_dTX_der(
+    d = d, T = T, X = X, 
+    dd = 0.0, dT=der(T), dX={0.0, 0.0});
+  der_R_num = der(R);
+
+annotation(
+    experiment(StartTime = 0, StopTime = 150, Tolerance = 1e-6, Interval = 0.3));
+end test_r_dTX_der;
diff --git a/Media/SimpleMoistAir/test_saturationPressure.mo b/Media/SimpleMoistAir/test_saturationPressure.mo
new file mode 100644
index 0000000000000000000000000000000000000000..3913cc01c538d0aad0d8d5c6d3cf2df8e0cc4ce1
--- /dev/null
+++ b/Media/SimpleMoistAir/test_saturationPressure.mo
@@ -0,0 +1,15 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_saturationPressure
+  Modelica.SIunits.Temperature T, T_bis, T_ter;
+  Modelica.SIunits.Pressure p_ice, p_steam, p;
+equation
+  T = 272 + time;
+  T = T_bis;
+  T = T_ter;
+  p_steam = TAeZoSysPro.Media.Air.MoistAir.saturationPressureLiquid(T);
+  p_ice = TAeZoSysPro.Media.Air.MoistAir.sublimationPressureIce(T);
+  p = TAeZoSysPro.Media.Air.MoistAir.saturationPressure(T);
+  annotation(
+    experiment(StartTime = 0, StopTime = 2, Tolerance = 1e-06, Interval = 0.005));
+end test_saturationPressure;
diff --git a/Media/SimpleMoistAir/test_saturationPressureLiquid.mo b/Media/SimpleMoistAir/test_saturationPressureLiquid.mo
new file mode 100644
index 0000000000000000000000000000000000000000..5128518e3c6fc1115a5afb5d02ce644e318c0c64
--- /dev/null
+++ b/Media/SimpleMoistAir/test_saturationPressureLiquid.mo
@@ -0,0 +1,13 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_saturationPressureLiquid
+
+  Modelica.SIunits.Temperature T ;
+  Modelica.SIunits.Pressure p;
+
+equation
+
+  T = 273.15 + time;
+  p = TAeZoSysPro.Media.Air.MoistAir.saturationPressureLiquid(T);
+
+end test_saturationPressureLiquid;
diff --git a/Media/SimpleMoistAir/test_saturationPressureLiquidDer.mo b/Media/SimpleMoistAir/test_saturationPressureLiquidDer.mo
new file mode 100644
index 0000000000000000000000000000000000000000..f2fa8aecd0fe159f1b2b770a31fef6ca3de9a3db
--- /dev/null
+++ b/Media/SimpleMoistAir/test_saturationPressureLiquidDer.mo
@@ -0,0 +1,19 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_saturationPressureLiquidDer
+
+  Modelica.SIunits.Temperature T ;
+  Modelica.SIunits.Pressure p;
+  Real dpdt, dpdt_num;
+
+equation
+
+  T = 273.15 + time;
+  p = TAeZoSysPro.Media.Air.MoistAir.saturationPressureLiquid(T);
+  dpdt = TAeZoSysPro.Media.Air.MoistAir.saturationPressureLiquid_der(T, der(T));
+  dpdt_num = der(p);
+  
+
+annotation(
+    experiment(StartTime = 0, StopTime = 1, Tolerance = 1e-6, Interval = 0.002));
+end test_saturationPressureLiquidDer;
diff --git a/Media/SimpleMoistAir/test_sublimationPressureIce.mo b/Media/SimpleMoistAir/test_sublimationPressureIce.mo
new file mode 100644
index 0000000000000000000000000000000000000000..ee3e849d979ab873ed763c73c7407475b3eb3bd1
--- /dev/null
+++ b/Media/SimpleMoistAir/test_sublimationPressureIce.mo
@@ -0,0 +1,14 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_sublimationPressureIce
+
+  Modelica.SIunits.Temperature T ;
+  Modelica.SIunits.Pressure p;
+
+equation
+
+  T = 273.16 - time;
+  p = TAeZoSysPro.Media.Air.MoistAir.sublimationPressureIce(T);
+
+
+end test_sublimationPressureIce;
diff --git a/Media/SimpleMoistAir/test_sublimationPressureIceDer.mo b/Media/SimpleMoistAir/test_sublimationPressureIceDer.mo
new file mode 100644
index 0000000000000000000000000000000000000000..c17d2a1991b230a92b135221c067fd2d188729c1
--- /dev/null
+++ b/Media/SimpleMoistAir/test_sublimationPressureIceDer.mo
@@ -0,0 +1,16 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_sublimationPressureIceDer
+
+  Modelica.SIunits.Temperature T ;
+  Modelica.SIunits.Pressure p;
+  Real dpdt, dpdt_num;
+
+equation
+
+  T = 273.15 - time;
+  p = TAeZoSysPro.Media.Air.MoistAir.sublimationPressureIce(T);
+  dpdt = TAeZoSysPro.Media.Air.MoistAir.sublimationPressureIce_der(T, der(T));
+  dpdt_num = der(p);
+
+end test_sublimationPressureIceDer;