This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Adding the new test would be swell.
[perl5.git] / t / pragma / autouse.t
CommitLineData
a6c2ede0
JH
1BEGIN {
2 chdir 't' if -d 't';
3 @INC = '../lib';
4}
5
6print "1..3\n";
7
8use autouse 'Math::Complex' => qw(cplx);
9use autouse 'Math::Trig' => qw(Math::Trig::deg2grad($;$));
10
11print "ok 1\n";
12
13print "not " unless sqrt(cplx(-1)) == cplx(0, 1);
14print "ok 2\n";
15
16print "not " unless Math::Trig::deg2grad(360, 1) == 400;
17print "ok 3\n";
18