@testset "$TEST $G" begin

g10 = StarGraph(10)
c = core_periphery_deg(g10)
@test degree(g10,1) == 9
@test c[1] == 1
for i=2:10
    @test c[i] == 2
end

g10 = StarGraph(10)
g10 = blockdiag(g10,g10)
add_edge!(g10, 1, 11)
c = core_periphery_deg(g10)
@test c[1] == 1
@test c[11] == 1
for i=2:10
    @test c[i] == 2
end
for i=12:20
    @test c[i] == 2
end

end # testset
