File: hook.t

package info (click to toggle)
libspoon-perl 0.24-2
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 296 kB
  • sloc: perl: 2,640; makefile: 2
file content (45 lines) | stat: -rw-r--r-- 1,141 bytes parent folder | download | duplicates (3)
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
use lib 't', 'lib';
use strict;
use warnings;
use Test::More tests => 11;

use Spoon;
Spoon->debug;

my %classes = (
    test_class => 'TestHook',
);

{
    my $hub = Spoon->new->load_hub(\%classes);
    is($hub->test->number, 42);
    $hub->add_hook('test:number' => post => sub { 43 });
    is($hub->test->number, 43);
    my $h1 = $hub->add_hook('test:number' => post => sub { 44 });
    is($hub->test->number, 44);
    $h1->unhook;
    is($hub->test->number, 43);
}

{
    my $hub = Spoon->new->load_hub(\%classes);
    is($hub->test->number, 42);
    my $h1 = $hub->add_hook('test:number' => post => 'test:other');
    is($hub->test->number, 45);
    my $h2 = $hub->add_hook('test:number' => pre => 'Tweak::two');
    is($hub->test->number, 48);
    $h2->unhook;
    my $h3 = $hub->add_hook('test:number' => pre => 'Tweak::one');
    is($hub->test->number, 45);
    my $h4 = $hub->add_hook('test:number' => post => 'Tweak::one');
    is($hub->test->number, 47);
    $h4->unhook;
    $h3->unhook;
    is($hub->test->number, 45);
}

{
    my $main = Spoon->new;
    my $hub = $main->load_hub(\%classes);
    is($hub->test->number, 42);
}