From 94af18840467c7e1c1b591cba2c391e47e912a5c Mon Sep 17 00:00:00 2001 From: jeff Date: Fri, 21 Nov 2008 04:37:14 +0000 Subject: Net::Soma --- t/Net-Soma.t | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 t/Net-Soma.t (limited to 't/Net-Soma.t') 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 ''); + + -- cgit v1.2.1