From 7b48dbf9833dd0173f81b50164ac3dfbf08c9c41 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Tue, 18 Sep 2001 14:47:14 -0400
Subject: Re: [PATCH] t/op/crypt.t Message-Id: <20010918184714.I585@blackrider>

p4raw-id: //depot/perl@12076
---
 t/op/crypt.t | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 't')

diff --git a/t/op/crypt.t b/t/op/crypt.t
index 2619338b25..457be52f25 100644
--- a/t/op/crypt.t
+++ b/t/op/crypt.t
@@ -1,6 +1,23 @@
-use Test::More tests => 2;
+#!./perl -Tw
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = ('../lib');
+}
+
 use Config;
 
+BEGIN {
+    require Test::More;
+
+    if( !$Config{d_crypt} ) {
+        Test::More->import('skip_all');
+    }
+    else {
+        Test::More->import(tests => 2);
+    }
+}
+
 # Can't assume too much about the string returned by crypt(),
 # and about how many bytes of the encrypted (really, hashed)
 # string matter.
-- 
cgit v1.2.1