Skip to content

Commit 2abff48

Browse files
committed
Fix xt/type-graph.t test, close #3001
* Telemetry module is needed to use telemetry related types * Types whitout 'mro' method support has been whitelisted * UInt was missing * X::Scheduler::CueInNaNSeconds mro fixed
1 parent 52945a5 commit 2abff48

File tree

2 files changed

+5
-2
lines changed

2 files changed

+5
-2
lines changed

type-graph.txt

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -133,6 +133,7 @@ class Int is Cool does Real
133133
class Num is Cool does Real
134134
class Complex is Cool does Numeric
135135
class int is Int
136+
class UInt
136137
class atomicint is Int
137138

138139
[Basic]
@@ -355,7 +356,7 @@ role X::Temporal is Exception
355356
class X::Temporal::InvalidFormat does X::Temporal
356357
class X::DateTime::InvalidDeltaUnit does X::Temporal
357358
class X::DateTime::TimezoneClash does X::Temporal
358-
class X::Scheduler::CueInNaNSeconds
359+
class X::Scheduler::CueInNaNSeconds is Exception
359360

360361
[Exceptions]
361362
# Exceptions: Composition

xt/type-graph.t

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,13 +4,15 @@ use v6;
44

55
use Test;
66
use Perl6::TypeGraph;
7+
use Telemetry;
78

89
my $t = Perl6::TypeGraph.new-from-file('type-graph.txt');
910

1011
for $t.sorted -> $type {
1112
next if $type.name.index('Metamodel').defined || $type.name eq 'PROCESS';
1213
next if $type.packagetype eq 'role'|'module';
13-
next if $type.name eq 'Failure';
14+
# these types does not support mro => whitelisted
15+
next if $type.name eq any(<Failure MOP Routine::WrapHandle Encoding UInt>);
1416
try {
1517
my $got = ~$type.mro;
1618
my $expected = ~::($type).^mro.map: *.^name;

0 commit comments

Comments
 (0)