Add a stub test for the S3 mover.

bricoleurs · Jul 15, 2011 · 2af2a5d · 2af2a5d
1 parent 8c1499f
commit 2af2a5d
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/t/Bric/Util/Trans/S3/Test.pm b/t/Bric/Util/Trans/S3/Test.pm
@@ -0,0 +1,23 @@
+package Bric::Util::Trans::S3::Test;
+use strict;
+use warnings;
+use base qw(Bric::Test::Base);
+use Test::More;
+
+##############################################################################
+# Test class loading.
+##############################################################################
+sub _test_load : Test(3) {
+    eval { require Net::Amazon::S3; 1 } or
+	    return 'Net::Amazon::S3 not installed';
+    use_ok('Bric::Util::Trans::S3');
+    isa_ok 'Bric::Util::Trans::S3', 'Bric';
+    can_ok 'Bric::Util::Trans::S3', qw(
+        new
+        put_res
+        del_res
+    );
+}
+
+1;
+__END__