File Coverage

integ_t/iron_io_integ_tests_common.pl

Criterion	Covered	Total	%
statement	14	26	53.8
branch			n/a
condition			n/a
subroutine	5	8	62.5
pod			n/a
total	19	34	55.8

use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;

use Data::UUID;

# Utility routines

sub create_unique_queue_name {
	my $ug                = Data::UUID->new();
	my $uuid1             = $ug->create();
	my $unique_queue_name =
	  'TESTQUEUE_' . substr($ug->to_string($uuid1), 1, 12);

    return $unique_queue_name;
}

sub create_unique_cache_name {
	my $ug                = Data::UUID->new();
	my $uuid1             = $ug->create();
	my $unique_cache_name =
	  'TESTCACHE_' . substr($ug->to_string($uuid1), 1, 12);

    return $unique_cache_name;
}

sub create_unique_code_package_name {
	my $ug                = Data::UUID->new();
	my $uuid1             = $ug->create();
	my $unique_code_package_name =
	  'TESTWORKER_' . substr($ug->to_string($uuid1), 1, 12);

    return $unique_code_package_name;
}

1;