1use strict; 2use warnings; 3 4use Test::Requires { 5 'Test::Without::Module' => 0, 6}; 7 8use Test::More; 9use Test::Without::Module qw( Linux::Inotify2 ); 10 11use File::ChangeNotify; 12 13my $watcher1 = File::ChangeNotify->instantiate_watcher( directories => 't' ); 14my $watcher2 = File::ChangeNotify->instantiate_watcher( directories => 't' ); 15 16ok( 17 $watcher1->does('File::ChangeNotify::Watcher'), 18 'first watcher does the File::ChangeNotify::Watcher role' 19); 20 21ok( 22 $watcher2->does('File::ChangeNotify::Watcher'), 23 'second watcher does the File::ChangeNotify::Watcher role' 24); 25 26done_testing(); 27