fix tests

fable-compiler · Sep 18, 2024 · cc914e5 · cc914e5
1 parent 72fe819
commit cc914e5
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 12 deletions.
diff --git a/build.sh b/build.sh
@@ -2,5 +2,3 @@
 
 dotnet tool restore
 dotnet run --project src/Fable.Build/Fable.Build.fsproj -- $@
-# dotnet run --project src/Fable.Build/Fable.Build.fsproj -- test javascript
-# dotnet run --project src/Fable.Build/Fable.Build.fsproj -- test typescript
diff --git a/tests/Js/Main/StringTests.fs b/tests/Js/Main/StringTests.fs
@@ -815,30 +815,28 @@ let tests = testList "Strings" [
         "abcdbcebc".IndexOfAny([|'c';'b'|]) |> equal 1
 
     testCase "String.StartsWith works" <| fun () ->
-        let args = [("ab", true); ("cd", false); ("abcdx", false)]
+        let args = [("ab", true); ("bc", false); ("cd", false); ("abcdx", false); ("abcd", true)]
         for arg in args do
                 "abcd".StartsWith(fst arg)
                 |> equal (snd arg)
 
-    testCase "String.StartsWith with StringComparison.OrdinalIgnoreCase works" <| fun () ->
-        let args = [("ab", true); ("AB", true); ("cd", false); ("abcd", false)]
+    testCase "String.StartsWith with OrdinalIgnoreCase works" <| fun () ->
+        let args = [("ab", true); ("AB", true); ("BC", false); ("cd", false); ("abcdx", false); ("abcd", true)]
         for arg in args do
                 "ABCD".StartsWith(fst arg, StringComparison.OrdinalIgnoreCase)
                 |> equal (snd arg)
 
-
     testCase "String.EndsWith works" <| fun () ->
-        let args = [("ab", false); ("cd", true); ("abcdx", false)]
+        let args = [("ab", false); ("cd", true);  ("bc", false); ("abcdx", false); ("abcd", true)]
         for arg in args do
                 "abcd".EndsWith(fst arg)
                 |> equal (snd arg)
-
-    testCase "String.EndsWith with StringComparison.OrdinalIgnoreCase works" <| fun () ->
-        let args = [("ab", false); ("CD", true); ("cd", true); ("abcd", false)]
+    
+    testCase "String.EndsWith with OrdinalIgnoreCase works" <| fun () ->
+        let args = [("ab", false); ("CD", true); ("cd", true); ("bc", false); ("xabcd", false); ("abcd", true)]
         for arg in args do
                 "ABCD".EndsWith(fst arg, StringComparison.OrdinalIgnoreCase)
-                |> equal (snd arg)
-                
+                |> equal (snd arg)                
 
     testCase "String.Trim works" <| fun () ->
         "   abc   ".Trim()