#!/usr/bin/perl

# Generate a name for a Test Instance.

use strict;

use PS::MOPS::Test::Utility;

my $test_db_name;
$test_db_name="psmops_test_";
$test_db_name.=$ENV{USER} . "_";
$test_db_name.=getFormattedTime();

print $test_db_name;
