1 use strict;

     2 use warnings;

     3 use Test::More;

     4 

     5 use_ok "Fops";

     6 

     7 my $fops = Fops->new(native => "/tmp");

     8 isa_ok($fops => "Fops");

     9 isa_ok($fops => "Fops::native");

    10 is($fops->type => "native", "type is native");

    11 

    12 foreach (qw(type pwd cd)) {

    13     can_ok $fops => $_;

    14 }

    15 

    16 

    17 done_testing;