00dani/stow
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Make shared library tests match real-world scenarios.

Browse source 
Typically, libfoo.so.X.Y.Z is the file, and libfoo.so is the symlink
which points to it.
This commit is contained in:
Adam Spiers 2012-02-18 12:28:00 +00:00
parent 9c6faebb95
commit 1847b36e18
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
t/stow.t
View file

@ -320,8 +320,8 @@ ok(
$stow = new_Stow(); $stow = new_Stow();
make_dir('../stow/pkg12/lib12/'); make_dir('../stow/pkg12/lib12/');
make_file('../stow/pkg12/lib12/lib.so'); make_file('../stow/pkg12/lib12/lib.so.1');
make_link('../stow/pkg12/lib12/lib.so.1','lib.so'); make_link('../stow/pkg12/lib12/lib.so', 'lib.so.1');
make_dir('lib12/'); make_dir('lib12/');
@ -329,7 +329,8 @@ $stow->plan_stow('pkg12');
$stow->process_tasks(); $stow->process_tasks();
ok( ok(
$stow->get_conflict_count == 0 && $stow->get_conflict_count == 0 &&
readlink('lib12/lib.so.1') eq '../../stow/pkg12/lib12/lib.so.1' readlink('lib12/lib.so.1') eq '../../stow/pkg12/lib12/lib.so.1' &&
readlink('lib12/lib.so' ) eq '../../stow/pkg12/lib12/lib.so'
=> 'stow links to libraries' => 'stow links to libraries'
); );
@ -339,20 +340,22 @@ ok(
$stow = new_Stow(); $stow = new_Stow();
make_dir('../stow/pkg13a/lib13/'); make_dir('../stow/pkg13a/lib13/');
make_file('../stow/pkg13a/lib13/liba.so'); make_file('../stow/pkg13a/lib13/liba.so.1');
make_link('../stow/pkg13a/lib13/liba.so.1', 'liba.so'); make_link('../stow/pkg13a/lib13/liba.so', 'liba.so.1');
make_link('lib13','../stow/pkg13a/lib13'); make_link('lib13','../stow/pkg13a/lib13');
make_dir('../stow/pkg13b/lib13/'); make_dir('../stow/pkg13b/lib13/');
make_file('../stow/pkg13b/lib13/libb.so'); make_file('../stow/pkg13b/lib13/libb.so.1');
make_link('../stow/pkg13b/lib13/libb.so.1', 'libb.so'); make_link('../stow/pkg13b/lib13/libb.so', 'libb.so.1');
$stow->plan_stow('pkg13b'); $stow->plan_stow('pkg13b');
$stow->process_tasks(); $stow->process_tasks();
ok( ok(
$stow->get_conflict_count == 0 && $stow->get_conflict_count == 0 &&
readlink('lib13/liba.so.1') eq '../../stow/pkg13a/lib13/liba.so.1' && readlink('lib13/liba.so.1') eq '../../stow/pkg13a/lib13/liba.so.1' &&
readlink('lib13/libb.so.1') eq '../../stow/pkg13b/lib13/libb.so.1' readlink('lib13/liba.so' ) eq '../../stow/pkg13a/lib13/liba.so' &&
readlink('lib13/libb.so.1') eq '../../stow/pkg13b/lib13/libb.so.1' &&
readlink('lib13/libb.so' ) eq '../../stow/pkg13b/lib13/libb.so'
=> 'unfolding to stow links to libraries' => 'unfolding to stow links to libraries'
); );