You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
439 B
24 lines
439 B
#!/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'
|
|
);
|