weird thing

02-type-graph.t

use v6;
use Test;

use Perl6::TypeGraph;

plan *;

my $tg = Perl6::TypeGraph.new-from-file("test-type-graph.txt");

say $tg.types.keys;

{ # inhteritance
    is $tg.types<C>.super[0].name, "Any";
}

test-type-graph.txt

[Metamodel]
# metamodel
class C
class C::A
class C::B           is C
class C::C           is C is C::A

[Domain-specific]
# domain
class Attribute

[Basic]
# basic
enum  Bool

[Composite]
# composite
class Seq

[Exceptions]
# exceptions
role  R
role  R::A
role  R::B           does R
role  R::C           does R does R::A

[Core]
# core
module Test