File: 01use.t

package info (click to toggle)
libfile-monitor-lite-perl 0.652003-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 112 kB
  • ctags: 18
  • sloc: perl: 98; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 443 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
use Test::More tests => 9;

use_ok 'File::Monitor::Lite' ;
note 'different init test';
new_ok File::Monitor::Lite => [name=> '*.test', in => '.',];
new_ok File::Monitor::Lite => [name=> qr/.+\.haml/, in => '.',];
new_ok File::Monitor::Lite => [name=> ['*.html',qr/.+\.tt$/,], in => '.',];
my $m1 = File::Monitor::Lite->new( name => ['*.test'], in => '.',);
foreach $meth (qw(check modified created deleted observed)){
    can_ok $m1, $meth;
}