Commit | Line | Data |
95bebf8c |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
ef29cd70 |
6 | use Test::More tests => 2; |
95bebf8c |
7 | |
ef29cd70 |
8 | use Class::C3; |
9 | use Class::C3::next; |
e861fe16 |
10 | |
11 | if ($] > 5.009_004) { |
12 | ok ($Class::C3::C3_IN_CORE, 'C3 in core'); |
13 | ok (!$Class::C3::C3_XS, 'Not using XS'); |
14 | diag "Fast C3 provided by this perl version $] in core" |
15 | unless $INC{'Devel/Hide.pm'}; |
16 | } |
17 | else { |
18 | ok (!$Class::C3::C3_IN_CORE, 'C3 not in core'); |
19 | |
20 | if (eval { require Class::C3::XS; Class::C3::XS->VERSION }) { |
21 | ok ($Class::C3::C3_XS, 'Using XS'); |
22 | diag "XS speedups available (via Class::C3::XS)" |
23 | unless $INC{'Devel/Hide.pm'}; |
24 | } |
25 | else { |
26 | ok (! $Class::C3::C3_XS, 'Not using XS'); |
27 | unless ($INC{'Devel/Hide.pm'}) { |
28 | diag "NO XS speedups - YOUR CODE WILL BE VERY SLOW. Consider installing Class::C3::XS"; |
29 | sleep 3 if -t *STDIN or -t *STDERR; |
30 | } |
31 | } |
32 | } |