NAME¶

Test::Lintian::Harness -- Helper tools for t/runtests

SYNOPSIS¶

  use Test::Lintian::Harness qw(up_to_date);
  if (not up_to_date('some/build-stamp', 'some/dir')) {
    # do rebuild
  }

DESCRIPTION¶

Helper functions for t/runtests.

FUNCTIONS¶

skip_reaon(SKIP_FILE)

Return the (human-readable) reason for skipping a test by reading the SKIP_FILE.

runsystem(CMD...)

Run CMD via system, but throw an error if CMD does not return 0.

runsystem_ok(CMD...)

Run CMD via system, but throw an error if CMD does not return 0 or 1.

Returns 1 if CMD returned successfully (i.e. 0), otherwise 0.

This is mostly useful for running Lintian, which may return 0 or 1 on "success".

up_to_date(STAMPFILE, DIR[, RUNNER_TS])

Returns true if the mtime of STAMPFILE is greater than or equal to the mtime of all files in DIR. If RUNNER_TS is given, then the mtime of STAMPFILE must also be greater than or equal to the value of RUNNER_TS.

If STAMPFILE does not exist, this function returns false unconditionally.

check_test_depends(TESTDATA)

Given a TESTDATA with a dependency requirement, check whether the dependency requirement is satisfied. If satisfied, return "undef", otherwise return a (human-readable) string containing the missing dependencies.

read_test_desc(FILENAME)

Parse FILENAME as a test description file, do a quick validation of its contents and return it in a hashref. This is similar get_dsc_control (DSCFILE) except for the extra validation.

chdir_runcmd(DIR, CMD_REF[, LOG_FILE])

Fork, chdir to DIR and exec the command (plus arguments) contained in CMD_REF. The child process's STDERR is merged into its STDOUT. The STDOUT stream of the child process is either directed to the path denoted by LOG_FILE (if given and not "undef") or to /dev/null.

Returns 0 on success and non-zero otherwise.

is_tag_in_file(TAGNAME, FILENAME)

Returns true if FILENAME appears to be output from Lintian, which emitted TAGNAME from that run.

find_tests_for_tag(TAGNAME, GLOB_EXPR)

Find checks for the Lintian tag denoted by TAGNAME that match the GLOB_EXPR. Note that GLOB_EXPR must match only the "desc" file of the tests.

This function returns a list of the test-data for each of these tests.

generic_find_test_for_tag(TAGNAME, GLOB_EXPR[, TCODE])

Looks for TAGNAME in all files returned by using glob on GLOB_EXPR. TCODE is called for each file with TAGNAME as first argument and the filename as second argument. TCODE is expected to return a truth value that if the test should be run. If TCODE returns something that is not just a raw truth value (e.g. a hash ref), this will be taken as the "test", otherwise this sub will attempt to guess the test name from the file.

If TCODE is omitted, "is_tag_in_file(TAGNAME, FILENAME)" will be used.

Returns a list of values returned by TCODE or guessed test names (as per above)