Re: How to use Perl to decompose Python functions into a CSV?

I don't know Python much so I hacked something to a convert it to Perl. (yippie ;)

Don't understand your desired format so I just demonstrated how to fake the methods with AUTOLOAD to dump all input.

Just adjust package TESTER with the right methods for your needs.

HTH =)

# use strict;
# use warnings;
my $dbg = 0;

my @methods;


#package PSEUDO_PYTHON;

use Data::Dump qw/pp dd/;



my $TERRAFORM_LOCATION;
sub TERRAFORM_LOCATION :lvalue {
    $TERRAFORM_LOCATION
};

my $DEFAULTS = <<'__CODE__';
    
    #our @ISA = qw(PSEUDO_PYTHON);

    our $TERRAFORM_LOCATION;
    sub TERRAFORM_LOCATION :lvalue {
        $TERRAFORM_LOCATION
    };
    sub True(){"True"};
    sub False(){"False"};
    sub dir { return [@_] };
__CODE__


my $statement = "";
my $sub_flag;
my $class_flag;
my @classes;



# --- redirect prints to $code string
open my $out, ">", \ my $code;
select ($out);

print <<'__CODE__';
use strict;
use warnings;
__CODE__



for ( <DATA> ) {
    s/\./->/g;

    #  vars
    s/self/\$self/g;

    # comment
    if (/^\s*#/) {
        print;
        next;
    }
    
    # docstrings
    if ( s[^\s*"""(.*)"""\s*$]
          [\n=head1 DESCRIPTION\n\n$1\n\n=cut\n\n]x
      ) {
        print;
        next;
    }
    
    
    # import
    if ( s/^import/use/) {
        chomp;
        # TODO translate modules
        print "# ";                     # uncommented TODO
        print "$_;\n";
        next;
    } 

    # class
    if ( s[^ class (\s+) (\w+) \( (.*?) \) : ]
          [package$1$2 {\n$DEFAULTS\n\tsub new {$3}\n]x
      ) {
        print "$class_flag}\n\n" if $class_flag; # close package
        $class_flag = " ";        
        print;
        next;
    }
    

    # def
    if ( s[^ (\s*) def( \s+) (\w+) \( (.*?) \) :]
          [$1sub$2$3 { my ($4) = \@_; ]x
      ) {
        push @methods, $3; 
        print "$sub_flag}\n\n" if $sub_flag; # close sub
        $sub_flag = $1;
        print;

        next;
    }

    warn ">$_" if $dbg;                 # whats left?
    
    $statement .= $_;
    
    if ($statement =~ /^\s*$/) {
        $statement = "";
        next;
    }
    
    my $self;
    
    if ( eval { eval "sub {$statement}" } ) {
        chomp $statement;
        print "$statement;\n";
        warn "< $statement;" if $dbg;
        $statement = "";
    }
}

print "$sub_flag}\n\n" if $sub_flag; # close sub
print "$class_flag}\n\n" if $class_flag; # close package

select (STDOUT);

print $code ;


eval($code);

#print @methods;

my $tester = bless {}, "TESTER";

package TESTER {
    use Data::Dump qw/pp dd/;
    our $AUTOLOAD;
    sub AUTOLOAD {
        #warn pp [$AUTOLOAD,\@_];
        my $self=shift;
        $AUTOLOAD =~ s/TESTER:://;
       
        print "$AUTOLOAD\t@_\t";
        return $tester;
    }
    sub DESTROY {
        print "\n";
    }
};

package SELF {
    sub v {
#        print "\n";
        return $tester;
    }
    sub DESTROY {
        print "\n";
    }
};

package main;

use Data::Dump qw/pp dd/;

#warn pp \@methods;




for my $meth ( @methods ) {
    my $self= bless {}, "SELF";
    my $code = TestEncryption->can($meth);
    $code->($self);
}



__DATA__

# -*- coding: utf-8 -*-

"""Tests for encryption configuration in terraform templates"""

import os
import unittest

import terraform_validate


class TestEncryption(unittest.TestCase):

    # Set this before running the Test Case
    TERRAFORM_LOCATION = ''

    def test_aws_alb_listener_port(self):
        # Assert that listener port is 443
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
                         'aws_alb_listener',
                        ).property('port').should_equal('443')

      def test_aws_alb_listener_protocol(self):
        # Assert that protocol is not http
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_alb_listener').property('protocol').should_not_equal(
+'http')
        self.v.resources(
            'aws_alb_listener').property('protocol').should_not_equal(
+'HTTP')

    def test_aws_alb_listener_ssl_policy(self):
        # Assert that old ssl policies are not used
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_alb_listener').property(
            'ssl_policy').should_not_equal('ELBSecurityPolicy-2015-05'
+)
        self.v.resources(
            'aws_alb_listener').property(
            'ssl_policy').should_not_equal('ELBSecurityPolicy-TLS-1-0-
+2015-04')

    def test_aws_alb_listener_certificate(self):
        # Assert that certificate_arn is set
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_alb_listener').should_have_properties(['certificate_a
+rn'])

    def test_aws_ami_ebs_block_device_encryption(self):
        # Assert ami 'ebs_block_device' blocks are encrypted
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_ami').property(
            'ebs_block_device').property('encrypted').should_equal(Tru
+e)

    def test_aws_ami_ebs_block_device_kms(self):
        # Assert ami 'ebs_block_device' blocks has KMS
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_ami').property(
            'ebs_block_device').should_have_properties(['kms_key_id'])

    def test_aws_ami_copy_encryption(self):
        # Assert resources are encrypted
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_ami_copy').property('encrypted').should_equal(True)

    def test_aws_ami_copy_kms(self):
        # Assert that a KMS key has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_ami_copy').should_have_properties(['kms_key_id'])

    def test_aws_api_gateway_domain_name_certificate(self):
        # Assert that certificate settings have been configured
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_api_gateway_domain_name').should_have_properties(
            [
                'certificate_name',
                'certificate_body',
                'certificate_chain',
                'certificate_private_key',
            ])

    def test_aws_instance_ebs_block_device_encrypted(self):
        # Assert ec2 instance 'ebs_block_device' is encrypted
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_instance').property(
            'ebs_block_device').property('encrypted').should_equal(Tru
+e)

    def test_aws_cloudfront_distribution_origin_protocol_policy(self):
        # Assert that origin receives https only traffic
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_cloudfront_distribution').property(
            'origin').property(
            'custom_origin_config').property(
            'origin_protocol_policy').should_equal('https-only')

    def test_aws_cloudfront_distribution_def_cache_viewer_prot_policy(
+self):
        # Assert that cache protocol doesn't allow all
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_cloudfront_distribution').property(
            'default_cache_behavior').property(
            'viewer_protocol_policy').should_not_equal('allow-all')

    def test_aws_cloudfront_distribution_cache_beh_viewer_proto_policy
+(self):
        # Assert that cache protocol doesn't allow all
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_cloudfront_distribution').property(
            'cache_behavior').property(
            'viewer_protocol_policy').should_not_equal('allow-all')

    def test_aws_cloudtrail_kms(self):
        # Assert that a KMS key has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_cloudtrail').should_have_properties(['kms_key_id'])

    def test_aws_codebuild_project_kms(self):
        # Assert that a KMS key has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_codebuild_project').should_have_properties(['encrypti
+on_key'])

    def test_aws_codepipeline_kms(self):
        # Assert that a KMS key has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_codepipeline').should_have_properties(['encryption_ke
+y'])

    def test_aws_db_instance_encrypted(self):
        # Assert that DB is encrypted
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_db_instance').property('storage_encrypted').should_eq
+ual(True)

    def test_aws_db_instance_kms(self):
        # Assert that a KMS key has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_db_instance').should_have_properties(['kms_key_id'])

    def test_aws_dms_endpoint_ssl_mode(self):
        # Assert that SSL is verified
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_dms_endpoint').property(
            'ssl_mode').should_equal('verify-full')

    def test_aws_dms_endpoint_kms(self):
        # Assert that a KMS key has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_dms_endpoint').should_have_properties(
            [
                'kms_key_arn',
            ])

    def test_aws_dms_endpoint_certificate(self):
        # Assert that SSL cert has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_dms_endpoint').should_have_properties(
            [
                'certificate_arn',
            ])

    def test_aws_dms_replication_instance_kms(self):
        # Assert that a KMS key has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_dms_replication_instance').should_have_properties(
            ['kms_key_arn'])

    def test_aws_ebs_volume_encryption(self):
        # Assert that all resources of type 'aws_ebs_volume' are encry
+pted
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_ebs_volume').property('encrypted').should_equal(True)

    def test_aws_ebs_volume_kms(self):
        # Assert that a KMS key has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_ebs_volume').should_have_properties(['kms_key_id'])

    def test_aws_efs_file_system_encryption(self):
        # Assert that all resources of type 'aws_efs_file_system' are 
+encrypted
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_efs_file_system').property('encrypted').should_equal(
+True)

    def test_aws_efs_file_system_kms(self):
        # Assert that a KMS key has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_efs_file_system').should_have_properties(['kms_key_id
+'])

    def test_aws_elastictranscoder_pipeline_kms(self):
        # Assert that a KMS key has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_elastictranscoder_pipeline').should_have_properties(
            ['aws_kms_key_arn'])

    def test_aws_elb_listener_port_80(self):
        # Assert ELB listener port is not 80 (http)
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_elb').property(
            'listener').property('lb_port').should_not_equal(80)

    def test_aws_elb_listener_port_21(self):
        # Assert ELB listener port is not 21 ftp
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_elb').property(
            'listener').property('lb_port').should_not_equal(21)

    def test_aws_elb_listener_port_23(self):
        # Assert ELB listener port is not 23 telnet
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_elb').property(
            'listener').property('lb_port').should_not_equal(23)

    def test_aws_elb_listener_port_5900(self):
        # Assert ELB listener port is not 5900 VNC
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_elb').property(
            'listener').property('lb_port').should_not_equal(5900)

    def test_aws_kinesis_firehose_delivery_stream_s3_kms(self):
        # Assert ELB listener port is not 80 (http)
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_kinesis_firehose_delivery_stream').property(
            's3_configuration').should_have_properties(['kms_key_arn']
+)

    def test_aws_kinesis_firehose_delivery_stream_extended_s3_kms(self
+):
        # Assert ELB listener port is not 80 (http)
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_kinesis_firehose_delivery_stream').property(
            'extended_s3_configuration').should_have_properties(
            ['kms_key_arn'])

    def test_aws_lambda_function_kms(self):
        # Assert that a KMS key has been provided
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_lambda_function').should_have_properties(
            ['kms_key_arn'])

    def test_aws_opsworks_application_encryption(self):
        # Assert resource is encrypted
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_opsworks_application').property(
            'enable_ssl').should_equal(True)

    def test_aws_rds_cluster_encryption(self):
        # Assert resource is encrypted
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_rds_cluster').property(
            'storage_encrypted').should_equal(True)

    def test_aws_rds_cluster_kms(self):
        # Assert resource has a KMS with CMKs
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_rds_cluster').should_have_properties(
            ['kms_key_id'])

    def test_aws_redshift_cluster_encryption(self):
        # Assert resource is encrypted
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_redshift_cluster').property(
            'encrypted').should_equal(True)

    def test_aws_redshift_cluster_kms(self):
        # Assert resource has a KMS with CMKs
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_redshift_cluster').should_have_properties(
            ['kms_key_id'])

    def test_aws_s3_bucket_object_encryption(self):
        # Assert resource is encrypted with KMS
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_s3_bucket_object').property(
            'server_side_encryption').should_equal('aws:kms')

    def test_aws_s3_bucket_object_kms(self):
        # Assert resource has a KMS with CMKs
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_s3_bucket_object').should_have_properties(
            ['kms_key_id'])

    def test_aws_sqs_queue_kms(self):
        # Assert resource has a KMS with CMK
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_sqs_queue').should_have_properties(
            ['kms_master_key_id', 'kms_data_key_reuse_period_seconds']
+)

    def test_aws_ssm_parameter_encryption(self):
        # Assert resource is encrypted with KMS
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_ssm_parameter').property(
            'type').should_equal('SecureString')

    def test_aws_ssm_parameter_kms(self):
        # Assert resource has a KMS with CMK
        self.v.error_if_property_missing()
        self.v.enable_variable_expansion()
        self.v.resources(
            'aws_ssm_parameter').should_have_properties(
            ['key_id'])
        return dir(self.v.resources(
            'aws_ssm_parameter').should_have_properties(
            ['key_id']))
[download]

created Perl code

use strict;
use warnings;
# -*- coding: utf-8 -*-

=head1 DESCRIPTION

Tests for encryption configuration in terraform templates

=cut

# use os;
# use unittest;
# use terraform_validate;
package TestEncryption {
    
    #our @ISA = qw(PSEUDO_PYTHON);

    our $TERRAFORM_LOCATION;
    sub TERRAFORM_LOCATION :lvalue {
        $TERRAFORM_LOCATION
    };
    sub True(){"True"};
    sub False(){"False"};
    sub dir { return "[@_]" };

    sub new {unittest->TestCase}

    # Set this before running the Test Case
    TERRAFORM_LOCATION = '';
    sub test_aws_alb_listener_port { my ($self) = @_; 
        # Assert that listener port is 443
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
                         'aws_alb_listener',
                        )->property('port')->should_equal('443');
    }

      sub test_aws_alb_listener_protocol { my ($self) = @_; 
        # Assert that protocol is not http
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_alb_listener')->property('protocol')->should_not_equa
+l('http');
        $self->v->resources(
            'aws_alb_listener')->property('protocol')->should_not_equa
+l('HTTP');
      }

    sub test_aws_alb_listener_ssl_policy { my ($self) = @_; 
        # Assert that old ssl policies are not used
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_alb_listener')->property(
            'ssl_policy')->should_not_equal('ELBSecurityPolicy-2015-05
+');
        $self->v->resources(
            'aws_alb_listener')->property(
            'ssl_policy')->should_not_equal('ELBSecurityPolicy-TLS-1-0
+-2015-04');
    }

    sub test_aws_alb_listener_certificate { my ($self) = @_; 
        # Assert that certificate_arn is set
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_alb_listener')->should_have_properties(['certificate_
+arn']);
    }

    sub test_aws_ami_ebs_block_device_encryption { my ($self) = @_; 
        # Assert ami 'ebs_block_device' blocks are encrypted
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_ami')->property(
            'ebs_block_device')->property('encrypted')->should_equal(T
+rue);
    }

    sub test_aws_ami_ebs_block_device_kms { my ($self) = @_; 
        # Assert ami 'ebs_block_device' blocks has KMS
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_ami')->property(
            'ebs_block_device')->should_have_properties(['kms_key_id']
+);
    }

    sub test_aws_ami_copy_encryption { my ($self) = @_; 
        # Assert resources are encrypted
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_ami_copy')->property('encrypted')->should_equal(True)
+;
    }

    sub test_aws_ami_copy_kms { my ($self) = @_; 
        # Assert that a KMS key has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_ami_copy')->should_have_properties(['kms_key_id']);
    }

    sub test_aws_api_gateway_domain_name_certificate { my ($self) = @_
+; 
        # Assert that certificate settings have been configured
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_api_gateway_domain_name')->should_have_properties(
            [
                'certificate_name',
                'certificate_body',
                'certificate_chain',
                'certificate_private_key',
            ]);
    }

    sub test_aws_instance_ebs_block_device_encrypted { my ($self) = @_
+; 
        # Assert ec2 instance 'ebs_block_device' is encrypted
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_instance')->property(
            'ebs_block_device')->property('encrypted')->should_equal(T
+rue);
    }

    sub test_aws_cloudfront_distribution_origin_protocol_policy { my (
+$self) = @_; 
        # Assert that origin receives https only traffic
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_cloudfront_distribution')->property(
            'origin')->property(
            'custom_origin_config')->property(
            'origin_protocol_policy')->should_equal('https-only');
    }

    sub test_aws_cloudfront_distribution_def_cache_viewer_prot_policy 
+{ my ($self) = @_; 
        # Assert that cache protocol doesn't allow all
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_cloudfront_distribution')->property(
            'default_cache_behavior')->property(
            'viewer_protocol_policy')->should_not_equal('allow-all');
    }

    sub test_aws_cloudfront_distribution_cache_beh_viewer_proto_policy
+ { my ($self) = @_; 
        # Assert that cache protocol doesn't allow all
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_cloudfront_distribution')->property(
            'cache_behavior')->property(
            'viewer_protocol_policy')->should_not_equal('allow-all');
    }

    sub test_aws_cloudtrail_kms { my ($self) = @_; 
        # Assert that a KMS key has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_cloudtrail')->should_have_properties(['kms_key_id']);
    }

    sub test_aws_codebuild_project_kms { my ($self) = @_; 
        # Assert that a KMS key has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_codebuild_project')->should_have_properties(['encrypt
+ion_key']);
    }

    sub test_aws_codepipeline_kms { my ($self) = @_; 
        # Assert that a KMS key has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_codepipeline')->should_have_properties(['encryption_k
+ey']);
    }

    sub test_aws_db_instance_encrypted { my ($self) = @_; 
        # Assert that DB is encrypted
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_db_instance')->property('storage_encrypted')->should_
+equal(True);
    }

    sub test_aws_db_instance_kms { my ($self) = @_; 
        # Assert that a KMS key has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_db_instance')->should_have_properties(['kms_key_id'])
+;
    }

    sub test_aws_dms_endpoint_ssl_mode { my ($self) = @_; 
        # Assert that SSL is verified
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_dms_endpoint')->property(
            'ssl_mode')->should_equal('verify-full');
    }

    sub test_aws_dms_endpoint_kms { my ($self) = @_; 
        # Assert that a KMS key has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_dms_endpoint')->should_have_properties(
            [
                'kms_key_arn',
            ]);
    }

    sub test_aws_dms_endpoint_certificate { my ($self) = @_; 
        # Assert that SSL cert has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_dms_endpoint')->should_have_properties(
            [
                'certificate_arn',
            ]);
    }

    sub test_aws_dms_replication_instance_kms { my ($self) = @_; 
        # Assert that a KMS key has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_dms_replication_instance')->should_have_properties(
            ['kms_key_arn']);
    }

    sub test_aws_ebs_volume_encryption { my ($self) = @_; 
        # Assert that all resources of type 'aws_ebs_volume' are encry
+pted
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_ebs_volume')->property('encrypted')->should_equal(Tru
+e);
    }

    sub test_aws_ebs_volume_kms { my ($self) = @_; 
        # Assert that a KMS key has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_ebs_volume')->should_have_properties(['kms_key_id']);
    }

    sub test_aws_efs_file_system_encryption { my ($self) = @_; 
        # Assert that all resources of type 'aws_efs_file_system' are 
+encrypted
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_efs_file_system')->property('encrypted')->should_equa
+l(True);
    }

    sub test_aws_efs_file_system_kms { my ($self) = @_; 
        # Assert that a KMS key has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_efs_file_system')->should_have_properties(['kms_key_i
+d']);
    }

    sub test_aws_elastictranscoder_pipeline_kms { my ($self) = @_; 
        # Assert that a KMS key has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_elastictranscoder_pipeline')->should_have_properties(
            ['aws_kms_key_arn']);
    }

    sub test_aws_elb_listener_port_80 { my ($self) = @_; 
        # Assert ELB listener port is not 80 (http)
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_elb')->property(
            'listener')->property('lb_port')->should_not_equal(80);
    }

    sub test_aws_elb_listener_port_21 { my ($self) = @_; 
        # Assert ELB listener port is not 21 ftp
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_elb')->property(
            'listener')->property('lb_port')->should_not_equal(21);
    }

    sub test_aws_elb_listener_port_23 { my ($self) = @_; 
        # Assert ELB listener port is not 23 telnet
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_elb')->property(
            'listener')->property('lb_port')->should_not_equal(23);
    }

    sub test_aws_elb_listener_port_5900 { my ($self) = @_; 
        # Assert ELB listener port is not 5900 VNC
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_elb')->property(
            'listener')->property('lb_port')->should_not_equal(5900);
    }

    sub test_aws_kinesis_firehose_delivery_stream_s3_kms { my ($self) 
+= @_; 
        # Assert ELB listener port is not 80 (http)
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_kinesis_firehose_delivery_stream')->property(
            's3_configuration')->should_have_properties(['kms_key_arn'
+]);
    }

    sub test_aws_kinesis_firehose_delivery_stream_extended_s3_kms { my
+ ($self) = @_; 
        # Assert ELB listener port is not 80 (http)
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_kinesis_firehose_delivery_stream')->property(
            'extended_s3_configuration')->should_have_properties(
            ['kms_key_arn']);
    }

    sub test_aws_lambda_function_kms { my ($self) = @_; 
        # Assert that a KMS key has been provided
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_lambda_function')->should_have_properties(
            ['kms_key_arn']);
    }

    sub test_aws_opsworks_application_encryption { my ($self) = @_; 
        # Assert resource is encrypted
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_opsworks_application')->property(
            'enable_ssl')->should_equal(True);
    }

    sub test_aws_rds_cluster_encryption { my ($self) = @_; 
        # Assert resource is encrypted
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_rds_cluster')->property(
            'storage_encrypted')->should_equal(True);
    }

    sub test_aws_rds_cluster_kms { my ($self) = @_; 
        # Assert resource has a KMS with CMKs
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_rds_cluster')->should_have_properties(
            ['kms_key_id']);
    }

    sub test_aws_redshift_cluster_encryption { my ($self) = @_; 
        # Assert resource is encrypted
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_redshift_cluster')->property(
            'encrypted')->should_equal(True);
    }

    sub test_aws_redshift_cluster_kms { my ($self) = @_; 
        # Assert resource has a KMS with CMKs
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_redshift_cluster')->should_have_properties(
            ['kms_key_id']);
    }

    sub test_aws_s3_bucket_object_encryption { my ($self) = @_; 
        # Assert resource is encrypted with KMS
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_s3_bucket_object')->property(
            'server_side_encryption')->should_equal('aws:kms');
    }

    sub test_aws_s3_bucket_object_kms { my ($self) = @_; 
        # Assert resource has a KMS with CMKs
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_s3_bucket_object')->should_have_properties(
            ['kms_key_id']);
    }

    sub test_aws_sqs_queue_kms { my ($self) = @_; 
        # Assert resource has a KMS with CMK
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_sqs_queue')->should_have_properties(
            ['kms_master_key_id', 'kms_data_key_reuse_period_seconds']
+);
    }

    sub test_aws_ssm_parameter_encryption { my ($self) = @_; 
        # Assert resource is encrypted with KMS
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_ssm_parameter')->property(
            'type')->should_equal('SecureString');
    }

    sub test_aws_ssm_parameter_kms { my ($self) = @_; 
        # Assert resource has a KMS with CMK
        $self->v->error_if_property_missing();
        $self->v->enable_variable_expansion();
        $self->v->resources(
            'aws_ssm_parameter')->should_have_properties(
            ['key_id']);
        return dir($self->v->resources(
            'aws_ssm_parameter')->should_have_properties(
            ['key_id']));
    }

 }
[download]

output

error_if_property_missing        enable_variable_expansion        reso
+urces    aws_alb_listener    property    port    should_equal    443 
+   
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_alb_listener    property    protocol    should_not_equal
+    http    resources    aws_alb_listener    property    protocol    
+should_not_equal    HTTP    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_alb_listener    property    ssl_policy    should_not_equ
+al    ELBSecurityPolicy-2015-05    resources    aws_alb_listener    p
+roperty    ssl_policy    should_not_equal    ELBSecurityPolicy-TLS-1-
+0-2015-04    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_alb_listener    should_have_properties    ARRAY(0x2ad554
+0)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_ami    property    ebs_block_device    property    encry
+pted    should_equal    True    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_ami    property    ebs_block_device    should_have_prope
+rties    ARRAY(0x2ad5558)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_ami_copy    property    encrypted    should_equal    Tru
+e    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_ami_copy    should_have_properties    ARRAY(0x2ad55a0)  
+  
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_api_gateway_domain_name    should_have_properties    ARR
+AY(0x2ad55e8)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_instance    property    ebs_block_device    property    
+encrypted    should_equal    True    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_cloudfront_distribution    property    origin    propert
+y    custom_origin_config    property    origin_protocol_policy    sh
+ould_equal    https-only    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_cloudfront_distribution    property    default_cache_beh
+avior    property    viewer_protocol_policy    should_not_equal    al
+low-all    
enable_variable_expansion        resources    aws_cloudfront_distribut
+ion    property    cache_behavior    property    viewer_protocol_poli
+cy    should_not_equal    allow-all    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_cloudtrail    should_have_properties    ARRAY(0x2ad5600)
+    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_codebuild_project    should_have_properties    ARRAY(0x2
+ad55a0)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_codepipeline    should_have_properties    ARRAY(0x2ad55e
+8)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_db_instance    property    storage_encrypted    should_e
+qual    True    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_db_instance    should_have_properties    ARRAY(0x2ad5600
+)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_dms_endpoint    property    ssl_mode    should_equal    
+verify-full    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_dms_endpoint    should_have_properties    ARRAY(0x2ad55a
+0)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_dms_endpoint    should_have_properties    ARRAY(0x2ad55e
+8)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_dms_replication_instance    should_have_properties    AR
+RAY(0x2ad5600)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_ebs_volume    property    encrypted    should_equal    T
+rue    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_ebs_volume    should_have_properties    ARRAY(0x2ad55a0)
+    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_efs_file_system    property    encrypted    should_equal
+    True    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_efs_file_system    should_have_properties    ARRAY(0x2ad
+55e8)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_elastictranscoder_pipeline    should_have_properties    
+ARRAY(0x2ad5600)    
enable_variable_expansion        resources    aws_elb    property    l
+istener    property    lb_port    should_not_equal    80    
enable_variable_expansion        resources    aws_elb    property    l
+istener    property    lb_port    should_not_equal    21    
enable_variable_expansion        resources    aws_elb    property    l
+istener    property    lb_port    should_not_equal    23    
enable_variable_expansion        resources    aws_elb    property    l
+istener    property    lb_port    should_not_equal    5900    
enable_variable_expansion        resources    aws_kinesis_firehose_del
+ivery_stream    property    s3_configuration    should_have_propertie
+s    ARRAY(0x2ad55e8)    
enable_variable_expansion        resources    aws_kinesis_firehose_del
+ivery_stream    property    extended_s3_configuration    should_have_
+properties    ARRAY(0x2ad5558)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_lambda_function    should_have_properties    ARRAY(0x2ad
+55a0)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_opsworks_application    property    enable_ssl    should
+_equal    True    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_rds_cluster    property    storage_encrypted    should_e
+qual    True    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_rds_cluster    should_have_properties    ARRAY(0x2ad5540
+)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_redshift_cluster    property    encrypted    should_equa
+l    True    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_redshift_cluster    should_have_properties    ARRAY(0x2a
+d5600)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_s3_bucket_object    property    server_side_encryption  
+  should_equal    aws:kms    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_s3_bucket_object    should_have_properties    ARRAY(0x2a
+d55a0)    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_sqs_queue    should_have_properties    ARRAY(0x2ad5540) 
+   
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_ssm_parameter    property    type    should_equal    Sec
+ureString    
error_if_property_missing        enable_variable_expansion        reso
+urces    aws_ssm_parameter    should_have_properties    ARRAY(0x2ad55
+58)    resources    aws_ssm_parameter    should_have_properties    AR
+RAY(0x2ad55a0)
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

Comment on Re: How to use Perl to decompose Python functions into a CSV? Select or Download Code

Replies are listed 'Best First'.
Re^2: How to use Perl to decompose Python functions into a CSV? by symgryph (Sexton) on Jul 02, 2019 at 19:44 UTC
Thank you so much for this. I didn't have to learn python! "Two Wheels good, Four wheels bad."	[reply]
Re^3: How to use Perl to decompose Python functions into a CSV? by LanX (Saint) on Jul 02, 2019 at 21:27 UTC
Glad it helps.=) But if it's meant for production code, then you should rather replicate the method approach from the second part directly in Python. The "translator" is only a hack working with this limited format. :) Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}	[reply]