source: devel/pb-modules/t/Base.t @ 1077

Last change on this file since 1077 was 1077, checked in by bruno, 9 years ago

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

  • Increase number of tests for Base
File size: 1.3 KB
Line 
1#!/usr/bin/perl -w
2#
3# Tests ProjectBuilder::Base functions
4
5use strict;
6use Test::More;
7use ProjectBuilder::Base;
8
9my $nt = 0;
10my $test = {
11    # Full URI
12    "svn+ssh://account\@machine.sdom.tld:8080/path/to/file" => ["svn+ssh","account","machine.sdom.tld","8080","/path/to/file"],
13    # Partial URI
14    "http://machine2/path1/to/anotherfile" => ["http","","machine2","","/path1/to/anotherfile"],
15    };
16
17my ($scheme, $account, $host, $port, $path);
18foreach my $uri (keys %$test) {
19    ($scheme, $account, $host, $port, $path) = pb_get_uri($uri);
20
21    is($scheme, $test->{$uri}[0], "pb_get_uri Test protocol $uri");
22    $nt++;
23
24    is($account, $test->{$uri}[1], "pb_get_uri Test account $uri");
25    $nt++;
26   
27    is($host, $test->{$uri}[2], "pb_get_uri Test host $uri");
28    $nt++;
29   
30    is($port, $test->{$uri}[3], "pb_get_uri Test port $uri");
31    $nt++;
32   
33    is($path, $test->{$uri}[4], "pb_get_uri Test path $uri");
34    $nt++;
35}
36
37$ENV{'TMPDIR'} = "/tmp";
38pb_temp_init();
39like($ENV{'PBTMP'}, qr|/tmp/pb\.[0-9A-z]+|, "pb_temp_init Test");
40$nt++;
41
42my $content = "This is  content with TABs    and spaces and \ncarriage returns\n";
43open(FILE,"> $ENV{'PBTMP'}/test") || die "Unable to create temp file";
44print FILE $content;
45close(FILE);
46
47my $cnt = pb_get_content("$ENV{'PBTMP'}/test");
48is($cnt, $content, "pb_get_content Test");
49$nt++;
50
51done_testing($nt);
Note: See TracBrowser for help on using the repository browser.