use strict;
use warnings;
use strict;
use warnings;

#use File::Slurp;
use Test::More tests => 2;
my $pmc;
BEGIN {
    $pmc = 't/data/PMC.pmc';
    unlink $pmc if -f $pmc;
}
use t::data::PMC;

ok -f $pmc, "$pmc generated";
if (-f $pmc) {
    system("");
    open my $in, $pmc or die "Can't open $pmc for reading: $!";
    #warn "Size:: ", -s $in;
    local $/;
    my $src = <$in>;
    #warn $pmc;
    #my $src = read_file($pmc);
    #warn $src;
    is $src, <<'_EOC_', 'pmc source okay';
package t::data::PMC;

use t::data::QuoteSQL cached => 1;

my $model = 'Post';
our $Res = "select * from ".t::data::QuoteSQL::Q($model);

1;


_EOC_
} else {
    fail "No pmc found and no results tested";
}