blob: ac34c068b284b6e24df7c00c0408978c0b5d6d42 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!/bin/zsh
mkdir -p Test
local base_path="`pwd`"
local test_script="$base_path/_testing/_irssi_test.pl"
. ./_testing/_get_files_arr.zsh
for scriptfile ($filelist) {
rm -rf "Test/${scriptfile:t:r}"
mkdir "Test/${scriptfile:t:r}"
perlcritic --theme certrule --exclude RequireEndWithOne -2 $scriptfile >"Test/${scriptfile:t:r}/perlcritic.log"
pushd Test
rm -fr .home
mkdir .home
ln -s ../../scripts .home
local filename="$base_path/$scriptfile"
<<STARTUP>.home/startup
^set settings_autosave off
^set use_status_window off
^set autocreate_windows off
^set -clear autocreate_query_level
^set autoclose_windows off
^set reuse_unused_windows on
^set -clear log_close_string
^set -clear log_day_changed
^set -clear log_open_string
^set log_timestamp *
^load perl
^script exec \$\$^W = 1
run ${(qqq)test_script}
^quit
STARTUP
pushd ${scriptfile:t:r}
env TERM=xterm CURRENT_SCRIPT="$scriptfile:t:r" irssi --home="$base_path/Test/.home" >/dev/null 2>stderr.log
if [[ ! -s stderr.log ]] { rm -f stderr.log }
popd
printf . >&2
popd
perl -i -pe 's,\Q$ENV{PWD}/Test/.home/scripts/\E,,g;s,\Q$ENV{PWD}/Test/.home\E,..,g;s,\Q$ENV{PWD}\E,...,g;s,\(\@INC contains:.*? \.\),,g' ~/irc.log.*
mv ~/irc.log.* "Test/${scriptfile:t:r}/irssi.log"
}
exit 0
|
