| 91 |
|
|
| 92 |
|
# Create new sandbox: |
| 93 |
|
mkdir($SANDBOX); |
| 94 |
+ |
mkdir($SANDBOX."/scramdb"); |
| 95 |
|
$self->{WORKDIR} = $SANDBOX; |
| 96 |
|
chdir($self->{WORKDIR}); |
| 97 |
|
$self->{PROJECTNAME} = "SCRAMTestSuite"; |
| 98 |
|
$self->{PROJECTVERSION} = "1.0"; |
| 99 |
< |
$SELF->{PROJECTINSTALLNAME} = "SCRAMtsdev"; |
| 100 |
< |
|
| 99 |
> |
$self->{PROJECTFULLNAME} = $self->{PROJECTNAME}."_".$self->{PROJECTVERSION}; |
| 100 |
> |
$self->{PROJECTINSTALLNAME} = "SCRAMtsdev"; |
| 101 |
> |
|
| 102 |
> |
# Override the installation project db: |
| 103 |
> |
$ENV{SCRAM_USERLOOKUPDB} = $self->{WORKDIR}."/scramdb/project.lookup"; |
| 104 |
> |
system("touch",$ENV{SCRAM_USERLOOKUPDB}); |
| 105 |
|
} |
| 106 |
|
|
| 107 |
|
sub run() |
| 202 |
|
my $status = system($self->{SCRAMMAIN},"project","-h"); |
| 203 |
|
$self->log("project","Test of help functionality", $status); |
| 204 |
|
|
| 205 |
< |
|
| 205 |
> |
# Copy the config and toolbox to the sandbox dir: |
| 206 |
> |
system("cp","-r","../config","."); |
| 207 |
> |
system("cp","-r","../SCRAMToolBox","."); |
| 208 |
> |
|
| 209 |
|
# Create a new project: |
| 210 |
< |
|
| 210 |
> |
my $status = system($self->{SCRAMMAIN},"project","-b","config/bootfile.test"); |
| 211 |
> |
$self->log("project","Test creating new project areas", $status); |
| 212 |
> |
chdir($self->{PROJECTFULLNAME}); |
| 213 |
|
# Install it: |
| 214 |
+ |
my $status = system($self->{SCRAMMAIN},"install"); |
| 215 |
+ |
$self->log("install","Test installing new project areas", $status); |
| 216 |
|
|
| 217 |
|
# Create a developer area, rename it, install it in a different directory: |
| 218 |
< |
|
| 218 |
> |
|
| 219 |
|
# Remove project from database: |
| 220 |
|
|
| 221 |
|
|
