diff options
| author | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-02 18:21:37 +0100 |
|---|---|---|
| committer | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-02 18:23:29 +0100 |
| commit | d77a418f3d3575bf9bcb2c71c1ce8b178b916c01 (patch) | |
| tree | ac50d54ee617ffdc71a654083ccf3b0d9be873e0 | |
| parent | d8e4ef2a4611682e273ca18189b1bebf791a1bb8 (diff) | |
| download | lambda-nantes-d77a418f3d3575bf9bcb2c71c1ce8b178b916c01.tar.gz | |
fix order of completion
| -rw-r--r-- | lambda-calcul/haskell/test/Minilang/REPL/HaskelineSpec.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lambda-calcul/haskell/test/Minilang/REPL/HaskelineSpec.hs b/lambda-calcul/haskell/test/Minilang/REPL/HaskelineSpec.hs index b9ec59c..1b0f600 100644 --- a/lambda-calcul/haskell/test/Minilang/REPL/HaskelineSpec.hs +++ b/lambda-calcul/haskell/test/Minilang/REPL/HaskelineSpec.hs @@ -1,5 +1,6 @@ module Minilang.REPL.HaskelineSpec where +import Data.List (sort) import Minilang.REPL.Haskeline import System.Console.Haskeline.Completion import Test.Hspec @@ -24,7 +25,7 @@ spec = parallel $ describe "MiniLang Haskeline REPL" $ describe "Completion" $ d `shouldReturn` [":unset step", ":unset debug"] it "returns list of files when input ':load' " $ - fmap replacement . snd <$> completion ("daol:", "") + sort . fmap replacement . snd <$> completion ("daol:", "") `shouldReturn` [":load bool.lisp", ":load fac.lisp"] it "returns filtered list of files when input ':load xxx' " $ |