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
|
#!/usr/bin/env perl
BEGIN { require './t/inc/setup.pl' };
use strict;
use warnings;
plan tests => 27;
my $data = 42;
my $result = 23;
my $callback = sub { is @_, 1; is $_[0], $data; return $result; };
my $empty_callback = sub { return $result };
is (Regress::test_callback ($empty_callback), $result);
is (Regress::test_callback (undef), 0);
is (Regress::test_callback_user_data ($callback, $data), $result);
is (Regress::test_callback_destroy_notify ($callback, $data), $result);
is (Regress::test_callback_destroy_notify ($callback, $data), $result);
is (Regress::test_callback_thaw_notifications (), 46);
Regress::test_callback_async ($callback, $data);
Regress::test_callback_async ($callback, $data);
is (Regress::test_callback_thaw_async (), $result);
my $obj = Regress::TestObj->new_callback ($callback, $data);
isa_ok ($obj, 'Regress::TestObj');
is (Regress::test_callback_thaw_notifications (), 23);
|
