Elm

0.2.0

Tests/New-ElmComponentMsg.Tests.ps1

BeforeAll {
    . $PSScriptRoot/../Public/View/New-ElmComponentMsg.ps1
}

Describe 'New-ElmComponentMsg' {
    Context 'Return shape' {
        It 'Should return Type = ComponentMsg' {
            $result = New-ElmComponentMsg -ComponentId 'search' -Msg 'CharInput'
            $result.Type | Should -Be 'ComponentMsg'
        }

        It 'Should return the given ComponentId' {
            $result = New-ElmComponentMsg -ComponentId 'my-list' -Msg 'SelectNext'
            $result.ComponentId | Should -Be 'my-list'
        }

        It 'Should return the given Msg' {
            $innerMsg = [PSCustomObject]@{ Type = 'CharInput'; Char = 'a' }
            $result = New-ElmComponentMsg -ComponentId 'search' -Msg $innerMsg
            $result.Msg.Type | Should -Be 'CharInput'
            $result.Msg.Char | Should -Be 'a'
        }

        It 'Should accept a string as Msg' {
            $result = New-ElmComponentMsg -ComponentId 'x' -Msg 'Quit'
            $result.Msg | Should -Be 'Quit'
        }

        It 'Should accept a PSCustomObject as Msg' {
            $msg = [PSCustomObject]@{ Type = 'KeyDown'; Key = 'Enter' }
            $result = New-ElmComponentMsg -ComponentId 'x' -Msg $msg
            $result.Msg.Key | Should -Be 'Enter'
        }
    }

    Context 'Parameter validation' {
        It 'Should throw when ComponentId is empty string' {
            { New-ElmComponentMsg -ComponentId '' -Msg 'whatever' } | Should -Throw
        }

        It 'Should throw when ComponentId is null' {
            { New-ElmComponentMsg -ComponentId $null -Msg 'whatever' } | Should -Throw
        }
    }
}