diff --git a/comp/src/gb.util/.src/Class.class b/comp/src/gb.util/.src/Class.class index abf400f82..9d1a02caa 100644 --- a/comp/src/gb.util/.src/Class.class +++ b/comp/src/gb.util/.src/Class.class @@ -90,6 +90,7 @@ Static Public Sub Stat(Name As String) As ClassStat hStat.Optional = BTst(iFlag, 2) hStat.NoCreate = BTst(iFlag, 3) hStat.HasFast = BTst(iFlag, 4) + hStat.Test = BTst(iFlag, 5) GotoNextSection(hFile) ' description GotoNextSection(hFile) ' constant diff --git a/comp/src/gb.util/.src/ClassStat.class b/comp/src/gb.util/.src/ClassStat.class index 8ae56f707..f94bbdcee 100644 --- a/comp/src/gb.util/.src/ClassStat.class +++ b/comp/src/gb.util/.src/ClassStat.class @@ -9,3 +9,4 @@ Public HasFast As Boolean Public AutoCreate As Boolean Public NoCreate As Boolean Public Optional As Boolean +Public Test As Boolean diff --git a/comp/src/gb.util/.src/MMain.module b/comp/src/gb.util/.src/MMain.module index 0519bcf92..e5e77340f 100644 --- a/comp/src/gb.util/.src/MMain.module +++ b/comp/src/gb.util/.src/MMain.module @@ -20,7 +20,9 @@ Public Sub Main() 'Print String.PadLeft("Gambas", 16, "×->") 'Print String.PadRight("Gambas", 16, "×->") - Print Now;; Date.ToISO8601(Now);; Date.ToISO8601(Now, "-0200") + 'Print Now;; Date.ToISO8601(Now);; Date.ToISO8601(Now, "-0200") + + Print DateAdd(Date.EasterDay(2020), gb.Day, 40) End