; $VER: TestAll.script 0.1 (15.06.2009) jPV/RNO
; Tests all archives in current dir recursively.
; Usage: Execute TestAll.script <lzx|lha|dms|zip|rar|all>
; 
.KEY PACKER/A
failat 20
echo ""
set PACKER2 <PACKER>
if <PACKER> EQ "all"
	set PACKER2 "lzx"
endif
if $PACKER2 EQ "lzx"
	echo "Testing LZX archives..."
	echo "Scanning dirs..."
	list pat #?.lzx lformat "echo *"**E[1F**E[K%P%N*"*Nlzx -q t *"%P%N*"*Nif WARN*Necho *"**E[1F**E[KBROKEN: %P%N**E[1E*"*Nendif" all > T:lzxlista
	execute T:lzxlista
	echo "*E[1F*E[KAll found LZX archives tested."
	echo ""
endif
if <PACKER> EQ "all"
	set PACKER2 "lha"
endif
if $PACKER2 EQ "lha"
	echo "Testing LHA archives..."
	echo "Scanning dirs..."
	list pat #?.lha lformat "echo *"**E[1F**E[K%P%N*"*Nlha -q t *"%P%N*"*Nif WARN*Necho *"**E[1F**E[KBROKEN: %P%N**E[1E*"*Nendif" all > T:lhalista
	execute T:lhalista
	echo "*E[1F*E[KAll found LHA archives tested."
	echo ""
endif
if <PACKER> EQ "all"
	set PACKER2 "dms"
endif
if $PACKER2 EQ "dms"
	echo "Testing DMS archives..."
	echo "Scanning dirs..."
	list pat #?.dms lformat "echo *"**E[1F**E[K%P%N*"*Ndmspro test *"%P%N*" >NIL:*Nif WARN*Necho *"**E[1F**E[KBROKEN: %P%N**E[1E*"*Nendif" all > T:dmslista
	execute T:dmslista
	echo "*E[1F*E[KAll found DMS archives tested."
	echo ""
endif
if <PACKER> EQ "all"
	set PACKER2 "zip"
endif
if $PACKER2 EQ "zip"
	echo "Testing ZIP archives..."
	echo "Scanning dirs..."
	list pat #?.zip lformat "echo *"**E[1F**E[K%P%N*"*Nunzip -t *"%P%N*" >NIL:*Nif WARN*Necho *"**E[1F**E[KBROKEN: %P%N**E[1E*"*Nendif" all > T:ziplista
	execute T:ziplista
	echo "*E[1F*E[KAll found ZIP archives tested."
	echo ""
endif
if <PACKER> EQ "all"
	set PACKER2 "rar"
endif
if $PACKER2 EQ "rar"
	failat 1
	echo "Testing RAR archives..."
	echo "Scanning dirs..."
	list pat #?.rar lformat "echo *"**E[1F**E[K%P%N*"*Nunrar t *"%P%N*" >NIL:" all > T:rarlista
	execute T:rarlista
	echo "All found RAR archives OK!"
	echo ""
endif
unset PACKER2