t/Net-Soma.t

   1 # Before `make install' is performed this script should be runnable with
   2 # `make test'. After `make install' it should work as `perl Net-Soma.t'
   3
   4 # Not very exciting testing
   5
   6 use Test;
   7 BEGIN { plan tests => 3 };
   8 eval "use Net::Soma";
   9 ok($@ eq '');
  10
  11 no Net::Soma;
  12 eval "use Net::Soma qw(ApplicationDef)";
  13 ok($@ eq '');
  14
  15 no Net::Soma;
  16 eval "use Net::Soma qw(BadClass)";
  17 ok($@ ne '');
  18
  19