#!/bin/bash

# USAGE:
#  cover -delete
# ./demo_tt-coverage2 sample.tt sample.dat-1 sample.out-1
# ./demo_tt-coverage2 sample.tt sample.dat-2 sample.out-2
# cover
# chmod go+rx cover_db

tmpl=$1
data=$2
expected=$3

outdir=out

output=$outdir/$expected
mkdir -p ${output%/*}

perl -x $0 $tmpl $data > $output 2>&1

if diff -q $expected $output > /dev/null ; then
  echo "ok $tmpl"
else
  echo "not ok $tmpl"
  echo "# diff $expected $output"
fi

exit;
####################################
#!/usr/bin/perl

use strict;
use warnings;
use lib 'mod2';
use Template;

######
use Devel::Cover::TT qw{ -silent 1 -ignore . };
######

my $infile = shift || die;
my $datafile = shift || die;
my $data = do $datafile or die $@;

my $template = Template->new({ INCLUDE_PATH => '.' });

$template->process($infile, $data) or warn $template->error;