maspalio

/*
 * QtWebKit-powered headless test runner using PhantomJS
 *
 * PhantomJS binaries: http://phantomjs.org/download.html
 * Requires PhantomJS 1.6+ (1.7+ recommended)
 *
 * Run with:
 *   phantomjs runner.js [url-of-your-qunit-testsuite]
 *
 * e.g.

maspalio

#!/usr/bin/env perl

use Dancer;
use File::Copy;
use Wallflower;
use My::App;

my $app = sub {
  my $env = shift;
  

maspalio

#!/usr/bin/env perl

use strict;
use warnings;

use Plack::App::Directory;
use Plack::Builder;

my $pad = Plack::App::Directory->new->to_app;

maspalio

sub hashed_password {
  my ( $pass ) = @_;

  # mkpasswd -m sha-512 $pass $( openssl rand -base64 16 | tr -d '+=' | head -c 16 )

  my $get_salt = sub {
    my ( $out, $err );

    my @command = split ' ', 'openssl rand -base64 16';
    run3 \@command, undef, \$out, \$err;

maspalio

#!/usr/bin/env perl

use Modern::Perl;

use Path::Tiny;
use Test::More;

my $expected = shift // 'pg-semver/test/expected/base.out';

# https://semver.org/#is-there-a-suggested-regular-expression-regex-to-check-a-semver-string