#!/usr/bin/perl -w

# Copyright 2005, 2006, 2007, 2009, 2010 Kevin Ryde

# This file is part of Chart.
#
# Chart 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, or (at your option) any later version.
#
# Chart 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 Chart.  If not, see <http://www.gnu.org/licenses/>.


use strict;
use warnings;
use Test::More;
use File::Temp;
use File::Spec;

my $devnull = File::Spec->devnull;
if (! system "scrollkeeper-install >$devnull 2>&1") {
  plan skip_all => 'due to scrollkeeper-install program not available';
}
plan tests => 1;

use lib 't';
use MyTestHelpers;
MyTestHelpers::nowarnings();

my $omffile = File::Spec->rel2abs(File::Spec->catfile('doc','chart.omf'));

my $tempdir = File::Temp->newdir ('chart-test-omf-XXXXXX',
                                  TMPDIR => 1);
diag "tempdir $tempdir";
chdir($tempdir) or die "Cannot chdir to $tempdir: $!";

my $wstat = system
  "scrollkeeper-install -v -p $tempdir $omffile >omf.out 2>omf.err";
is ($wstat, 0, 'scrollkeeper-install exit status');

# show output only on error, the normal output is only confusing
if ($wstat) {
  require Perl6::Slurp;
  diag Perl6::Slurp::slurp('omf.out');
  diag Perl6::Slurp::slurp('omf.err');
}

exit 0;