45 lines
1.2 KiB
Perl
Executable File
45 lines
1.2 KiB
Perl
Executable File
#!/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.
|
|
==================================================================");
|