Changeset 1077 in ProjectBuilder

Timestamp:

Jul 26, 2010, 1:18:52 AM (14 years ago)

Author:

Bruno Cornec

Message:

r3961@localhost: bruno | 2010-07-22 22:39:23 +0200

• Increase number of tests for Base

Location:

devel/pb-modules

Files:

• lib/ProjectBuilder/Base.pm (modified) (1 diff)
• t/Base.t (modified) (1 diff)

devel/pb-modules/lib/ProjectBuilder/Base.pm

@@ -402 +402 @@
 
 This function checks that the commands needed for the subsystem are indeed present. 
-The required comands are passed as a coma separated string as first parameter.
-The optional comands are passed as a coma separated string as second parameter.
+The required commands are passed as a coma separated string as first parameter.
+The optional commands are passed as a coma separated string as second parameter.
 
 =cut

devel/pb-modules/t/Base.t

@@ -8 +8 @@
 
 my $nt = 0;
+my $test = {
+    # Full URI
+    "svn+ssh://account\@machine.sdom.tld:8080/path/to/file" => ["svn+ssh","account","machine.sdom.tld","8080","/path/to/file"],
+    # Partial URI
+    "http://machine2/path1/to/anotherfile" => ["http","","machine2","","/path1/to/anotherfile"],
+    };
 
-my $uri = "svn+ssh://account\@machine.sdom.tld:8080/path/to/file";
-my ($scheme, $account, $host, $port, $path) = pb_get_uri($uri);
+my ($scheme, $account, $host, $port, $path);
+foreach my $uri (keys %$test) {
+    ($scheme, $account, $host, $port, $path) = pb_get_uri($uri);
 
-is($scheme, "svn+ssh", "pb_get_uri Test protocol");
+    is($scheme, $test->{$uri}[0], "pb_get_uri Test protocol $uri");
+    $nt++;
+
+    is($account, $test->{$uri}[1], "pb_get_uri Test account $uri");
+    $nt++;
+    
+    is($host, $test->{$uri}[2], "pb_get_uri Test host $uri");
+    $nt++;
+    
+    is($port, $test->{$uri}[3], "pb_get_uri Test port $uri");
+    $nt++;
+    
+    is($path, $test->{$uri}[4], "pb_get_uri Test path $uri");
+    $nt++;
+}
+
+$ENV{'TMPDIR'} = "/tmp";
+pb_temp_init();
+like($ENV{'PBTMP'}, qr|/tmp/pb\.[0-9A-z]+|, "pb_temp_init Test");
 $nt++;
 
-is($account, "account", "pb_get_uri Test account");
-$nt++;
+my $content = "This is  content with TABs    and spaces and \ncarriage returns\n";
+open(FILE,"> $ENV{'PBTMP'}/test") || die "Unable to create temp file";
+print FILE $content;
+close(FILE);
 
-is($host, "machine.sdom.tld", "pb_get_uri Test host");
-$nt++;
-
-is($port, "8080", "pb_get_uri Test port");
-$nt++;
-
-is($path, "/path/to/file", "pb_get_uri Test path");
+my $cnt = pb_get_content("$ENV{'PBTMP'}/test");
+is($cnt, $content, "pb_get_content Test");
 $nt++;