diff --git a/src/ce_semver.pas b/src/ce_semver.pas index 1a787966..9367c8bb 100644 --- a/src/ce_semver.pas +++ b/src/ce_semver.pas @@ -15,7 +15,7 @@ type TSemVer = record strict private fAdditional: string; - fMajor, fMinor, fPatch: byte; + fMajor, fMinor, fPatch: word; fValid: boolean; public // Initializes with the semVer text. @@ -32,17 +32,19 @@ type function isRc: boolean; // The major version. - property major: byte read fMajor; + property major: word read fMajor; // The minor version. - property minor: byte read fMinor; + property minor: word read fMinor; // The patch. - property patch: byte read fPatch; + property patch: word read fPatch; // The additional labels. property additional: string read fAdditional; // Indicates if the init has succeeded. property valid: boolean read fValid; end; + PSemVer = ^TSemVer; + operator > (constref lhs, rhs: TSemVer): boolean; operator = (constref lhs, rhs: TSemVer): boolean; @@ -165,6 +167,16 @@ begin assert(v2.major = 1); assert(v2.minor = 22); assert(v2.patch = 33); + + v1.init('v0.0.2060'); + assert(v1.major = 0); + assert(v1.minor = 0); + assert(v1.patch = 2060); + + v2 := v1; + assert(v2.major = 0); + assert(v2.minor = 0); + assert(v2.patch = 2060); {$ENDIF} end.