[Ubuntu] Implement new directories hierarchy (#8627)

images/ubuntu/scripts/tests/Haskell.Tests.ps1

@@ -0,0 +1,38 @@
+Describe "Haskell" {
+    $GHCCommonPath = "/usr/local/.ghcup/ghc"
+    $GHCVersions = Get-ChildItem -Path $GHCCommonPath | Where-Object { $_.Name -match "\d+\.\d+" }
+
+    $testCase = @{ GHCVersions = $GHCVersions }
+
+    It "GHC directory contains two version of GHC" -TestCases $testCase {
+        param ([object] $GHCVersions)
+        $GHCVersions.Count | Should -Be 2
+    }
+
+    $testCases = $GHCVersions | ForEach-Object { @{ GHCPath = "${_}/bin/ghc"} }
+
+    It "GHC version <GHCPath>" -TestCases $testCases {
+            param ([string] $GHCPath)
+            "$GHCPath --version" | Should -ReturnZeroExitCode
+    }
+
+    It "GHCup" {
+        "ghcup --version" | Should -ReturnZeroExitCode
+    }
+
+    It "Default GHC" {
+        "ghc --version" | Should -ReturnZeroExitCode
+    }
+
+    It "Cabal" {
+        "cabal --version" | Should -ReturnZeroExitCode
+    }
+
+    It "Stack" {
+        "stack --version" | Should -ReturnZeroExitCode
+    }
+
+    It "Stack hook is not installed" {
+        "$HOME/.stack/hooks/ghc-install.sh" | Should -Not -Exist
+    }
+}