changeset 0 | 21a87c5f86e4 |
child 1 | 9416fc33d2a0 |
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/t/000-module.t Tue Aug 02 00:21:00 2011 +0200 @@ -0,0 +1,17 @@ +use strict; +use warnings; +use Test::More; + +use_ok "Fops"; + +my $fops = Fops->new(native => "/tmp"); +isa_ok($fops => "Fops"); +isa_ok($fops => "Fops::native"); +is($fops->type => "native", "type is native"); + +foreach (qw(type pwd cd)) { + can_ok $fops => $_; +} + + +done_testing;