From 9da6daf8e79850c56505a39bd1473989dacc900c Mon Sep 17 00:00:00 2001 From: Raphael Hertzog Date: Thu, 13 Dec 2007 19:22:38 +0100 Subject: [PATCH] Add non-regression tests for Dpkg::Path --- ChangeLog | 6 ++++++ scripts/Makefile.am | 3 ++- scripts/t/500_Dpkg_Path.t | 45 +++++++++++++++++++++++++++++++++++++++ 3 files changed, 53 insertions(+), 1 deletion(-) create mode 100644 scripts/t/500_Dpkg_Path.t diff --git a/ChangeLog b/ChangeLog index a0124309..e37452a8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2007-12-13 Raphael Hertzog + + * scripts/t/500_Dpkg_Path.t, scripts/Makefile.am: Add new + non-regression tests for functions provided by the Dpkg::Path + module. + 2007-12-12 Guillem Jover * scripts/dpkg-genchanges.pl: Fix typo (syserror() -> syserr()). diff --git a/scripts/Makefile.am b/scripts/Makefile.am index 4a7ca23c..f52457ed 100644 --- a/scripts/Makefile.am +++ b/scripts/Makefile.am @@ -68,7 +68,8 @@ EXTRA_DIST = \ t/200_Dpkg_Shlibs/objdump.dbd-pg \ t/200_Dpkg_Shlibs/objdump.ls \ t/300_Dpkg_BuildOptions.t \ - t/400_Dpkg_Deps.t + t/400_Dpkg_Deps.t \ + t/500_Dpkg_Path.t CLEANFILES = \ $(bin_SCRIPTS) $(sbin_SCRIPTS) $(changelog_SCRIPTS) \ diff --git a/scripts/t/500_Dpkg_Path.t b/scripts/t/500_Dpkg_Path.t new file mode 100644 index 00000000..0d20edd3 --- /dev/null +++ b/scripts/t/500_Dpkg_Path.t @@ -0,0 +1,45 @@ +# -*- mode: cperl;-*- + +use Test::More tests => 16; + +use strict; +use warnings; + +use_ok('Dpkg::Path', 'canonpath', 'resolve_symlink', + 'check_files_are_the_same', 'get_pkg_root_dir', + 'guess_pkg_root_dir', 'relative_to_pkg_root'); + +mkdir "t.tmp/a"; +mkdir "t.tmp/a/b"; +mkdir "t.tmp/a/b/c"; +mkdir "t.tmp/a/DEBIAN"; +mkdir "t.tmp/debian"; +mkdir "t.tmp/debian/a"; +mkdir "t.tmp/debian/a/b"; +mkdir "t.tmp/debian/a/b/c"; +symlink "a/b/c", "t.tmp/cbis"; +symlink "/this/does/not/exist", "t.tmp/tmp"; +symlink ".", "t.tmp/here"; + +is(canonpath("t.tmp/./a///b/c"), "t.tmp/a/b/c", "canonpath basic test"); +is(canonpath("t.tmp/a/b/../../a/b/c"), "t.tmp/a/b/c", "canonpath and .."); +is(canonpath("t.tmp/a/b/c/../../"), "t.tmp/a", "canonpath .. at end"); +is(canonpath("t.tmp/cbis/../"), "t.tmp/cbis/..", "canonpath .. after symlink"); + +is(resolve_symlink("t.tmp/here/cbis"), "t.tmp/here/a/b/c", "resolve_symlink"); +is(resolve_symlink("t.tmp/tmp"), "/this/does/not/exist", "resolve_symlink absolute"); +is(resolve_symlink("t.tmp/here"), "t.tmp", "resolve_symlink ."); + +ok(!check_files_are_the_same("t.tmp/here", "t.tmp"), "Symlink is not the same!"); +ok(check_files_are_the_same("t.tmp/here/a", "t.tmp/a"), "Same directory"); + +is(get_pkg_root_dir("t.tmp/a/b/c"), "t.tmp/a", "get_pkg_root_dir"); +is(guess_pkg_root_dir("t.tmp/a/b/c"), "t.tmp/a", "guess_pkg_root_dir"); +is(relative_to_pkg_root("t.tmp/a/b/c"), "b/c", "relative_to_pkg_root"); + +chdir("t.tmp"); + +ok(!defined(get_pkg_root_dir("debian/a/b/c")), "get_pkg_root_dir undef"); +ok(!defined(relative_to_pkg_root("debian/a/b/c")), "relative_to_pkg_root"); +is(guess_pkg_root_dir("debian/a/b/c"), "debian/a", "guess_pkg_root_dir fallback"); + -- 2.39.5