master
Manager Bot 3 years ago
parent a6fc1a5705
commit 00d25f3664
  1. 32
      Web/t/01_endpoints/03_blog/01_index.t
  2. 31
      Web/t/01_endpoints/03_blog/02_domain_hosted.t
  3. 31
      Web/t/01_endpoints/03_blog/03_domain_owned.t

@ -0,0 +1,32 @@
#!/usr/bin/env perl
use MJB::Web::Test;
#==
# Test to ensure that the blog index page redirects to the page for
# creating the blog on a hosted page.
#==
my $t = Test::Mojo::MJB->new('MJB::Web');
# Ensure that a user who hasn't logged in cannot access this page.
$t->get_ok( '/blog' )
->status_is( 302 )
->header_is( location => '/login' );
# Make sure that open registration method is enabled and create a user account.
$t->app->config->{register}{enable_open} = 1;
$t->post_ok( '/register/open', form => {
name => 'fred',
email => 'fred@blog.com',
password => 'SuperSecure',
password_confirm => 'SuperSecure',
})
->status_is( 302 )
->get_ok( '/' );
# Confirm the blog index page redirects to the create blog hosted page.
$t->get_ok( '/blog' )
->status_is( 302 )
->header_is( location => '/blog/domain/hosted' );
done_testing();

@ -0,0 +1,31 @@
#!/usr/bin/env perl
use MJB::Web::Test;
#==
# Ensure that the route for creating a blog on a hosted domain behaves
# as expected. Anonymouse users should be dismissed to the login page.
#==
my $t = Test::Mojo::MJB->new('MJB::Web');
# Ensure that a user who hasn't logged in cannot access this page.
$t->get_ok( '/blog/domain/hosted' )
->status_is( 302 )
->header_is( location => '/login' );
# Make sure that open registration method is enabled and create a user account.
$t->app->config->{register}{enable_open} = 1;
$t->post_ok( '/register/open', form => {
name => 'fred',
email => 'fred@blog.com',
password => 'SuperSecure',
password_confirm => 'SuperSecure',
})
->status_is( 302 )
->get_ok( '/' );
# Confirm that the page exists and is served.
$t->get_ok( '/blog/domain/hosted' )
->status_is( 200 );
done_testing();

@ -0,0 +1,31 @@
#!/usr/bin/env perl
use MJB::Web::Test;
#==
# Ensure that the route for creating a blog on an owned domain behaves
# as expected. Anonymouse users should be dismissed to the login page.
#==
my $t = Test::Mojo::MJB->new('MJB::Web');
# Ensure that a user who hasn't logged in cannot access this page.
$t->get_ok( '/blog/domain/owned' )
->status_is( 302 )
->header_is( location => '/login' );
# Make sure that open registration method is enabled and create a user account.
$t->app->config->{register}{enable_open} = 1;
$t->post_ok( '/register/open', form => {
name => 'fred',
email => 'fred@blog.com',
password => 'SuperSecure',
password_confirm => 'SuperSecure',
})
->status_is( 302 )
->get_ok( '/' );
# Confirm that the page exists and is served.
$t->get_ok( '/blog/domain/owned' )
->status_is( 200 );
done_testing();
Loading…
Cancel
Save