###########################################
# Accessor tests for class Customers
# Mike Schilli, 2013 (m@perlmeister.com)
###########################################
package TestsFor::Customers;
use Test::Class::Moose;

sub test_customers {

  my $customers = Customers->new();

  my @users = qw( a@b.com c@d.com );

  for my $email ( @users ) {
    my $user = User->new( 
      email => $email,
    );
    $customers->sign_up( $user );
  }

  for my $email ( @users ) {
    ok $customers->user_find_by_email( 
          $email 
    );
  }
}

1;