Make upper and lower case work correctly

Author: vors

tests/pester/Syntax.Tests.ps1

@@ -66,21 +66,31 @@ Describe "Syntax highlighting" {
         }
 
         It "produces same tokens for lower case" {
-            $stLowScopes = Get-SublimeScopesFromFile (Join-Path $tokensFolder "test-file.ps1.lower.tokens" )
-            $diff = Compare-Object $stScopes $stLowScopes
-            if ($diff) {
-                $diff | Write-DiffAsWarning
+            $stOtherScopes = Get-SublimeScopesFromFile (Join-Path $tokensFolder "test-file.ps1.lower.tokens" )
+            Write-Host -ForegroundColor Cyan "Scopes count = $($stScopes.Length) "
+            Write-Host -ForegroundColor Cyan "Lower scopes count = $($stOtherScopes.Length) "
+            
+            $n = @($stScopes.Length, $stOtherScopes.Length) | Get-Max
+            0..($n-1) | % { 
+                if (-not (Test-ScopesEqual $stScopes[$_] $stOtherScopes[$_])) {
+                    #Write-Warning "Scopes are different $($stScopes[$_]) $($stOtherScopes[$_])"
+                    $stScopes[$_] | Should be $stOtherScopes[$_]
+                }
             }
-            $diff | Should Be $null
         }
 
         It "produces same tokens for upper case" {
-            $stUpperScopes = Get-SublimeScopesFromFile (Join-Path $tokensFolder "test-file.ps1.upper.tokens" )
-            $diff = Compare-Object $stScopes $stUpperScopes
-            if ($diff) {
-                $diff | Write-DiffAsWarning
+            $stOtherScopes = Get-SublimeScopesFromFile (Join-Path $tokensFolder "test-file.ps1.upper.tokens" )
+            Write-Host -ForegroundColor Cyan "Scopes count = $($stScopes.Length) "
+            Write-Host -ForegroundColor Cyan "Upper scopes count = $($stOtherScopes.Length) "
+
+            $n = @($stScopes.Length, $stOtherScopes.Length) | Get-Max
+            0..($n-1) | % { 
+                if (-not (Test-ScopesEqual $stScopes[$_] $stOtherScopes[$_])) {
+                    #Write-Warning "Scopes are different $($stScopes[$_]) $($stOtherScopes[$_])"
+                    $stScopes[$_] | Should be $stOtherScopes[$_]
+                }
             }
-            $diff | Should Be $null
         }
     }
 }

tests/pester/SyntaxHelper.psm1

@@ -157,16 +157,48 @@ function Test-ScopeDisclosure
     return $false
 }
 
-function Write-DiffAsWarning
+function Test-ScopesEqual
+{
+    [CmdletBinding()]
+    param(
+        $leftScope,
+        $rightScope
+    )
+    if ($leftScope.startOffset -ne $rightScope.startOffset) {return $false} 
+    if ($leftScope.endOffset -ne $rightScope.endOffset) {return $false}
+    if ($leftScope.Text -ne $rightScope.Text) {return $false}
+    #TODO: this is week, need to make stronger
+    #if ($leftScope.Kind.Split('.')[0] -ne $rightScope.Kind.Split('.')[0]) {return $false}
+    return $true
+}
+
+function Get-Max
 {
     [CmdletBinding()]
     param(
         [Parameter(ValueFromPipeline)]
-        $diff
+        $object
     )
 
-    process 
+    begin
+    {
+        $max = $null
+    }
+
+    process
+    {
+        if (-not $max)
+        {
+            $max = $object
+        } else {
+            if ($object -gt $max) {
+                $max = $object
+            }    
+        }
+    }
+
+    end 
     {
-        Write-Warning "$($diff.SideIndicator) | $($diff.InputObject)"
+        return $max
     }
 }