← Back to branch summary

~cldunlap1/ubuntu/quantal/ciderwebmail/typo-fix

« back to all changes in this revision

Viewing changes to t/render_ical.t

  • Committer: Package Import Robot
  • Author(s): Jonas Smedegaard
  • Date: 2012-06-10 22:29:53 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20120610222953-94v7e2kcjvtbc8re
Tags: 1.04~20120610-2
* Initial packaging release for unstable.
* Fix adjust symlink to mootools.
* Fix syntac of PSGI (Catalyst documentation is wrong).
* Add README.Debian documenting ways to deploy.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/render_ical.t
1
1
use strict;
2
2
use warnings;
3
3
use Test::More;
 
4
use CiderWebmail::Test {login => 1};
4
5
use English qw(-no_match_vars);
5
6
use FindBin qw($Bin);
6
7
 
7
 
return plan skip_all => 'Set TEST_USER and TEST_PASSWORD to access a mailbox for these tests' unless $ENV{TEST_USER} and $ENV{TEST_PASSWORD};
8
 
 
9
8
$ENV{CIDERWEBMAIL_NODISCONNECT} = 1;
10
9
 
11
10
use Catalyst::Test 'CiderWebmail';
24
23
 
25
24
$c->model('IMAPClient')->append_message($c, { mailbox => 'INBOX', message_text => $message_text });
26
25
 
27
 
eval "use Test::WWW::Mechanize::Catalyst 'CiderWebmail'";
28
 
if ($@) {
29
 
    plan skip_all => 'Test::WWW::Mechanize::Catalyst required';
30
 
    exit;
31
 
}
32
 
 
33
26
my $uname = getpwuid $UID;
34
27
 
35
 
ok( my $mech = Test::WWW::Mechanize::Catalyst->new, 'Created mech object' );
36
 
 
37
 
$mech->get_ok( 'http://localhost/' );
38
 
$mech->submit_form_ok({ with_fields => { username => $ENV{TEST_USER}, password => $ENV{TEST_PASSWORD} } });
39
 
 
40
28
$mech->get_ok( 'http://localhost/mailbox/INBOX?length=99999' );
41
29
$mech->follow_link_ok({ text => 'icaltest-'.$unix_time });
42
30