1Test::Harness::Results(U3s)er Contributed Perl DocumentatTieosnt::Harness::Results(3)
2
3
4
6 Test::Harness::Results - object for tracking results from a single test
7 file
8
10 One Test::Harness::Results object represents the results from one test
11 file getting analyzed.
12
14 new()
15 my $results = new Test::Harness::Results;
16
17 Create a test point object. Typically, however, you'll not create one
18 yourself, but access a Results object returned to you by
19 Test::Harness::Results.
20
22 The following data points are defined:
23
24 passing true if the whole test is considered a pass
25 (or skipped), false if its a failure
26
27 exit the exit code of the test run, if from a file
28 wait the wait code of the test run, if from a file
29
30 max total tests which should have been run
31 seen total tests actually seen
32 skip_all if the whole test was skipped, this will
33 contain the reason.
34
35 ok number of tests which passed
36 (including todo and skips)
37
38 todo number of todo tests seen
39 bonus number of todo tests which
40 unexpectedly passed
41
42 skip number of tests skipped
43
44 So a successful test should have max == seen == ok.
45
46 There is one final item, the details.
47
48 details an array ref reporting the result of
49 each test looks like this:
50
51 $results{details}[$test_num - 1] =
52 { ok => is the test considered ok?
53 actual_ok => did it literally say 'ok'?
54 name => name of the test (if any)
55 diagnostics => test diagnostics (if any)
56 type => 'skip' or 'todo' (if any)
57 reason => reason for the above (if any)
58 };
59
60 Element 0 of the details is test #1. I tried it with element 1 being
61 #1 and 0 being empty, this is less awkward.
62
63 Each of the following fields has a getter and setter method.
64
65 • wait
66
67 • exit
68
70 Hey! The above document had some coding errors, which are explained
71 below:
72
73 Around line 83:
74 =over without closing =back
75
76
77
78perl v5.36.0 2023-01-20 Test::Harness::Results(3)