source: MondoRescue/branches/3.3/MondoRescue/t/01-read-all-link.t@ 3795

#!/usr/bin/perl -w
use File::Temp qw/ tempdir /;
use File::Copy;
use MondoRescue::File;
use strict;

# Create the structure for the tests
my $bd = tempdir( 
    #CLEANUP => 1 
    );

# Create directory structure
chdir $bd || die "Unable to chdir to $bd";
mkdir "usr",0755 || die "$!";
mkdir "usr/bin",0755 || die "$!";
mkdir "usr/lib",0755 || die "$!";
mkdir "var",0755 || die "$!";
mkdir "var/spool",0755 || die "$!";
mkdir "var/spool/mail",0755 || die "$!";
mkdir "var/lib",0755 || die "$!";

# Copy some files in it
copy "/usr/bin/perl","usr/bin" || die "$!";
chmod 0755,"usr/bin/perl";
foreach my $f (<"/lib/libc.so.[0-9]*">) {
    copy "$f","usr/lib" || die "$!";
}

# Create links on files
chdir "$bd/usr/bin" || die "$!";
symlink "perl","toto" || die "$!";          # in same dir
chdir "$bd/var/spool/" || die "$!";
symlink "../../usr/bin/perl","toto" || die "$!";    # in another dir relatively
chdir "$bd/var" || die "$!";
symlink "$bd/usr/bin/perl","truc" || die "$!";      # in another dir absolutely

# Create links on dirs
chdir "$bd/var/spool" || die "$!";
symlink "mail","titi" || die "$!";          # in same dir
chdir "$bd/var/lib" || die "$!";
symlink "../spool/mail","titi" || die "$!";     # in another dir relatively
chdir "$bd/var" || die "$!";
symlink "$bd/var/spool/mail","tutu" || die "$!";        # in another dir absolutely

print "Temporary dir: $bd\n";

# Now try to see if we get the right links
my $h = mr_file_read_all_link(
    "$bd/usr/bin/toto",
    "$bd/var/spool/toto",
    "$bd/var/truc",
    "$bd/var/spool/titi",
    "$bd/var/lib/titi",
    "$bd/var/tutu"
    );

eval {
    require Test;
    Test->import();
};
if ($@) {
        require Test::Simple;
    Test::Simple->import();
}
plan(tests => 12);

    # Got, expected, comment
myis($h->{"$bd/usr/bin/toto"}->{"$bd/usr/bin/toto"}, 1, "File link in same dir to itself");
myis($h->{"$bd/usr/bin/toto"}->{"$bd/usr/bin/perl"}, 1, "File link in same dir to link");
myis($h->{"$bd/var/truc"}->{"$bd/var/truc"}, 1, "File link in another absolute dir to itself");
myis($h->{"$bd/var/truc"}->{"$bd/usr/bin/perl"}, 1, "File link in another absolute dir to link");
myis($h->{"$bd/var/spool/toto"}->{"$bd/var/spool/toto"}, 1, "File link in another relative dir to itself");
myis($h->{"$bd/var/spool/toto"}->{"$bd/usr/bin/perl"}, 1, "File link in another relative dir to link");
myis($h->{"$bd/var/spool/titi"}->{"$bd/var/spool/titi"}, 1, "Directory link in same dir to itself");
myis($h->{"$bd/var/spool/titi"}->{"$bd/var/spool/mail"}, 1, "Directory link in same dir to link");
myis($h->{"$bd/var/lib/titi"}->{"$bd/var/lib/titi"}, 1, "Directory link in another relative dir to itself");
myis($h->{"$bd/var/lib/titi"}->{"$bd/var/spool/mail"}, 1, "Directory link in another relative dir to link");
myis($h->{"$bd/var/tutu"}->{"$bd/var/tutu"}, 1, "Directory link in another absolute dir to itself");
myis($h->{"$bd/var/tutu"}->{"$bd/var/spool/mail"}, 1, "Directory link in another absolute dir to link");
chdir "/tmp";
exit(0);

sub myis {

my $p1 = shift;
my $p2 = shift;
my $p3 = shift;
print "# test $p3\n";
return(ok($p1,$p2));
}