view release on metacpan or  search on metacpan

t/30-basics.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use Cwd qw(abs_path);
use Encode qw(encode);
use File::Temp qw(tempdir tempfile);
use File::Spec;
use Test::Most;
use YAML::XS qw(DumpFile);

BEGIN { use_ok('App::Test::Generator') }

# note "Testing App::Test::Generator";

#------------------------------------------------------------------------------
# Prepare temporary environment
#------------------------------------------------------------------------------

my $dir = tempdir(CLEANUP => 1);
# my $conf_file = File::Spec->catfile($dir, 'example.conf');
my $conf_file = File::Spec->catfile($dir, 'example.yml');
my $yaml_file = File::Spec->catfile($dir, 'cases.yaml');
my $output_file = File::Spec->catfile($dir, 'generated.t');

#------------------------------------------------------------------------------
# Write a simple configuration file
#------------------------------------------------------------------------------

# Don't test the legacy format any more
# open my $fh, '>', $conf_file or die $!;
# print $fh <<"CONF";
# our \$module	= 'Test::Simple';
# our \$function	= 'ok';
# our \%input	= ( arg1 => { 'type' => 'string' } );
# our \%output = ( type => 'string' );
# our \%cases	= (
	# basic => [ 'foo', 'bar' ],
# );
# our \$iterations = 3;
# our \@edge_case_array = ( 'undef', '', ' ' );
# our \$yaml_cases = '$yaml_file';

# CONF

open my $fh, '>', $conf_file or die $!;
print $fh <<"CONF";
---
module: Test::Simple
function: ok

input:
  arg1:
    type: string

output:
  type: string

cases:
  basic:
    - "foo"
    - "bar"

iterations: 3

edge_case_array:
  - "undef"
  - ""
  - " "

yaml_cases: $yaml_file

CONF

close $fh;

#------------------------------------------------------------------------------
# Write a YAML corpus
#------------------------------------------------------------------------------

my $yaml_data = {
	yaml_case => [ 'alpha', 'beta' ],
};
DumpFile($yaml_file, $yaml_data);

#------------------------------------------------------------------------------
# Run the generator
#------------------------------------------------------------------------------

lives_ok {
	App::Test::Generator->generate({ schema_file => $conf_file, output_file => $output_file });
} 'Generator runs without fatal errors';

#------------------------------------------------------------------------------
# Validate output
#------------------------------------------------------------------------------

ok(-e $output_file, 'Generated test file exists');

my $contents = do {
	local $/;
	open my $in, '<', $output_file or die $!;
	<$in>;
};

like($contents, qr/Test::Most/,	 'Includes Test::Most import');
like($contents, qr/ok\(/,			 'References ok() from Test::Simple');
like($contents, qr/basic/,			'Includes Perl conf test case');
like($contents, qr/yaml_case/,		'Includes YAML test case');
like($contents, qr/edge_case_array/, 'Includes edge case array');
like($contents, qr/returns_ok|lives_ok/, 'Includes generated Test::Most calls');

#------------------------------------------------------------------------------
# Verify Safe mode loader doesn’t break
#------------------------------------------------------------------------------

my $safe_conf = File::Spec->catfile($dir, 'safe.conf');
open my $sfh, '>', $safe_conf or die $!;
print $sfh <<'SAFE';
# No unsafe operations
module: Scalar::Util
function: blessed

input: