File: Inline.t

package info (click to toggle)
libevent-perl 1.28-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 776 kB
  • sloc: ansic: 3,035; perl: 1,122; makefile: 8
file content (10 lines) | stat: -rw-r--r-- 345 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
 
# watch -*-perl-*-

use strict;
use Test::More tests => 3;
use Event ();

my $expected = Event->Inline(q{C});
is q{HASH}, ref $expected, q{returns hash reference};
is_deeply $expected, Event->Inline(q{notC}, q{Non-'C' Inline will return same hasref as 'C'});
is_deeply $expected, Event->Inline(q{notC}, q{undef will return same hasref as 'C'});