File: 04b_wrap_tree_of_packages_after_loading.t

package info (click to toggle)
libsub-wrappackages-perl 1.3-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 168 kB
  • ctags: 24
  • sloc: perl: 247; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 432 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
use strict;
use warnings;

use lib 't/lib';

use Test::More tests => 8;

use Banana::Tree;
use Orchard::Tree::Pear::Conference;

use Sub::WrapPackages (
    packages => [qw(Banana::Tree Orchard::*)],
    pre      => sub {
        ok(1, "$_[0] pre-wrapper")
    },
    post     => sub {
        ok(1, "$_[0] post-wrapper")
    }
);

ok(Orchard::Tree::Pear::Conference::tastes_nasty, "Conference pears are BAD");
Banana::Tree::foo();