Net::Somainitial-import

1 files changed, 19 insertions, 0 deletions

diff --git a/t/Net-Soma.t b/t/Net-Soma.t
new file mode 100644
index 0000000..071eab9
--- /dev/null
+++ b/t/Net-Soma.t
@@ -0,0 +1,19 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl Net-Soma.t'
+
+# Not very exciting testing
+
+use Test;
+BEGIN { plan tests => 3 };
+eval "use Net::Soma";
+ok($@ eq '');
+
+no Net::Soma;
+eval "use Net::Soma qw(ApplicationDef)";
+ok($@ eq '');
+
+no Net::Soma;
+eval "use Net::Soma qw(BadClass)";
+ok($@ ne '');
+
+