plugins/fzf/bin/PSFzf/PSFzf.tests.ps1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
#
# This is a PowerShell Unit Test file.
# You need a unit test framework such as Pester to run PowerShell Unit tests.
# You can download Pester from http://go.microsoft.com/fwlink/?LinkID=534084
#
Get-Module PsFzf | Remove-Module

# set env variable so Import-Module doesn't fail:
if ([string]::IsNullOrEmpty($env:GOPATH)) {
    $env:GOPATH = "c:\ADirectoryThatShouldNotExist\"
}
Import-Module $PSScriptRoot\PsFzf.psm1 -ErrorAction Stop

Describe "Find-CurrentPath" {
    InModuleScope PsFzf {
        Context "Function Exists" {
            It "Should Return Nothing" {
                $line = "" ; $cursor = 0
                $leftCursor = $rightCursor = $null
                Find-CurrentPath $line $cursor ([ref]$leftCursor) ([ref]$rightCursor) | Should Be $null
                $leftCursor | Should Be 0
                $rightCursor | Should Be 0
            }

            It "Should Return Nothing with Spaces Cursor at Beginning" {
                $line = " " ; $cursor = 0
                $leftCursor = $rightCursor = $null
                Find-CurrentPath $line $cursor ([ref]$leftCursor) ([ref]$rightCursor) | Should Be " "
                $leftCursor | Should Be 0
                $rightCursor | Should Be 0
            }

            It "Should Return Nothing with Spaces Cursor at End" {
                $line = " " ; $cursor = 1
                $leftCursor = $rightCursor = $null
                Find-CurrentPath $line $cursor ([ref]$leftCursor) ([ref]$rightCursor) | Should Be " "
                $leftCursor | Should Be 0
                $rightCursor | Should Be 0
            }

            It "Should Return Path Cursor at Beginning for Single Char" {
                $line = "~" ; $cursor = 0
                $leftCursor = $rightCursor = $null
                Find-CurrentPath $line $cursor ([ref]$leftCursor) ([ref]$rightCursor) | Should Be "~"
                $leftCursor | Should Be 0
                $rightCursor | Should Be ($line.Length-1)
            }

            It "Should Return Path Cursor at Beginning" {
                $line = "C:\Windows\" ; $cursor = 0
                $leftCursor = $rightCursor = $null
                Find-CurrentPath $line $cursor ([ref]$leftCursor) ([ref]$rightCursor) | Should Be "c:\Windows\"
                $leftCursor | Should Be 0
                $rightCursor | Should Be ($line.Length-1)
            }

            It "Should Return Path Cursor at End" {
                $line = "C:\Windows\" ; $cursor = $line.Length
                $leftCursor = $rightCursor = $null
                Find-CurrentPath $line $cursor ([ref]$leftCursor) ([ref]$rightCursor) | Should Be "c:\Windows\"
                $leftCursor | Should Be 0
                $rightCursor | Should Be ($line.Length-1)
            }

            It "Should Return Command and Path Cursor at Beginning" {
                $line = "cd C:\Windows\" ; $cursor = 0
                $leftCursor = $rightCursor = $null
                Find-CurrentPath $line $cursor ([ref]$leftCursor) ([ref]$rightCursor) | Should Be "cd"
                $leftCursor | Should Be 0
                $rightCursor | Should Be ('cd'.Length-1)
            }

            It "Should Return Command and Path Cursor at End" {
                $line = "cd C:\Windows\" ; $cursor = $line.Length
                $leftCursor = $rightCursor = $null
                Find-CurrentPath $line $cursor ([ref]$leftCursor) ([ref]$rightCursor) | Should Be "c:\Windows\"
                $leftCursor | Should Be 'cd '.Length
                $rightCursor | Should Be ($line.Length-1)
            }

            It "Should Return Command and Path Cursor at End" {
                $line = "cd C:\Windows\" ; $cursor = $line.Length-1
                $leftCursor = $rightCursor = $null
                Find-CurrentPath $line $cursor ([ref]$leftCursor) ([ref]$rightCursor) | Should Be "c:\Windows\"
                $leftCursor | Should Be 'cd '.Length
                $rightCursor | Should Be ($line.Length-1)
            }

            It "Should Return Path With Quotes Cursor at Beginning" {
                '"',"'" | ForEach-Object {
                    $quote  = $_
                    $line = $quote + 'C:\Program Files\' + $quote ; $cursor = 0
                    $leftCursor = $rightCursor = $null
                    Find-CurrentPath $line $cursor ([ref]$leftCursor) ([ref]$rightCursor) | Should Be 'C:\Program Files\'
                    $leftCursor | Should Be 0
                    $rightCursor | Should Be ($line.Length-1)
                }
            }

            It "Should Return Path With Quotes Cursor at End" {
                '"',"'" | ForEach-Object {
                    $quote  = $_
                    $line = $quote + 'C:\Program Files\' + $quote ; $cursor = 0
                    $leftCursor = $rightCursor = $null
                    Find-CurrentPath $line $cursor ([ref]$leftCursor) ([ref]$rightCursor) | Should Be 'C:\Program Files\'
                    $leftCursor | Should Be 0
                    $rightCursor | Should Be ($line.Length-1)
                }
            }
        }
    }
}

Describe "Invoke-Fzf" {
    InModuleScope PsFzf {
        Context "Function Exists" {
            It "Should Return Nothing" {
                $result = '' | Invoke-Fzf -Query 'file1.txt' -Select1 -Exit0
                #$result | Should Be $null
            }

            It "Should Return 1 Item, 1 Element" {
                $result = 'file1.txt' | Invoke-Fzf -Query 'file1.txt' -Select1 -Exit0
                #$result | Should Be 'file1.txt'
            }

            It "Should Return 1 Item, Case Insensitive" {
                $result = 'file1.txt' | Invoke-Fzf -Query 'FILE1.TXT' -Select1 -Exit0 -CaseInsensitive
                #$result | Should Be 'file1.txt'
            }

            It "Should Return Nothing, Case Sensitive" {
                $result = 'file1.txt' | Invoke-Fzf -Query 'FILE1.TXT' -Select1 -Exit0 -CaseSensitive
                #$result | Should Be $null
            }

            It "Should Return 1 Item, No Multi" {
                $result = 'file1.txt','file2.txt' | Invoke-Fzf -Multi -Query 'file1' -Select1 -Exit0 -Filter "file1" -ReverseInput
                #$result | Should Be 'file1.txt'
            }

            It "Should Return 2 Item, Multi" {
                $result = 'file1.txt','file2.txt' | Invoke-Fzf -Multi -Query 'file' -Select1 -Exit0 -Filter "file" -ReverseInput
                #$result.Length | Should Be 2
                #$result[0] | Should Be 'file2.txt'
                #$result[1] | Should Be 'file1.txt'
            }
        }
    }
}