[siesta-commit] siesta/t 07user.t,1.9,1.10

[prev] [thread] [next] [lurker] [Date index for 2002/10/15]

Update of /cvsroot/siesta/siesta/t
In directory usw-pr-cvs1:/tmp/cvs-serv6768/t

Modified Files:
	07user.t 
Log Message:
beef up coverage

Index: 07user.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/07user.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- 07user.t	12 Sep 2002 14:14:51 -0000	1.9
+++ 07user.t	15 Oct 2002 10:57:04 -0000	1.10
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 22;
+use Test::More tests => 23;
 use Test::MockObject;
 use Siesta;
 use Siesta::User;
@@ -10,6 +10,8 @@
 my $user = Siesta::User->new('jay@xxxxxxxx.xxxxxxxxxx');
 ok( $user,     "user created" );
 isa_ok( $user, "Siesta::User", );
+
+is_deeply( [ map { $_->id } $user->lists ], ['dealers'], 'lists' );
 
 # test new from hash
 my $other = Siesta::User->new_from_hash(

• [siesta-commit] siesta/t 07user.t,1.9,1.10 clampr 11:57 on 15 Oct 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52