From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 May 2001 13:42:55 +0000 (+0000)
Subject: Adding the new test would be swell.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6c2ede0a42f413a8ac86b35e071133aeba40976;p=p5sagit%2Fp5-mst-13.2.git

Adding the new test would be swell.

p4raw-id: //depot/perl@10245
---

diff --git a/t/pragma/autouse.t b/t/pragma/autouse.t
new file mode 100644
index 0000000..dbd4408
--- /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";
+