diff options
| author | EuAndreh <eu@euandre.org> | 2019-05-21 07:58:12 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2019-05-21 08:09:47 -0300 |
| commit | cc224b7da6db158a72c3479e131a6ad999797313 (patch) | |
| tree | 1b70559a58fe442df932bd136071681528f67f06 /slides | |
| parent | Add Hakyll _cache/ folder to .gitignore (diff) | |
| download | euandre.org-cc224b7da6db158a72c3479e131a6ad999797313.tar.gz euandre.org-cc224b7da6db158a72c3479e131a6ad999797313.tar.xz | |
Add actual tests to website CLI
Diffstat (limited to 'slides')
| -rwxr-xr-x | slides/website-slides | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/slides/website-slides b/slides/website-slides index a1f1466..77f1f63 100755 --- a/slides/website-slides +++ b/slides/website-slides @@ -43,16 +43,22 @@ use Term::ANSIColor; my $help = 0; my $name = ''; +my $test = 0; GetOptions( 'help|h|?' => \$help, - 'name|n=s' => \$name + 'name|n=s' => \$name, + 'test|?' => \$test ) or pod2usage(-verbose => 1, -exitval => 2); pod2usage(-verbose => 2, -exitval => 0) if $help; pod2usage( -verbose => 1, -exitval => 2, -message => colored("Missing required --name argument.", "red") -) if !$name; +) if !$name && !$test; + +if ($test) { + exit; +} my $dirname = dirname(__FILE__); chdir $dirname ; |