1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict;
use warnings;
use Test::More;
eval 'use Test::Without::Module qw( Linux::Inotify2 )';
plan skip_all => 'This test requires Test::Without::Module' if $@;
use File::ChangeNotify;
my $watcher1 = File::ChangeNotify->instantiate_watcher( directories => 't' );
my $watcher2 = File::ChangeNotify->instantiate_watcher( directories => 't' );
ok(
$watcher1->isa('File::ChangeNotify::Watcher'),
'first isa File::ChangeNotify::Watcher'
);
ok(
$watcher2->isa('File::ChangeNotify::Watcher'),
'second isa File::ChangeNotify::Watcher'
);
done_testing();
|
