pax_global_header00006660000000000000000000000064113521752070014515gustar00rootroot0000000000000052 comment=b06e806b0baa07b0f5bc816e359a77779b4f3031 repocop-unittest-rpm-recursive-symlink-0.07/000075500000000000000000000000001135217520700212525ustar00rootroot00000000000000repocop-unittest-rpm-recursive-symlink-0.07/.gear/000075500000000000000000000000001135217520700222465ustar00rootroot00000000000000repocop-unittest-rpm-recursive-symlink-0.07/.gear/rules000064400000000000000000000000071135217520700233200ustar00rootroot00000000000000tar: . repocop-unittest-rpm-recursive-symlink-0.07/repocop-unittest-rpm-recursive-symlink.spec000064400000000000000000000032361135217520700317430ustar00rootroot00000000000000%define testname rpm-recursive-symlink Name: repocop-unittest-%testname Version: 0.07 Release: alt1 BuildArch: noarch Packager: Igor Yu. Vlasenko Summary: repocop test for recurrent symlinks. Group: Development/Other License: GPL or Artistic Url: http://repocop.altlinux.org Requires: repocop > 0.43 Requires: sqlite3 Source: %name-%version.tar %description %summary. %prep %setup %build cat > %testname.posttest <<'EOF' #!/bin/sh repocop-sqlite -function symlink_canonpath.pl "$REPOCOP_TEST_TMPDIR/tmp.db" < 0.07-alt1 - added external function for repocop-sqlite * Thu Feb 25 2010 Igor Vlasenko 0.06-alt1 - added symlink value in canonical paths. - First build for Sisyphus. repocop-unittest-rpm-recursive-symlink-0.07/symlink_canonpath.pl000064400000000000000000000006341135217520700253330ustar00rootroot00000000000000#!/usr/bin/perl -w push @USERFUNC, { NAME => 'symlink_canonpath', ARGS => 2, FUNC => \&symlink_canonpath }; #./dd/./.././//.../ sub symlink_canonpath { my ($dir,$value)=@_; $dir=~s,[^/]+$,,; my $path=$dir.'/'.$value; my $found=1; while ($found) { $found=$path=~s,//+,/,g; $found+=$path=~s,/\./,/,g; $found+=$path=~s,[^/]+/\.\./,,; } return $path; } 1;