Changeset 2680 for branches/release-41/t/52-ldap.t

Timestamp:

07/02/08 22:21:31 (17 months ago)

Author:

bchoate

Message:

Test updates to skip when appropriate.

Files:

• branches/release-41/t/52-ldap.t (modified) (2 diffs)

branches/release-41/t/52-ldap.t

@@ -4 +4 @@
 my $number = 15;
 
-use Test::More tests => 15;
+use Test::More;
 
+use lib 't/lib', 'extlib', 'lib', '../lib', '../extlib';
 use MT;
+use vars qw( $DB_DIR $T_CFG );
+use MT::Test;
 
-use vars qw( $DB_DIR $T_CFG );
-use lib 't/lib', 'extlib', 'lib', '../lib', '../extlib';
-use MT::Test qw(:db :data);
+my $mt = MT->instance or die MT->errstr;
+SKIP: {
+if ( !$mt->component('enterprise') ) {
+    plan skip_all => "Enterprise pack is not installed";
+} else {
+    plan tests => $number;
+}
 
-SKIP: {
 eval "require Net::LDAP;";
 if ($@) {
@@ -23 +29 @@
 {
 # @test create MT object
-my $mt = MT->new( Config => $T_CFG ) or die MT->errstr;
+MT::Test->import( qw(:db :data) );
+
 ok($mt);