Subversion Repositories DevTools

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4421 dpurdie 1 
########################################################################
2 
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
3 
#
4 
# Module name   : Test_RelPath.pl
5 
# Module type   : Makefile system
6 
# Compiler(s)   : Perl
7 
# Environment(s): jats
8 
#
9 
# Description   : Test the FileUtils:RelPath function
10 
#
11 
# Usage:
12 
#
13 
# Version   Who      Date        Description
14 
#
15 
#......................................................................#
16 
 
17 
require 5.008_002;
18 
use strict;
19 
use warnings;
20 
 
21 
use Pod::Usage;
22 
use Getopt::Long;
23 
 
24 
use JatsError;
25 
use FileUtils;
26 
 
27 
my %results;
28 
my $testNum = 0;
29 
my $failCount= 0;
30 
 
31 
#   Data format
32 
#   [0]         - Target
33 
#   [1]         - Here (starting Location)
34 
#   [2]         - Expected Result
35 
#
36 
my @testData = (
37 
    ['/aaaa/bbbb/cccc'          , '/aaaa/bbbb/cccc/dddd/eeee', '../..'],
38 
    ['/aaaa/bbbb/cccc'          , '/aaaa/bbbb/cccc/dddd'     , '..'],
39 
    ['/aaaa/bbbb/cccc/dddd/eeee', '/aaaa/bbbb/cccc/dddd/eeee', '.'],
40 
    ['/aaaa/bbbb/cccc/dddd'     , '/aaaa/bbbb/cccc',         , 'dddd'],
41 
    ['/aaaa/bbbb/cccc/dddd/eeee', '/aaaa/bbbb/cccc',         , 'dddd/eeee'],
42 
    ['/aaaa/bbbb/cccc/dddd/eeee', '/aaaa/bbbb/cccc/ffff/gggg', '../../dddd/eeee'],
43 
    ['/aaaa/bbbb/cccc/dddd/eeee', '/zzzz/yyyy/xxxx/wwww'     , '../../../../aaaa/bbbb/cccc/dddd/eeee'],
44 
  );
45 
 
46 
 
47 
for my $subtest( @testData)
48 
{
49 
    $testNum++;
50 
    my $result = RelPath( $subtest->[0], $subtest->[1] );
51 
    if ($result ne $subtest->[2])
52 
    {
53 
        $results{$testNum} = $result;
54 
        $failCount++;
55 
    }
56 
}
57 
if (scalar keys %results)
58 
{
59 
    DebugDumpData("Failed Tests", \%results);
60 
}
61 
Message ("RelPath Test: $testNum, Failed: $failCount");
62 
Error("Failed Tests Detected")
63 
    if $failCount;