Yet Another CPAN Grep

Test-TempFile ( R/RJ/RJH/Test-TempFile-0.92.tar.gz, RJH, 2019; MetaCPAN )

Test-TempFile/lib/Test/TempFile.pm ( view source; MetaCPAN )

trict;
use warnings;

our $VERSION = "0.92";

use Carp;
use Path::Tiny ();
use YAML::Tiny ();
use JSON::MaybeXS ();
use Test::Builder::Module;
use Test::More ();

my $Builder = Test::Builder::Module->

  ->content_is("Expected content", 'test message')
    ->json_is({ foo => 'bar' }, 'expect file to be JSON' );

 my $t = Test::TempFile->to_json({ a => 1 });
 run_some_script( config_file => $t->path

$self;
}

=item to_json ( data )

Create a new tempfile, with content set to the JSON representation of C<data>.

=cut

sub to_json {
    my ($class, $data) = @_;
    my $json = JSON::MaybeXS->new(utf