#!/bin/sh
repocop-sqlite -function symlink_canonpath.pl "$REPOCOP_TEST_TMPDIR/tmp.db" <<EOSQL
attach database '$REPOCOP_TEST_DBDIR/rpm.db' as rpm;
CREATE TEMPORARY TABLE rpm_symlinks (pkgid TEXT, symlink TEXT, symvalue TEXT);
INSERT INTO rpm_symlinks select pkgid, filename, symlink_canonpath(FILENAME,FILELINKTO) FROM rpm_files WHERE filemode & 61440 = 40960;
.mode tabs
.output $REPOCOP_TEST_TMPDIR/msg
select pkgid, symlink from rpm_symlinks where symlink = symvalue;
DROP TABLE rpm_symlinks;
EOSQL
perl -ne 'chomp;@a=split /\t/;system("repocop-test-fail", "-k", $a[0], "broken sybolic link $a[1] points to itself.")' $REPOCOP_TEST_TMPDIR/msg
rm "$REPOCOP_TEST_TMPDIR/"*
