Commit | Line | Data |
---|---|---|
19baa93c | 1 | #!perl -w |
2 | use strict; | |
3 | ||
4 | my $tb_version = `$^X -e "use Test::Builder; print Test::Builder->VERSION"`; | |
5 | if($tb_version == 2.0001 && $] <= 5.010_000) { | |
6 | require Test::More; | |
7 | Test::More::plan( skip_all => 'Test::Builder 2.00_01 has a problem' ); | |
8 | } | |
9 | else { | |
10 | require Mouse; | |
11 | require Test::More; | |
12 | Test::More::plan( tests => 1 ); | |
13 | Test::More::pass('loads Test::More after loading Mouse'); | |
14 | } | |
15 |