[<TestFixture>]
type TestFrom () =
    let mutable g = ListGraph (10) :> IGraph
    do
        g.AddEdge 0 1
        g.AddEdge 2 3
        g.AddEdge 1 2
        g.AddEdge 5 6

    [<Test>]
    member t.``From vertex: single vertex`` () =
        let f = fromVertice g 9
        Assert.AreEqual (List.sort f, [9])

    [<Test>]
    member t.``From vertex: one vertex`` () =
        let f = fromVertice g 5
        Assert.AreEqual (List.sort f, [5;6])

    [<Test>]
    member t.``From vertex: vertex sequence`` () =
        let f = fromVertice g 0
        Assert.AreEqual (List.sort f, [0;1;2;3])