The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Test2::Harness::TestFile - Abstraction of a test file and its meta-data.

DESCRIPTION

When Test2::Harness finds test files to run each one gets an instance of this class to represent it. This class will scan test files to find important meta data (binary vs script, inline harness directives, etc). The meta-data this class can find helps yath decide when and how to run the test.

If you write a custom Test2::Harness::Finder or use some Test2::Harness::Plugin callbacks you may have to use, or even construct instances of this class.

SYNOPSIS

    use Test2::Harness::TestFile;

    my $tf = Test2::Harness::TestFile->new(file => "path/to/file.t");

    # For an example 1, 1 works, but normally they are job_name and run_id.
    my $meta_data = $tf->queue_item(1, 1);

ATTRIBUTES

$filename = $tf->file

Set during object construction, and cannot be changed.

$bool = $tf->is_binary

Automatically set during construction, cannot be changed or set manually.

$bool = $tf->non_perl

Automatically set during construction, cannot be changed or set manually.

$string = $tf->comment
$tf->set_comment($string)

Defaults to '#' can be set during construction, or changed if needed.

This is used to tell yath what character(s) are used to denote a comment. This is necessary for finding harness directives. In perl the '#' character is used, and that is the default value. This is here to support non-perl tests.

$class = $tf->job_class
$tf->set_job_class($class)

Default it undef (let the runner pick). You can change this if you want the test to run with a custom job subclass.

$arrayref = $tf->queue_args
$tf->set_queue_args(\@ARGS)

Key/Value pairs to append to the queue_item() data.

METHODS

$cat = $tf->check_category()
$tf->set_category($cat)

This is how you find the category for a file. You canuse set_category() to assign/override a category.

$dur = $tf->check_duration()
$tf->set_duration($dur)

Get the duration of the test file ('LONG', 'MEDIUM', 'SHORT'). You can override with set_duration().

$stage = $tf->check_stage()
$tf->set_stage($stage)

Get the preload stage the test file thinks it should be run in. You can override with set_stage().

$bool = $tf->check_feature($name)

This checks for the # HARNESS-NO-NAME or # HARNESS-USE-NAME or # HARNESS-YES-NAME directives. NO will result in a false boolean. YES and USE will result in a ture boolean. If no directive is found then undef will be returned.

$arrayref = $tf->conflicts_list()

Get a list of conflict markers.

$seconds = $tf->event_timeout()

If they test specifies an event timeout this will return it.

%headers = $tf->headers()

This returns the header data from the test file.

$bool = $tf->is_executable()

Check if the test file is executable or not.

$data = $tf->meta($key)

Get the meta-data for the specific key.

$seconds = $tf->post_exit_timeout()

If the test file has a custom post-exit timeout, this will return it.

$hashref = $tf->queue_item($job_name, $run_id)

This returns the data used to add the test file to the runner queue.

$int = $tf->rank()

Returns an integer value used to sort tests into an efficient run order.

$path = $tf->relative()

Relative path to the test file.

$tf->scan()

Scan the file and populate the header data. Return nothing, takes no arguments. Automatically run by things that require the scan data. Results are cached.

$tf->set_smoke($bool)

Set smoke status. Smoke tests go to the front of the line when tests are sorted.

$hashref = $tf->shbang()

Get data gathered from parsing the tests shbang line.

$arrayref = $tf->switches()

A list of switches passed to perl, usually from the shbang line.

SOURCE

The source code repository for Test2-Harness can be found at http://github.com/Test-More/Test2-Harness/.

MAINTAINERS

Chad Granum <exodist@cpan.org>

AUTHORS

Chad Granum <exodist@cpan.org>

COPYRIGHT

Copyright 2020 Chad Granum <exodist7@gmail.com>.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://dev.perl.org/licenses/