use strict;
use warnings;
use Test::More;
use Smolder::TestScript;
use Smolder::Mech;
use Smolder::TestData qw(
  base_url
  is_smolder_running
  create_developer
  delete_developers
);

if (is_smolder_running) {
    plan(tests => 6);
} else {
    plan(skip_all => 'Smolder not running');
}

my $mech  = Smolder::Mech->new();
my $url   = base_url() . '/admin';
my $pw    = 's3cr3t';
my $admin = create_developer(admin => 1, password => $pw);
END { delete_developers() }

# 1
use_ok('Smolder::Control::Admin');

# 2
$mech->get($url);

#is($mech->status, 401, 'auth required'); # can we control HTTP codes in C::A::Server?
$mech->content_contains("You shouldn't be here");
$mech->content_lacks('Welcome');
$mech->login(username => $admin->username, password => $pw);
ok($mech->success);
$mech->get_ok($url);
$mech->content_contains('Welcome');