#!/bin/bash

# ./demo_tt-coverage sample.tt sample.dat-1 sample.out-1
# ./demo_tt-coverage sample.tt sample.dat-2 sample.out-2

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 '/tmp/__ttc';
use lib '.';
use Devel::Cover qw{ -silent 1 -ignore . +select ttc_mod };
use Template::Coverable;

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

my $template = Template::Coverable->new('/tmp/__ttc','ttc_mod', {
	PRE_CHOMP => 1,
	POST_CHOMP => 1,
	INCLUDE_PATH => [ '.' ],
});

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