view release on metacpan or  search on metacpan

t/4_export_ok.t  view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
# use a BEGIN block so we print our plan before module is loaded
BEGIN { use Class::OOorNO }
BEGIN { plan tests => scalar(@Class::OOorNO::EXPORT_OK), todo => [] }
BEGIN { $| = 1 }
 
# load your module...
use lib './';
 
# we gonna see if'n it cun export wut itz 'pose ta. this checks the
# @EXPORT_OK of all packages in the inheritance cascade, which is the
# only reason we're doing this.  we already know that it UNIVERSAL::can do
# all its own methods if this test is being run.  test 3 ensures that.
# this is just an automated non-empty superclass test
use Class::OOorNO @OOorNO::EXPORT_OK;
 
map {
 
   ok ref(UNIVERSAL::can('Class::OOorNO', $_)) eq 'CODE'
 
} @Class::OOorNO::EXPORT_OK;