ObjectGraphTools

0.2.1

Tests/Merge-ObjectGraph.Tests.ps1

#Requires -Modules @{ModuleName="Pester"; ModuleVersion="5.5.0"}

using module ..\..\ObjectGraphTools

Describe 'Merge-ObjectGraph' {

    BeforeAll {

        Set-StrictMode -Version Latest
    }

    Context 'Existence Check' {

        It 'Help' {
            Merge-ObjectGraph -? | Out-String -Stream | Should -Contain SYNOPSIS
        }
    }

    Context 'Merge' {

        It 'Scalar Array' {
            ,@('a', 'b', 'c') | Merge-ObjectGraph 'b', 'c', 'd' | Should -Be (,@('a','b','c','d'))
        }

        It 'Dictionary' {
            $InputObject = @{
                a = 1
                b = 2
                c = 3
            }

            $Template = @{
                b = 2
                c = 3
                d = 4
            }

            $Actual = $InputObject | Merge-ObjectGraph $Template
            $Actual.Count | Should -Be 4
            $Actual.Keys  | Should -Contain 'a'
            $Actual.Keys  | Should -Contain 'd'
        }

        It 'Array of Dictionaries' {
            $InputObject = @(
                @{
                    Key = 'Key1'
                    a = 1
                    b = 2
                }
                @{
                    Key = 'Key2'
                    c = 3
                    d = 4
                }
            )

            $Template = @(
                @{
                    Key = 'Key2'
                    a = 1
                    b = 2
                }
                @{
                    Key = 'Key3'
                    c = 3
                    d = 4
                }
            )

            $Actual = ,$InputObject | Merge-ObjectGraph $Template
            $Actual.Count | Should -Be 4
        }
    }

    It 'append Dictionaries items by Key' {
        $InputObject = @(
            @{
                Key = 'Key1'
                a = 1
                b = 2
            }
            @{
                Key = 'Key2'
                c = 3
                d = 4
            }
        )

        $Template = @(
            @{
                Key = 'Key2'
                a = 1
                b = 2
            }
            @{
                Key = 'Key3'
                c = 3
                d = 4
            }
        )

        $Actual = ,$InputObject | Merge-ObjectGraph $Template -PrimaryKey Key
        $Actual.Count | Should -Be 3
        $Actual.where{ $_.Key -eq 'Key1' }[0].Count | Should -Be 3
        $Actual.where{ $_.Key -eq 'Key2' }[0].Count | Should -Be 5
        $Actual.where{ $_.Key -eq 'Key3' }[0].Count | Should -Be 3
    }

    It 'replace Dictionaries items by Key' {
        $InputObject = @(
            @{
                Key = 'Key1'
                a = 1
                b = 2
            }
            @{
                Key = 'Key2'
                c = 3
                d = 4
            }
        )

        $Template = @(
            @{
                Key = 'Key2'
                c = 1
                d = 2
            }
            @{
                Key = 'Key3'
                e = 3
                f = 4
            }
        )

        $Actual = ,$InputObject | Merge-ObjectGraph $Template -PrimaryKey Key
        $Actual.Count | Should -Be 3
        $Actual.where{ $_.Key -eq 'Key1' }[0].Count | Should -Be 3
        $Actual.where{ $_.Key -eq 'Key2' }[0].Count | Should -Be 3
        $Actual.where{ $_.Key -eq 'Key3' }[0].Count | Should -Be 3
    }

    Context 'Warning' {

        It 'Depth' {
            $Template = @{ Name = 'Base' }
            $Template.Parent = $Template
            $InputObject = @{ Name = 'Test' }
            $InputObject.Parent = $InputObject
            $Records = $InputObject | Merge-ObjectGraph $Template 3>&1
            $Records.where{$_ -is    [System.Management.Automation.WarningRecord]}.Message | Should -BeLike "*maximum depth*$([PSNode]::DefaultMaxDepth)*"
            $Records.where{$_ -isnot [System.Management.Automation.WarningRecord]}.Name    | Should -Be     'Test'
        }
   }

   Context 'Issues' {

        It '#2: Merge-ObjectGraph Bug' {
            $Obj_1 = @{
                AllNodes = @(
                    @{
                        CertificateFile = '.\DSCCertificate.cer'
                        NodeName = 'localhost'
                    }
                )
            }

            $Obj_2 = @{
                NonNodeData = @{
                    OneDrive = @{
                        Settings = @{
                        }
                    }
                }
            }

            $Actual = Merge-ObjectGraph -Template $Obj_1 -InputObject $Obj_2
            $Expected = @{
                    NonNodeData = @{OneDrive = @{Settings = @{}}}
                    AllNodes = ,@{
                        NodeName = 'localhost'
                        CertificateFile = '.\DSCCertificate.cer'
                    }
                }

            $Actual | Compare-ObjectGraph $Expected -IsEqual | Should -Be $True
        }
    }

    It '[PSCustomObject]' {
        $Obj_1 = @{
            AllNodes = @(
                @{
                    CertificateFile = '.\DSCCertificate.cer'
                    NodeName = 'localhost'
                }
            )
        } | ConvertTo-Json -Depth 9 | ConvertFrom-Json

        $Obj_2 = @{
            NonNodeData = @{
                OneDrive = @{
                    Settings = @{
                    }
                }
            }
        } | ConvertTo-Json -Depth 9 | ConvertFrom-Json

        $Actual = Merge-ObjectGraph -Template $Obj_1 -InputObject $Obj_2
        $Expected = @{
                NonNodeData = @{OneDrive = @{Settings = @{}}}
                AllNodes = ,@{
                    NodeName = 'localhost'
                    CertificateFile = '.\DSCCertificate.cer'
                }
            }

        $Actual | Compare-ObjectGraph $Expected -IsEqual | Should -Be $True
    }
}