/[notice-sender]/trunk/t/1_nos.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/1_nos.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 79 by dpavlin, Thu Aug 25 00:37:48 2005 UTC revision 80 by dpavlin, Fri Aug 26 05:38:00 2005 UTC
# Line 114  test reply $i", Line 114  test reply $i",
114    
115  }  }
116    
117  sub test_received {  my @r = $nos->received_messages();
118          my $arg = {@_};  cmp_ok(scalar @r, '==', $sent, "received_messages() = $sent");
119    
120          #diag "where ",Dumper($arg->{'where'});  @r = $nos->received_messages( list => 'My list' );
121          my $num = $arg->{'num'};  cmp_ok(scalar @r, '==', $sent, "received_messages(My list) = $sent");
122    
123          ok(my @r = $nos->received_messages( %{$arg->{'where'}} ), 'received filter');  foreach my $email (qw(foo bar baz)) {
124          cmp_ok( scalar @r, '==', $num, "received $num messages");          my @r = $nos->received_messages( email => $email . '@example.com' );
125            cmp_ok(scalar @r, '==', 1, "received_messages($email) = 1");
126    }
127    
128          #diag "received_messages = ",Dumper(\@r);  # test optional parametars
129    
130    @r = $nos->received_messages(message => 1);
131    #diag "received_messages = ",Dumper(\@r);
132    foreach (my $i = 0; $i <= $#r; $i++) {
133            like($r[$i]->{'message'}, qr/Subject: reply/, "message $i have content");
134  }  }
135    
136  test_received(num => $sent);  @r = $nos->received_messages(message => 1);
137  test_received(where => { list => 'My list' }, num => $sent);  for (my $i = 1; $i <= $#r; $i++) {
138  foreach my $email (qw(foo bar baz)) {          my $from = $r[$i-1]->{'date'};
139          test_received(where => { email => $email . '@example.com' }, num => 1);          my $to = $r[$i]->{'date'};
140            my @r2 = $nos->received_messages( date_from => $r[$i-1]->{'date'}, date_to => $r[$i]->{'date'} );
141            cmp_ok(scalar @r2, '==', 2, "received_messages( '$from' - '$to' )");
142  }  }
143    
144  # do some changes  # do some changes
Legend:
Removed from v.79  
changed lines
  Added in v.80
  ViewVC Help
Powered by ViewVC 1.1.26