wrt/t/wrt_fileio.t

#!/usr/bin/perl

use strict;
use warnings;

use lib 'lib';

use Test::More tests => 2;
use App::WRT::FileIO;

my $io = App::WRT::FileIO->new();

my @dir_list = $io->dir_list('example', 'alpha', '^wrt[.]json$');
diag(@dir_list);
ok(
  $dir_list[0] eq 'wrt.json',
  'got wrt.json from dir_list'
);

my $get_contents = $io->file_get_contents('example/wrt.json');
ok(
  $get_contents =~ m/entry_dir/,
  'got an expected string in wrt.json'
);