[Bps-public-commit] r9723 - in Net-Hiveminder: t

[sartak at bestpractical.com]

Author: sartak
Date: Wed Nov 21 17:08:02 2007
New Revision: 9723

Added:
   Net-Hiveminder/t/
   Net-Hiveminder/t/000-load.t
Modified:
   Net-Hiveminder/   (props changed)

Log:
 r45518 at onn:  sartak | 2007-11-21 17:05:08 -0500
 Add some pretty meager tests. For now. Luckily all the real work is done in Net::Jifty.


Added: Net-Hiveminder/t/000-load.t
==============================================================================
--- (empty file)
+++ Net-Hiveminder/t/000-load.t	Wed Nov 21 17:08:02 2007
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+use_ok 'Net::Hiveminder';
+
+no warnings; *Net::Hiveminder::login = sub { 1 }; use warnings;
+
+my $hm = Net::Hiveminder->new(email => 'god at mushroom.mu', password => 'melange');
+
+ok($hm, "got a defined return value from Net::Hiveminder");
+ok($hm->isa('Net::Jifty'), "got a Net::Hiveminder object");
+
+