add a script that cross-checks MRO of type-graph.txt with Rakudo

util/check-type-graph.pl6

@@ -0,0 +1,20 @@
+#!/usr/bin/env perl6
+use v6;
+use lib 'lib';
+use Perl6::TypeGraph;
+
+my $t = Perl6::TypeGraph.new-from-file('type-graph.txt');
+
+for $t.sorted  -> $type {
+    next if $type.name.index('Metamodel').defined || $type.name eq 'PROCESS';
+    next unless ::($type).^name eq $type.name;
+    next if $type.packagetype eq 'role';
+    my $got = ~$type.mro;
+    my $expected = ~::($type).^mro.map: *.^name;
+    say "$got   vs    $expected" if $got ne $expected;
+    CATCH {
+        default {
+            say "Trouble with $type: $_";
+        }
+    }
+}