vb6parse 1.0.1

//! VB6 `WeekdayName` Function
//!
//! The `WeekdayName` function returns a string indicating the specified day of the week.
//!
//! ## Syntax
//! ```vb6
//! WeekdayName(weekday[, abbreviate[, firstdayofweek]])
//! ```
//!
//! ## Parameters
//! - `weekday`: Required. The numeric designation for the day of the week. Numeric value of each day depends on the `firstdayofweek` setting.
//! - `abbreviate`: Optional. Boolean value that indicates if the weekday name is to be abbreviated. If omitted, the default is False (not abbreviated).
//! - `firstdayofweek`: Optional. Numeric value indicating the first day of the week. See Settings section for values.
//!
//! ### `FirstDayOfWeek` Constants
//! - `vbUseSystemDayOfWeek` (0): Use National Language Support (NLS) API setting
//! - `vbSunday` (1): Sunday (default)
//! - `vbMonday` (2): Monday
//! - `vbTuesday` (3): Tuesday
//! - `vbWednesday` (4): Wednesday
//! - `vbThursday` (5): Thursday
//! - `vbFriday` (6): Friday
//! - `vbSaturday` (7): Saturday
//!
//! ## Returns
//! Returns a `String` containing the name of the specified day of the week. The string is localized based on the system's regional settings.
//!
//! ## Remarks
//! The `WeekdayName` function provides localized day names:
//!
//! - **Localization**: Returns day names according to system locale (e.g., "Monday" in English, "Lundi" in French)
//! - **Abbreviation**: When `abbreviate` is True, returns shortened form (e.g., "Mon" instead of "Monday")
//! - **Weekday parameter**: Numeric value from 1 to 7
//! - **Default first day**: Sunday (vbSunday = 1) if `firstdayofweek` not specified
//! - **Consistency with Weekday**: Use same `firstdayofweek` value as Weekday function for consistency
//! - **System locale**: Output language depends on Windows regional settings
//! - **Case sensitivity**: Returned string typically has proper capitalization
//! - **Abbreviation length**: Typically 3 characters in English, varies by locale
//!
//! ### Understanding Weekday Parameter
//! The `weekday` parameter's meaning depends on `firstdayofweek`:
//! - If `firstdayofweek` is `vbSunday` (default): 1=Sunday, 2=Monday, 3=Tuesday, etc.
//! - If `firstdayofweek` is `vbMonday`: 1=Monday, 2=Tuesday, 3=Wednesday, etc.
//! - The number always refers to the position in the week, starting from the specified first day
//!
//! ### Abbreviation Examples (English locale)
//! - Full: "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"
//! - Abbreviated: "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
//!
//! ### Combining with Weekday Function
//! ```vb6
//! ' Get the name of today's day
//! dayName = WeekdayName(Weekday(Date))
//! ```
//!
//! ## Typical Uses
//! 1. **Display Day Names**: Show user-friendly day names in UI
//! 2. **Report Headers**: Label columns or sections with day names
//! 3. **Calendar Applications**: Display calendar grid headers
//! 4. **Localized Applications**: Provide day names in user's language
//! 5. **Schedule Display**: Show schedule with day names
//! 6. **Date Formatting**: Create custom date format strings
//! 7. **Dropdown Lists**: Populate day selection dropdowns
//! 8. **Log Files**: Human-readable date information in logs
//!
//! ## Basic Examples
//!
//! ### Example 1: Get Today's Day Name
//! ```vb6
//! Sub ShowTodayName()
//!     Dim todayName As String
//!     todayName = WeekdayName(Weekday(Date))
//!     MsgBox "Today is " & todayName
//! End Sub
//! ```
//!
//! ### Example 2: Display All Day Names
//! ```vb6
//! Sub ListAllDays()
//!     Dim i As Integer
//!     For i = 1 To 7
//!         Debug.Print WeekdayName(i)
//!     Next i
//! End Sub
//! ```
//!
//! ### Example 3: Abbreviated Day Names
//! ```vb6
//! Function GetAbbreviatedDayName(dayNumber As Integer) As String
//!     GetAbbreviatedDayName = WeekdayName(dayNumber, True)
//! End Function
//!
//! ' Usage:
//! Debug.Print GetAbbreviatedDayName(1) ' Prints "Sun" (if vbSunday is first day)
//! ```
//!
//! ### Example 4: Create Calendar Header
//! ```vb6
//! Function CreateCalendarHeader(Optional abbreviated As Boolean = True) As String
//!     Dim i As Integer
//!     Dim header As String
//!     
//!     header = ""
//!     For i = 1 To 7
//!         header = header & WeekdayName(i, abbreviated, vbSunday) & vbTab
//!     Next i
//!     
//!     CreateCalendarHeader = header
//! End Function
//! ```
//!
//! ## Common Patterns
//!
//! ### Pattern 1: Format Date with Day Name
//! ```vb6
//! Function FormatDateWithDayName(dt As Date) As String
//!     FormatDateWithDayName = WeekdayName(Weekday(dt)) & ", " & Format$(dt, "mmmm d, yyyy")
//! End Function
//! ```
//!
//! ### Pattern 2: Get All Day Names Array
//! ```vb6
//! Function GetDayNamesArray(Optional abbreviated As Boolean = False) As String()
//!     Dim days(1 To 7) As String
//!     Dim i As Integer
//!     
//!     For i = 1 To 7
//!         days(i) = WeekdayName(i, abbreviated)
//!     Next i
//!     
//!     GetDayNamesArray = days
//! End Function
//! ```
//!
//! ### Pattern 3: ISO Week Day Names (Monday First)
//! ```vb6
//! Function GetISODayName(dayNumber As Integer, Optional abbreviated As Boolean = False) As String
//!     GetISODayName = WeekdayName(dayNumber, abbreviated, vbMonday)
//! End Function
//! ```
//!
//! ### Pattern 4: Populate `ComboBox` with Days
//! ```vb6
//! Sub PopulateDayCombo(combo As ComboBox)
//!     Dim i As Integer
//!     combo.Clear
//!     For i = 1 To 7
//!         combo.AddItem WeekdayName(i)
//!     Next i
//! End Sub
//! ```
//!
//! ### Pattern 5: Get Day Initials
//! ```vb6
//! Function GetDayInitial(dayNumber As Integer) As String
//!     GetDayInitial = Left$(WeekdayName(dayNumber, True), 1)
//! End Function
//! ```
//!
//! ### Pattern 6: Create Week Schedule Header
//! ```vb6
//! Function CreateWeekSchedule() As String
//!     Dim i As Integer
//!     Dim schedule As String
//!     
//!     schedule = "Week Schedule:" & vbCrLf
//!     For i = 1 To 7
//!         schedule = schedule & WeekdayName(i) & ": _____" & vbCrLf
//!     Next i
//!     
//!     CreateWeekSchedule = schedule
//! End Function
//! ```
//!
//! ### Pattern 7: Format Event Description
//! ```vb6
//! Function FormatEventDescription(eventDate As Date, eventName As String) As String
//!     FormatEventDescription = eventName & " on " & _
//!                             WeekdayName(Weekday(eventDate)) & ", " & _
//!                             Format$(eventDate, "mmmm d")
//! End Function
//! ```
//!
//! ### Pattern 8: Get Weekday vs Weekend Label
//! ```vb6
//! Function GetDayTypeLabel(dt As Date) As String
//!     Dim dayNum As Integer
//!     dayNum = Weekday(dt)
//!     
//!     If dayNum = vbSaturday Or dayNum = vbSunday Then
//!         GetDayTypeLabel = WeekdayName(dayNum) & " (Weekend)"
//!     Else
//!         GetDayTypeLabel = WeekdayName(dayNum) & " (Weekday)"
//!     End If
//! End Function
//! ```
//!
//! ### Pattern 9: Create Pivot Headers
//! ```vb6
//! Function CreatePivotDayHeaders() As Variant
//!     Dim headers(1 To 7) As String
//!     Dim i As Integer
//!     
//!     For i = 1 To 7
//!         headers(i) = WeekdayName(i, True, vbMonday)
//!     Next i
//!     
//!     CreatePivotDayHeaders = headers
//! End Function
//! ```
//!
//! ### Pattern 10: Conditional Day Name Display
//! ```vb6
//! Function GetDisplayDayName(dt As Date, useAbbreviation As Boolean) As String
//!     GetDisplayDayName = WeekdayName(Weekday(dt), useAbbreviation)
//! End Function
//! ```
//!
//! ## Advanced Usage
//!
//! ### Example 1: Calendar Header Generator Class
//! ```vb6
//! ' Class: CalendarHeaderGenerator
//! ' Generates calendar headers with configurable options
//! Option Explicit
//!
//! Private m_FirstDayOfWeek As VbDayOfWeek
//! Private m_Abbreviated As Boolean
//! Private m_Separator As String
//!
//! Public Sub Initialize(Optional firstDay As VbDayOfWeek = vbSunday, _
//!                      Optional abbreviated As Boolean = True, _
//!                      Optional separator As String = " ")
//!     m_FirstDayOfWeek = firstDay
//!     m_Abbreviated = abbreviated
//!     m_Separator = separator
//! End Sub
//!
//! Public Function GenerateHeader() As String
//!     Dim i As Integer
//!     Dim header As String
//!     
//!     header = ""
//!     For i = 1 To 7
//!         If i > 1 Then header = header & m_Separator
//!         header = header & WeekdayName(i, m_Abbreviated, m_FirstDayOfWeek)
//!     Next i
//!     
//!     GenerateHeader = header
//! End Function
//!
//! Public Function GenerateHeaderArray() As String()
//!     Dim headers(1 To 7) As String
//!     Dim i As Integer
//!     
//!     For i = 1 To 7
//!         headers(i) = WeekdayName(i, m_Abbreviated, m_FirstDayOfWeek)
//!     Next i
//!     
//!     GenerateHeaderArray = headers
//! End Function
//!
//! Public Function GetDayName(dayNumber As Integer) As String
//!     If dayNumber < 1 Or dayNumber > 7 Then
//!         Err.Raise 5, , "Day number must be between 1 and 7"
//!     End If
//!     GetDayName = WeekdayName(dayNumber, m_Abbreviated, m_FirstDayOfWeek)
//! End Function
//! ```
//!
//! ### Example 2: Date Formatter Module
//! ```vb6
//! ' Module: DateFormatter
//! ' Advanced date formatting with day names
//! Option Explicit
//!
//! Public Function FormatLongDate(dt As Date) As String
//!     FormatLongDate = WeekdayName(Weekday(dt)) & ", " & _
//!                     Format$(dt, "mmmm d, yyyy")
//! End Function
//!
//! Public Function FormatShortDate(dt As Date) As String
//!     FormatShortDate = WeekdayName(Weekday(dt), True) & " " & _
//!                      Format$(dt, "mm/dd/yyyy")
//! End Function
//!
//! Public Function FormatScheduleDate(dt As Date) As String
//!     FormatScheduleDate = WeekdayName(Weekday(dt), True) & ", " & _
//!                         Format$(dt, "mmm d")
//! End Function
//!
//! Public Function FormatCalendarDate(dt As Date) As String
//!     FormatCalendarDate = WeekdayName(Weekday(dt)) & vbCrLf & _
//!                         Format$(dt, "d")
//! End Function
//!
//! Public Function GetDayWithOrdinal(dt As Date) As String
//!     Dim dayNum As Integer
//!     Dim suffix As String
//!     
//!     dayNum = Day(dt)
//!     
//!     Select Case dayNum
//!         Case 1, 21, 31
//!             suffix = "st"
//!         Case 2, 22
//!             suffix = "nd"
//!         Case 3, 23
//!             suffix = "rd"
//!         Case Else
//!             suffix = "th"
//!     End Select
//!     
//!     GetDayWithOrdinal = WeekdayName(Weekday(dt)) & ", " & _
//!                        MonthName(Month(dt)) & " " & dayNum & suffix
//! End Function
//! ```
//!
//! ### Example 3: Schedule Analyzer Class
//! ```vb6
//! ' Class: ScheduleAnalyzer
//! ' Analyzes schedules and provides day-based insights
//! Option Explicit
//!
//! Public Function GetDayDistributionReport(dates() As Date) As String
//!     Dim dayCounts(1 To 7) As Integer
//!     Dim i As Long
//!     Dim report As String
//!     Dim dayNum As Integer
//!     
//!     ' Count occurrences
//!     For i = LBound(dates) To UBound(dates)
//!         dayNum = Weekday(dates(i))
//!         dayCounts(dayNum) = dayCounts(dayNum) + 1
//!     Next i
//!     
//!     ' Build report
//!     report = "Day Distribution:" & vbCrLf
//!     For i = 1 To 7
//!         report = report & WeekdayName(i) & ": " & dayCounts(i) & vbCrLf
//!     Next i
//!     
//!     GetDayDistributionReport = report
//! End Function
//!
//! Public Function GetMostCommonDay(dates() As Date) As String
//!     Dim dayCounts(1 To 7) As Integer
//!     Dim i As Long
//!     Dim maxCount As Integer
//!     Dim maxDay As Integer
//!     Dim dayNum As Integer
//!     
//!     For i = LBound(dates) To UBound(dates)
//!         dayNum = Weekday(dates(i))
//!         dayCounts(dayNum) = dayCounts(dayNum) + 1
//!     Next i
//!     
//!     maxCount = 0
//!     maxDay = 1
//!     For i = 1 To 7
//!         If dayCounts(i) > maxCount Then
//!             maxCount = dayCounts(i)
//!             maxDay = i
//!         End If
//!     Next i
//!     
//!     GetMostCommonDay = WeekdayName(maxDay)
//! End Function
//!
//! Public Function CreateDaySummary(dates() As Date) As Collection
//!     Dim summary As New Collection
//!     Dim i As Integer
//!     
//!     For i = 1 To 7
//!         summary.Add 0, WeekdayName(i)
//!     Next i
//!     
//!     Dim dt As Variant
//!     For Each dt In dates
//!         Dim dayName As String
//!         dayName = WeekdayName(Weekday(dt))
//!         summary.Remove dayName
//!         summary.Add summary(dayName) + 1, dayName
//!     Next dt
//!     
//!     Set CreateDaySummary = summary
//! End Function
//! ```
//!
//! ### Example 4: Localization Helper Module
//! ```vb6
//! ' Module: LocalizationHelper
//! ' Helps with localized day name handling
//! Option Explicit
//!
//! Public Function GetLocalizedDayNames(Optional abbreviated As Boolean = False, _
//!                                     Optional firstDay As VbDayOfWeek = vbSunday) As String()
//!     Dim names(1 To 7) As String
//!     Dim i As Integer
//!     
//!     For i = 1 To 7
//!         names(i) = WeekdayName(i, abbreviated, firstDay)
//!     Next i
//!     
//!     GetLocalizedDayNames = names
//! End Function
//!
//! Public Function CreateDayNameLookup(Optional abbreviated As Boolean = False) As Collection
//!     Dim lookup As New Collection
//!     Dim i As Integer
//!     
//!     For i = 1 To 7
//!         lookup.Add WeekdayName(i, abbreviated), CStr(i)
//!     Next i
//!     
//!     Set CreateDayNameLookup = lookup
//! End Function
//!
//! Public Function FindDayNumber(dayName As String) As Integer
//!     Dim i As Integer
//!     
//!     For i = 1 To 7
//!         If UCase$(WeekdayName(i)) = UCase$(dayName) Then
//!             FindDayNumber = i
//!             Exit Function
//!         End If
//!         If UCase$(WeekdayName(i, True)) = UCase$(dayName) Then
//!             FindDayNumber = i
//!             Exit Function
//!         End If
//!     Next i
//!     
//!     FindDayNumber = 0 ' Not found
//! End Function
//!
//! Public Function IsDayNameValid(dayName As String) As Boolean
//!     IsDayNameValid = (FindDayNumber(dayName) > 0)
//! End Function
//!
//! Public Function NormalizeDayName(dayName As String) As String
//!     Dim dayNum As Integer
//!     dayNum = FindDayNumber(dayName)
//!     
//!     If dayNum > 0 Then
//!         NormalizeDayName = WeekdayName(dayNum)
//!     Else
//!         NormalizeDayName = ""
//!     End If
//! End Function
//! ```
//!
//! ## Error Handling
//! The `WeekdayName` function can raise the following errors:
//!
//! - **Error 5 (Invalid procedure call or argument)**: If `weekday` is less than 1 or greater than 7
//! - **Error 5 (Invalid procedure call or argument)**: If `firstdayofweek` is not between 0 and 7
//! - **Error 13 (Type mismatch)**: If arguments are not of correct type
//!
//! ## Performance Notes
//! - Very fast operation - simple lookup/formatting
//! - Constant time O(1) complexity
//! - No significant performance difference between abbreviated and full forms
//! - Can be called repeatedly without performance concerns
//! - Consider caching day name arrays if used frequently in loops
//!
//! ## Best Practices
//! 1. **Use consistent firstdayofweek** with Weekday function to avoid confusion
//! 2. **Cache day name arrays** if populating lists or grids repeatedly
//! 3. **Handle localization** - day names will differ based on system locale
//! 4. **Document expectations** about which day is first in week
//! 5. **Use abbreviation** parameter for space-constrained displays
//! 6. **Validate weekday range** (1-7) before calling
//! 7. **Consider `MonthName`** for consistent date formatting patterns
//! 8. **Test with different locales** if application is internationalized
//! 9. **Use named constants** (vbMonday, etc.) for clarity
//! 10. **Combine with Format$** for custom date displays
//!
//! ## Comparison Table
//!
//! | Function | Purpose | Returns | Localized |
//! |----------|---------|---------|-----------|
//! | `WeekdayName` | Get day name | String | Yes |
//! | `Weekday` | Get day number | Integer (1-7) | No |
//! | `MonthName` | Get month name | String | Yes |
//! | `Format$` | Format date | String | Partially |
//!
//! ## Platform Notes
//! - Available in VB6, VBA, and `VBScript`
//! - Behavior consistent across platforms
//! - Output localized based on system regional settings
//! - Abbreviation format varies by locale
//! - English (US): "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
//! - Other languages will return appropriate translations
//!
//! ## Limitations
//! - Cannot customize day name output (uses system locale)
//! - Abbreviation length not configurable (determined by locale)
//! - No way to get day name in specific language (uses system setting)
//! - Cannot get day names for custom calendars (e.g., Hebrew, Islamic)
//! - No built-in way to get single-letter day abbreviations
//! - Cannot specify case (capitalization) of returned string

#[cfg(test)]
mod tests {
    use crate::*;

    #[test]
    fn weekdayname_basic() {
        let source = r"
Sub Test()
    dayName = WeekdayName(1)
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_variable_assignment() {
        let source = r"
Sub Test()
    Dim name As String
    name = WeekdayName(dayNumber)
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_with_abbreviate() {
        let source = r"
Sub Test()
    shortName = WeekdayName(3, True)
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_all_parameters() {
        let source = r"
Sub Test()
    name = WeekdayName(2, False, vbMonday)
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_with_weekday() {
        let source = r"
Sub Test()
    todayName = WeekdayName(Weekday(Date))
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_for_loop() {
        let source = r"
Sub Test()
    For i = 1 To 7
        Debug.Print WeekdayName(i)
    Next i
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_msgbox() {
        let source = r#"
Sub Test()
    MsgBox "Today is " & WeekdayName(Weekday(Date))
End Sub
"#;
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_function_return() {
        let source = r"
Function GetDayName(dayNum As Integer) As String
    GetDayName = WeekdayName(dayNum)
End Function
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_array_assignment() {
        let source = r"
Sub Test()
    dayNames(i) = WeekdayName(i, True)
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_concatenation() {
        let source = r"
Sub Test()
    header = WeekdayName(1, True) & vbTab & WeekdayName(2, True)
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_function_argument() {
        let source = r"
Sub Test()
    Call DisplayDay(WeekdayName(dayNum))
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_debug_print() {
        let source = r"
Sub Test()
    Debug.Print WeekdayName(vbMonday)
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_select_case() {
        let source = r#"
Sub Test()
    Select Case WeekdayName(Weekday(dt))
        Case "Monday"
            DoMonday
        Case "Friday"
            DoFriday
    End Select
End Sub
"#;
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_if_statement() {
        let source = r#"
Sub Test()
    If WeekdayName(Weekday(dt)) = "Saturday" Then
        IsWeekend = True
    End If
End Sub
"#;
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_comparison() {
        let source = r"
Sub Test()
    If WeekdayName(day1) = WeekdayName(day2) Then
        SameDay
    End If
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_format() {
        let source = r#"
Sub Test()
    formatted = WeekdayName(Weekday(dt)) & ", " & Format$(dt, "mmmm d, yyyy")
End Sub
"#;
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_property_assignment() {
        let source = r"
Sub Test()
    obj.DayName = WeekdayName(obj.DayNumber)
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_with_statement() {
        let source = r"
Sub Test()
    With dateInfo
        .Name = WeekdayName(.DayNumber, .Abbreviate)
    End With
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_parentheses() {
        let source = r"
Sub Test()
    result = (WeekdayName(dayNum))
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_error_handling() {
        let source = r#"
Sub Test()
    On Error Resume Next
    name = WeekdayName(userInput)
    If Err.Number <> 0 Then
        name = "Invalid"
    End If
End Sub
"#;
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_print_statement() {
        let source = r"
Sub Test()
    Print #1, WeekdayName(i, True)
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_class_usage() {
        let source = r"
Sub Test()
    Set formatter = New DateFormatter
    formatter.DayName = WeekdayName(Weekday(formatter.TargetDate))
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_elseif() {
        let source = r#"
Sub Test()
    If x = 1 Then
        y = 1
    ElseIf WeekdayName(Weekday(dt)) = "Monday" Then
        y = 2
    End If
End Sub
"#;
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_do_while() {
        let source = r#"
Sub Test()
    Do While WeekdayName(Weekday(dt), True) <> "Mon"
        dt = dt + 1
    Loop
End Sub
"#;
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_left_function() {
        let source = r"
Sub Test()
    initial = Left$(WeekdayName(dayNum, True), 1)
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_ucase() {
        let source = r"
Sub Test()
    upperName = UCase$(WeekdayName(dayNum))
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_iif() {
        let source = r"
Sub Test()
    display = IIf(abbreviated, WeekdayName(day, True), WeekdayName(day, False))
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }

    #[test]
    fn weekdayname_collection_add() {
        let source = r"
Sub Test()
    days.Add WeekdayName(i), CStr(i)
End Sub
";
        let (cst_opt, _failures) = ConcreteSyntaxTree::from_text("test.bas", source).unpack();
        let cst = cst_opt.expect("CST should be parsed");
        let tree = cst.to_serializable();

        let mut settings = insta::Settings::clone_current();
        settings.set_snapshot_path(
            "../../../../../snapshots/syntax/library/functions/datetime/weekdayname",
        );
        settings.set_prepend_module_to_snapshot(false);
        let _guard = settings.bind_to_scope();
        insta::assert_yaml_snapshot!(tree);
    }
}