1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
use Test2::V0 -no_srand => 1;
use Test::Script ();
is(
\@Test::Script::EXPORT,
bag {
item $_ for qw(
script_compiles
script_compiles_ok
script_fails
script_runs
script_stdout_is
script_stdout_isnt
script_stdout_like
script_stdout_unlike
script_stderr_is
script_stderr_isnt
script_stderr_like
script_stderr_unlike
program_fails
program_runs
program_stdout_is
program_stdout_isnt
program_stdout_like
program_stdout_unlike
program_stderr_is
program_stderr_isnt
program_stderr_like
program_stderr_unlike
);
etc;
},
'the list of exports contains at least the functions that was defined when this test was created',
);
not_imported_ok(qw(
script_compiles
script_compiles_ok
script_fails
script_runs
script_stdout_is
script_stdout_isnt
script_stdout_like
script_stdout_unlike
script_stderr_is
script_stderr_isnt
script_stderr_like
script_stderr_unlike
program_fails
program_runs
program_stdout_is
program_stdout_isnt
program_stdout_like
program_stdout_unlike
program_stderr_is
program_stderr_isnt
program_stderr_like
program_stderr_unlike
),
);
Test::Script->import('script_compiles', 'script_runs');
imported_ok('script_compiles','script_runs');
not_imported_ok(qw(
script_compiles_ok
script_fails
script_stdout_is
script_stdout_isnt
script_stdout_like
script_stdout_unlike
script_stderr_is
script_stderr_isnt
script_stderr_like
script_stderr_unlike
program_fails
program_runs
program_stdout_is
program_stdout_isnt
program_stdout_like
program_stdout_unlike
program_stderr_is
program_stderr_isnt
program_stderr_like
program_stderr_unlike
),
);
done_testing;
|
