diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-28 13:42:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-28 13:42:55 +0000 |
| commit | a6c2ede0a42f413a8ac86b35e071133aeba40976 (patch) | |
| tree | f6725f146c44650736cef2f59833d3179b9de5cc /t/pragma | |
| parent | 19e5ee1db4c6b9d33c404b5fc5df4d95a5fbfb8d (diff) | |
| download | perl-a6c2ede0a42f413a8ac86b35e071133aeba40976.tar.gz | |
Adding the new test would be swell.
p4raw-id: //depot/perl@10245
Diffstat (limited to 't/pragma')
| -rw-r--r-- | t/pragma/autouse.t | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/t/pragma/autouse.t b/t/pragma/autouse.t new file mode 100644 index 0000000000..dbd44086fa --- /dev/null +++ b/t/pragma/autouse.t @@ -0,0 +1,18 @@ +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; +} + +print "1..3\n"; + +use autouse 'Math::Complex' => qw(cplx); +use autouse 'Math::Trig' => qw(Math::Trig::deg2grad($;$)); + +print "ok 1\n"; + +print "not " unless sqrt(cplx(-1)) == cplx(0, 1); +print "ok 2\n"; + +print "not " unless Math::Trig::deg2grad(360, 1) == 400; +print "ok 3\n"; + |