VBScript Constants Compliance Test Suite

Testing implementation of all VBScript vb* constants per Microsoft VBScript 5.8 specification.

Color Constants

[PASS] vbBlack = 0 (Black color)
[PASS] vbRed = 255 (Red color)
[PASS] vbGreen = 65280 (Green color)
[PASS] vbYellow = 65535 (Yellow color)
[PASS] vbBlue = 16711680 (Blue color)
[PASS] vbMagenta = 16711935 (Magenta color)
[PASS] vbCyan = 16776960 (Cyan color)
[PASS] vbWhite = 16777215 (White color)

Boolean Constants

[PASS] vbTrue = -1 (Boolean True)
[PASS] vbFalse = 0 (Boolean False)

Comparison Mode Constants

[PASS] vbBinaryCompare = 0 (Binary string comparison)
[PASS] vbTextCompare = 1 (Text string comparison)
[PASS] vbDatabaseCompare = 2 (Database comparison)

Date Format Constants

[PASS] vbGeneralDate = 0 (General date format)
[PASS] vbLongDate = 1 (Long date format)
[PASS] vbShortDate = 2 (Short date format)
[PASS] vbLongTime = 3 (Long time format)
[PASS] vbShortTime = 4 (Short time format)

Date/Time Constants

[PASS] vbSunday = 1 (Sunday)
[PASS] vbMonday = 2 (Monday)
[PASS] vbTuesday = 3 (Tuesday)
[PASS] vbWednesday = 4 (Wednesday)
[PASS] vbThursday = 5 (Thursday)
[PASS] vbFriday = 6 (Friday)
[PASS] vbSaturday = 7 (Saturday)
[PASS] vbJanuary = 1 (January)
[PASS] vbFebruary = 2 (February)
[PASS] vbMarch = 3 (March)
[PASS] vbApril = 4 (April)
[PASS] vbMay = 5 (May)
[PASS] vbJune = 6 (June)
[PASS] vbJuly = 7 (July)
[PASS] vbAugust = 8 (August)
[PASS] vbSeptember = 9 (September)
[PASS] vbOctober = 10 (October)
[PASS] vbNovember = 11 (November)
[PASS] vbDecember = 12 (December)

First Week/Day Constants

[PASS] vbFirstJan1 = 1 (Week containing Jan 1)
[PASS] vbFirstFourDays = 2 (Week containing 4 days)
[PASS] vbFirstFullWeek = 3 (First complete week)
[PASS] vbUseSystemDayOfWeek = 0 (System default)

Encoding Constants

[PASS] vbASCII = 0 (ASCII format)
[PASS] vbUnicode = 64 (StrConv Unicode conversion flag)
[PASS] vbFromUnicode = 128 (StrConv ANSI conversion flag)

File Input/Output Constants

[PASS] vbCrLf = "\r\n" (Carriage Return + Line Feed)
[PASS] vbCr = "\r" (Carriage Return)
[PASS] vbLf = "\n" (Line Feed)
[PASS] vbNewLine = "\r\n" (New line character)
[PASS] vbTab = "\t" (Tab character)
[PASS] vbNullChar = "\0" (Null character)
[PASS] vbNullString = "" (Null-length string)

Misc Constants

[PASS] vbEmpty = 0 (Empty variant type)
[PASS] vbNull = 1 (Null variant type)
[PASS] vbObject = 9 (Object variant type)
[PASS] vbCurrency = 6 (Currency variant type)
[PASS] vbDate = 7 (Date variant type)
[PASS] vbString = 8 (String variant type)
[PASS] vbError = 10 (Error variant type)
[PASS] vbBoolean = 11 (Boolean variant type)
[PASS] vbVariant = 12 (Variant variant type)
[PASS] vbDataObject = 13 (Data object variant type)
[PASS] vbDecimal = 14 (Decimal variant type)
[PASS] vbByte = 17 (Byte variant type)
[PASS] vbLong = 3 (Long variant type)
[PASS] vbSingle = 4 (Single variant type)
[PASS] vbDouble = 5 (Double variant type)
[PASS] vbInteger = 2 (Integer variant type)

MsgBox Constants and Return Values

[PASS] vbOKOnly = 0 (MsgBox OK button)
[PASS] vbOKCancel = 1 (MsgBox OK/Cancel buttons)
[PASS] vbAbortRetryIgnore = 2 (MsgBox Abort/Retry/Ignore buttons)
[PASS] vbYesNoCancel = 3 (MsgBox Yes/No/Cancel buttons)
[PASS] vbYesNo = 4 (MsgBox Yes/No buttons)
[PASS] vbRetryCancel = 5 (MsgBox Retry/Cancel buttons)
[PASS] vbOK = 1 (MsgBox return OK)
[PASS] vbCancel = 2 (MsgBox return Cancel)
[PASS] vbAbort = 3 (MsgBox return Abort)
[PASS] vbRetry = 4 (MsgBox return Retry)
[PASS] vbIgnore = 5 (MsgBox return Ignore)
[PASS] vbYes = 6 (MsgBox return Yes)
[PASS] vbNo = 7 (MsgBox return No)

StrConv Constants

[PASS] vbUpperCase = 1 (Convert to uppercase)
[PASS] vbLowerCase = 2 (Convert to lowercase)
[PASS] vbProperCase = 3 (Convert to proper case)
[PASS] vbWide = 4 (Convert single-byte to double-byte)
[PASS] vbNarrow = 8 (Convert double-byte to single-byte)
[PASS] vbKatakana = 16 (Convert Hiragana to Katakana)
[PASS] vbHiragana = 32 (Convert Katakana to Hiragana)
[PASS] vbUnicode = 64 (Convert to Unicode)
[PASS] vbFromUnicode = 128 (Convert from Unicode)

VarType Return Values

[PASS] vbEmpty = 0 (Uninitialized)
[PASS] vbNull = 1 (Null)
[PASS] vbInteger = 2 (Integer)
[PASS] vbLong = 3 (Long)
[PASS] vbSingle = 4 (Single-precision floating-point)
[PASS] vbDouble = 5 (Double-precision floating-point)
[PASS] vbCurrency = 6 (Currency)
[PASS] vbDate = 7 (Date)
[PASS] vbString = 8 (String)
[PASS] vbObject = 9 (Object)
[PASS] vbError = 10 (Error)
[PASS] vbBoolean = 11 (Boolean)
[PASS] vbVariant = 12 (Variant)
[PASS] vbDataObject = 13 (Data object)
[PASS] vbDecimal = 14 (Decimal)
[PASS] vbByte = 17 (Byte)
[PASS] vbArray = 8192 (Array)

Tristate Constants

[PASS] vbUseDefault = -2 (Use system default)
[PASS] vbTrue = -1 (True state)
[PASS] vbFalse = 0 (False state)

Test Summary

Passed: 109

Failed: 0

Total: 109

All constants are properly implemented!