#!/usr/bin/perl

# note to readers: in perl it's useful, in javascript it isn't
use strict;

# setting up working environment && chdir there
use Cwd 'abs_path';
use File::Basename;
$ENV{HOME} = dirname(abs_path( __FILE__ )) . '/.verdaccio_test_env';
system('rm -rf .verdaccio_test_env ; mkdir .verdaccio_test_env') and quit('fail');
chdir $ENV{HOME};

use Data::Dumper;
my $pid;

sub quit {
	print $_[0]."\n";
	exec("kill $pid ; exit 1");
}

# run verdaccio in a child process
if (($pid = fork()) == 0) {
	exec "../../../bin/verdaccio ../config_nocache.yaml";
	die "exec failed";
}

system('mkdir node_modules') and quit('fail');
system('npm set verdaccio_test_config 12345') and quit('fail');

if (`cat .npmrc` !~ /verdaccio_test_config/) {
	quit "npm is using wrong config";
}

system('npm set registry http://localhost:55501') and quit('fail');
system(q{/bin/echo -e 'test\ntest\ns@s.s\n' | npm adduser}) and quit('fail');

system('npm install jju') and quit('fail');
system('test ! -f ./test-storage/jju/jju-*.tgz') and quit('fail');


quit("
==================================================================
All tests seem to be executed successfully, nothing is broken yet.
==================================================================");