Item630: Added unit test

git-svn-id: http://svn.foswiki.org/trunk@2664 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

UnitTestContrib/test/unit/ExtenderTests.pm

@@ -0,0 +1,75 @@
+package ExtenderTests;
+
+use strict;
+
+use base qw(FoswikiTestCase);
+
+use Error qw( :try );
+use File::Temp;
+
+# Establish where we are
+my @path = ( 'tools', 'extender.pl' );
+my $wd = Cwd::cwd();
+$wd =~ /^(.*)test.unit$/;    # untaint
+unshift( @path, $1 ) if $1;
+my $script = File::Spec->catfile(@path);
+chdir $1;                    # extender.pl needs this
+
+unless ( my $return = do $script ) {
+    my $message = <<MESSAGE;
+************************************************************
+Could not load $script
+MESSAGE
+
+    if ($@) {
+        $message .= "There was a compile error: $@\n";
+    }
+    elsif ( defined $return ) {
+        $message .= "There was a file error: $!\n";
+    }
+    else {
+        $message .= "An unspecified error occurred\n";
+    }
+    $message .= <<MESSAGE;
+(if this is a TWiki release prior to 4.2, you can download this
+ file from: http://twiki.org/cgi-bin/view/Codev/ExtenderScript
+ and place it in
+ $wd/tools
+ Create the directory if necessary).
+************************************************************
+MESSAGE
+    die $message;    # Propagate
+}
+chdir $wd;           # Return after loading extender.pl
+
+sub test_check_dep {
+    my ($this) = @_;
+
+    my ( $ok, $message );
+
+    # Check an external dependency
+    # 0, Module is type external, and cannot be automatically checked.
+    ( $ok, $message ) = Foswiki::Extender::check_dep(
+        { type => "external", name => "libpcap", version => "1.0.0" } );
+    $this->assert_equals( 0, $ok );
+    $this->assert_matches( qr/cannot be automatically checked/, $message );
+
+    # Check a normal instally dependency
+    # 1, Carp v1.03 loaded
+    ( $ok, $message ) =
+      Foswiki::Extender::check_dep( { type => "perl", name => "Carp" } );
+    $this->assert_equals( 1, $ok );
+    $this->assert_matches( qr/Carp v.* loaded/, $message );
+
+    # Check a normal installed dependency with an absurd high version number
+    # 0, HTML::Parser version 21.1 required--this is only version 1.05
+    ( $ok, $message ) = Foswiki::Extender::check_dep(
+        { type => "cpan", name => "HTML::Parser", version => "21.1" } );
+    $this->assert_equals( 0, $ok );
+    $this->assert_matches(
+        qr/HTML::Parser version 21\.1 required--this is only version/,
+        $message );
+
+}
+
+1;

core/tools/extender.pl

@@ -32,6 +32,7 @@ package Foswiki::Extender;
 use File::Temp;
 use File::Copy;
 use File::Path;
+use UNIVERSAL::require;
 
 no warnings 'redefine';