view release on metacpan or  search on metacpan

t/test.t  view on Meta::CPAN

19
20
21
22
23
24
25
26
27
28
29
30
 
if($obj->requires('admin.cgi','admin','3')) { print "ok\n"; }
else { print "not ok\n"; }
 
if($obj->save()) { print "ok 6\n"; }
else { print "not ok\n"; }
 
if(-e 'htaccess') { print "ok 7\n"; }
else { print "not ok\n"; }
 
if( (stat('htaccess'))[7] > 0 ) { print "ok 8\n"; }
else { print "not ok\n"; }