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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
# Copyright (c) 2009 by David Golden. All rights reserved.
# Licensed under Apache License, Version 2.0 (the "License").
# You may not use this file except in compliance with the License.
# A copy of the License was distributed with this file or you may obtain a
# copy of the License from http://www.apache.org/licenses/LICENSE-2.0
use strict;
use warnings;
use lib '.';
select STDERR;
$|++;
select STDOUT;
$|++;
use Test::More;
use Test::Builder::Tester 1.18;
use Test::API;
plan tests => 14;
require_ok('t::lib::NoSubs');
require_ok('t::lib::Export');
require_ok('t::lib::ExportComplex');
#--------------------------------------------------------------------------#
# not loaded
#--------------------------------------------------------------------------#
test_out("not ok 1 - importing from t::lib::NonExisting");
test_fail(+2);
test_diag("Module 't::lib::NonExisting' not loaded");
import_ok('t::lib::NonExisting');
test_test('import_ok - module not loaded');
#--------------------------------------------------------------------------#
# nothing exported
#--------------------------------------------------------------------------#
test_out("ok 1 - importing from t::lib::NoSubs");
import_ok('t::lib::NoSubs');
test_test('import_ok - export: none; expect: none');
test_out("not ok 1 - importing from t::lib::NoSubs");
test_fail(+2);
test_diag("not exported: foo");
import_ok( 't::lib::NoSubs', export => 'foo' );
test_test('import_ok - export: none; expect: foo');
#--------------------------------------------------------------------------#
# just one sub exported
#--------------------------------------------------------------------------#
test_out("ok 1 - importing from t::lib::Export");
import_ok( 't::lib::Export', export => [qw/foo/] );
test_test('import_ok - export: foo; expect: foo');
test_out("not ok 1 - importing from t::lib::Export");
test_fail(+2);
test_diag("unexpectedly exported: foo");
import_ok('t::lib::Export');
test_test('import_ok - export: foo; expect: none');
#--------------------------------------------------------------------------#
# multi-subs exported
#--------------------------------------------------------------------------#
test_out("ok 1 - importing from t::lib::ExportComplex");
import_ok(
't::lib::ExportComplex',
export => [qw/foo bar/],
export_ok => [qw/baz bam/]
);
test_test('import_ok - export: several; expect: several');
test_out("not ok 1 - importing from t::lib::ExportComplex");
test_fail(+2);
test_diag("unexpectedly exported: bar foo");
import_ok(
't::lib::ExportComplex',
export => [],
export_ok => [qw/baz bam/],
);
test_test('import_ok - export: several; expect: none');
test_out("not ok 1 - importing from t::lib::ExportComplex");
test_fail(+2);
test_diag("unexpectedly exported: bar");
import_ok(
't::lib::ExportComplex',
export => ['foo'],
export_ok => [qw/baz bam/]
);
test_test('import_ok - export: several; expect: one');
#--------------------------------------------------------------------------#
# export_ok
#--------------------------------------------------------------------------#
test_out("ok 1 - importing from t::lib::ExportComplex");
import_ok(
't::lib::ExportComplex',
export => [qw/foo bar/],
export_ok => [qw/baz bam/]
);
test_test('import_ok - export_ok several functions');
test_out("not ok 1 - importing from t::lib::ExportComplex");
test_fail(+2);
test_diag("not optionally exportable: wibble");
import_ok(
't::lib::ExportComplex',
export => [qw/foo bar/],
export_ok => [qw/wibble baz bam/]
);
test_test('import_ok - export_ok a missing function');
test_out("not ok 1 - importing from t::lib::ExportComplex");
test_fail(+2);
test_diag("extra optionally exportable: bam baz");
import_ok( 't::lib::ExportComplex', export => [qw/foo bar/], );
test_test('import_ok - export_ok excludes items in @EXPORT_OK');
|
