t/000-module.t
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;