use Test::More;

use lib 'lib';
use Simpl;


my $simpl = Simpl->new({
  general => {
    verbose => 1,
  },
  template => {
    INCLUDE_PATH => 'share/simpl/skels',
    ANYCASE => 1,
    EVAL_PERL => 1,

  },
});

ok( $simpl, "does \$simpl exist?" );

TODO: {
    local $TODO = "create_file() is unfinished.";
    $simpl->create_file( {
      name => 'tmp/created_file',
      filetype => 'txt',
      theme => undef,
    } );

    ok( ( -e 'tmp/created_file.txt' ), "create_file created the file?" );

    {
      local $/ = undef;
      my $filecontents = <'tmp/created_file.txt'>;

      like( $filecontents, qr/Author: Jen/, "create_file created the appropriate file?");
    }

}

done_testing();