Closed nojaf closed 1 year ago
[<Test>] let ``horsing around`` () = let A = """ namespace Fantomas.Core [<RequireQualifiedAccess>] module RangeHelpers = let mkStartEndRange (size: int) (r: range) : range * range = () let mergeRanges (ranges: range list) : range option = () module RangePatterns = let (|StartEndRange|) (size: int) (range: range) = () let (|StartRange|) (size: int) (range: range) = () """ let B = """ module internal Fantomas.Core.Version open System.Reflection let fantomasVersion = "0.0.1" """ let files = [ "A.fs", A "B.fs", B ] let nodes = files |> List.map (fun (name, code) -> name, parseSourceCode(name, code)) |> List.toArray let graph = detectFileDependencies nodes printfn "Detected file dependencies:" graph |> Array.iter (fun (file, deps) -> printfn $"{file} -> %+A{deps}")
Detected file dependencies: A.fs -> [||] B.fs -> [|"A.fs"|]
This is no longer actionable.