mirror of
https://github.com/verdaccio/verdaccio.git
synced 2024-12-23 22:27:34 -05:00
50 lines
1.5 KiB
Perl
Executable file
50 lines
1.5 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__ )) . '/.sinopia_test_env';
|
|
system('rm -rf .sinopia_test_env ; mkdir .sinopia_test_env') and quit('fail');
|
|
chdir $ENV{HOME};
|
|
|
|
use Data::Dumper;
|
|
my $pid;
|
|
|
|
sub quit {
|
|
print $_[0]."\n";
|
|
exec("kill $pid ; exit 1");
|
|
}
|
|
|
|
# run sinopia in a child process
|
|
if (($pid = fork()) == 0) {
|
|
exec "../../../bin/sinopia ../config.yaml";
|
|
die "exec failed";
|
|
}
|
|
|
|
system('mkdir node_modules') and quit('fail');
|
|
system('npm set sinopia_test_config 12345') and quit('fail');
|
|
|
|
if (`cat .npmrc` !~ /sinopia_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');
|
|
(`node -e 'console.log(require("jju").parse("{qwerty:123}").qwerty+456)'` =~ /579/) or quit('fail');
|
|
|
|
system('npm publish ../sinopia-test-1.2.3.tgz') and quit('fail');
|
|
system('npm tag sinopia-test@1.2.3 meow') and quit('fail');
|
|
system('npm install sinopia-test@meow') and quit('fail');
|
|
|
|
(`node -e 'require("sinopia-test")'` =~ /w==w/) or quit('fail');
|
|
|
|
quit("
|
|
==================================================================
|
|
All tests seem to be executed successfully, nothing is broken yet.
|
|
==================================================================");
|
|
|