use Test::More tests => 9, import => ['!pass'];
use strict;
use warnings;

use Dancer::App;

my $app = Dancer::App->new;
isa_ok $app, 'Dancer::App';

is $app->name, 'main', 
    "default app is 'main'";

eval { my $other = Dancer::App->new };
like $@, qr/an app named 'main' already exists/, 
    "cannot create twice the same app";

my $other = Dancer::App->new(name => 'Foo::Bar');
is $other->name, 'Foo::Bar', 
    "Foo::Bar app created";

isa_ok(Dancer::App->current(), 'Dancer::App');
is(Dancer::App->current->name, 'main',
    "current is main");
ok(Dancer::App->current(Dancer::App->new(name => "Other")),
    "set current to 'Other'");
is(Dancer::App->current->name, 'Other',
    "current is 'Other'");


$app->prefix('foo');
is $app->prefix, 'foo', 'prefix is set';