use strict;
use warnings;

use Test::More;

use Dancer;

# testing default values
is(setting('port'), '3000', "default value for 'port' is OK");
is(setting('content_type'), 'text/html',
    "default value for 'content_type' is OK");

#should we test for all default values?


# testing new settings
ok(setting('foo' => '42'), 'setting a new value');
is(setting('foo'), 42, 'new value has been set');

# test the alias 'set'
ok(set(bar => 43), 'setting bar with set');
is(setting('bar'), 43, 'new value has been set');

#multiple values
ok(setting('foo' => 43, bar => 44), 'set multiple values');
ok(setting('foo') == 43 && setting('bar') == 44,
    'set multiple values successful');

done_testing;