Commit | Line | Data |
---|---|---|
a6c2ede0 | 1 | BEGIN { |
2 | chdir 't' if -d 't'; | |
3 | @INC = '../lib'; | |
4 | } | |
5 | ||
6 | print "1..3\n"; | |
7 | ||
8 | use autouse 'Math::Complex' => qw(cplx); | |
9 | use autouse 'Math::Trig' => qw(Math::Trig::deg2grad($;$)); | |
10 | ||
11 | print "ok 1\n"; | |
12 | ||
13 | print "not " unless sqrt(cplx(-1)) == cplx(0, 1); | |
14 | print "ok 2\n"; | |
15 | ||
16 | print "not " unless Math::Trig::deg2grad(360, 1) == 400; | |
17 | print "ok 3\n"; | |
18 |