#! /usr/bin/env perl # -*- perl -*- # Copyright (C) 2016-2018 Guido Flohr , # all rights reserved. # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . use strict; BEGIN { my $test_dir = __FILE__; $test_dir =~ s/[-a-z0-9]+\.t$//i; unshift @INC, $test_dir; } use TestSite; use Test::More; use YAML::XS; use JSON::PP; use Qgoda::Config; use constant true => $JSON::PP::true; use constant false => $JSON::PP::false; my $site = TestSite->new(name => 'config-default'); my $config = Qgoda->dumpConfig; ok $config; $config = YAML::XS::Load($config); $site->tearDown; my $srcdir = Cwd::abs_path() . '/t/config-default'; my $expected = <