Fix Total004 test

Names in Data.List clashed

tests/idris2/total004/Total.idr

@@ -111,17 +111,17 @@ qsort' (x :: xs)
     partition : a -> List a -> (List a, List a)
     partition x xs = (filter (< x) xs, filter (>= x) xs)
 
-sorted : Ord a => List a -> Bool
+mySorted : Ord a => List a -> Bool
-sorted []      = True
+mySorted []      = True
-sorted (x::xs) =
+mySorted (x::xs) =
   case xs of
     Nil     => True
-    (y::ys) => x <= y && sorted (y::ys)
+    (y::ys) => x <= y && mySorted (y::ys)
 
-mergeBy : (a -> a -> Ordering) -> List a -> List a -> List a
+myMergeBy : (a -> a -> Ordering) -> List a -> List a -> List a
-mergeBy order []      right   = right
+myMergeBy order []      right   = right
-mergeBy order left    []      = left
+myMergeBy order left    []      = left
-mergeBy order (x::xs) (y::ys) =
+myMergeBy order (x::xs) (y::ys) =
   case order x y of
-       LT => x :: mergeBy order xs (y::ys)
+       LT => x :: myMergeBy order xs (y::ys)
-       _  => y :: mergeBy order (x::xs) ys
+       _  => y :: myMergeBy order (x::xs) ys

tests/idris2/total004/expected

@@ -15,6 +15,6 @@ Main> Main.size is total
 Main> Main.qsortBad is not terminating due to recursive path Main.qsortBad -> Main.qsortBad
 Main> Main.qsort is total
 Main> Main.qsort' is total
-Main> Main.sorted is total
+Main> Main.mySorted is total
-Main> Main.mergeBy is total
+Main> Main.myMergeBy is total
 Main> Bye for now!

tests/idris2/total004/input

@@ -13,6 +13,6 @@
 :total qsortBad
 :total qsort
 :total qsort'
-:total sorted
+:total mySorted
-:total mergeBy
+:total myMergeBy
 :q