1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2024-06-01 04:46:08 +02:00
zsh/Test/V01zmodload.ztst

166 lines
3.8 KiB
Plaintext
Raw Normal View History

2001-05-18 14:01:53 +02:00
# Test basic module loading
%prep
# Figure out which modules it ought to be possible to load by looking at
# the config.modules file. This differs for static vs. dynamic builds.
mods=()
2001-05-23 19:05:56 +02:00
deps="$(zmodload -Ld)"
2001-05-18 14:01:53 +02:00
while read name modfile link auto load funcs
do
[[ $name == \#* ]] && continue
eval "$name $modfile $link $auto $load"
[[ $link == no ]] && continue
mods=($mods $name)
moddeps=
modfile=$ZTST_srcdir/../$modfile
eval ${${${(f)"$(<$modfile)"}[(r)moddeps=*]}:-:}
[[ -n $moddeps ]] && zmodload -d $name $=moddeps
2001-05-18 14:01:53 +02:00
done < $ZTST_testdir/../config.modules
2001-05-23 19:05:56 +02:00
zmodunload() {
local m n=$#
(( n == 0 )) && return 0
for m
do
if [[ -z ${(M)${(f)"$(zmodload -d)"}:#*:* $m( *|)} ]]
then
zmodload -u $m && zmodload -ud $m || return 1
shift
else
set $@[2,-1] $m
fi
done
if (( $# < n ))
then
zmodunload $*
else
zmodload -u $*
fi
}
2001-05-18 14:01:53 +02:00
%test
# This first test depends on knowing that zsh is run with +Z from the
# Makefile, and that ztst.zsh loads the parameter module.
zmodload -L
0:List the loaded modules
>zmodload zsh/main
>zmodload zsh/parameter
zmodload zsh/main
1:Test reloading an already-loaded module
?(eval):zmodload:1: module zsh/main already loaded.
2001-05-18 14:01:53 +02:00
2001-05-18 18:20:48 +02:00
# Loop over the modules found above and attempt to load each one. Use
2001-05-18 14:01:53 +02:00
# the -i flag in case dependencies cause multiple modules to be loaded,
2001-05-18 18:20:48 +02:00
# or in case some previous test suite loaded a module.
2001-05-18 14:01:53 +02:00
for m in $mods
do
zmodload -i $m || mods[(r)$m]=()
done
0d:Test loading of all compiled modules
zmodload -e $mods
0d:Check that zsh believes the modules did load
# Now check for proper failure conditions by trying some operations on
# a nonexistent module.
zmodload -i bogus/notamodule
1D:Check that loading a nonexistent module fails
zmodload -u bogus/notamodule
1D:Check that unloading a nonexistent module fails
# Test adding and removing autoloads, using a nonexistent module.
zmodload -ab bogus
zmodload -ub bogus
0:Add/remove autoloaded builtin
zmodload -ac bogus
zmodload -uc bogus
0:Add/remove autoloaded condition
zmodload -ap bogus
zmodload -up bogus
0:Add/remove autoloaded parameter
zmodload -af bogus
zmodload -uf bogus
0:Add/remove autoloaded math function
# If the "example" module is available, test various autoloading behavior.
if [[ $mods[(r)zsh/example] == zsh/example ]]; then
zmodload -u zsh/example
zmodload -ab zsh/example example
builtin example
zmodload -e zsh/example
2001-05-18 18:20:48 +02:00
else print -u8 Warning: zsh/example not linked: not checking autoloading
2001-05-18 14:01:53 +02:00
fi
0d:Autoload a module via a builtin
if [[ $mods[(r)zsh/example] == zsh/example ]]; then
zmodload -u zsh/example
zmodload -ac -I zsh/example ex
[[ exam -ex ple ]]
zmodload -e zsh/example
else :
fi
0d:Autoload a module via a condition
if [[ $mods[(r)zsh/example] == zsh/example ]]; then
zmodload -u zsh/example
zmodload -ap zsh/example exint
: $exint
zmodload -e zsh/example
else :
fi
0d:Autoload a module via a parameter
if [[ $mods[(r)zsh/example] == zsh/example ]]; then
zmodload -u zsh/example
zmodload -af zsh/example sum
(( sum(1) ))
zmodload -e zsh/example
else :
fi
0d:Autoload a module via a math function
# Test module aliases
zmodload -A example=zsh/example
zmodload -A
0:Test creating a module alias
>example -> zsh/example
if [[ $mods[(r)zsh/example] == zsh/example ]]; then
zmodload -u example
zmodload -ab example
builtin example
zmodload -e example
else :
fi
0d:Unload/autoload the module via its alias
zmodload -R example
zmodload -e example
1:Delete the module alias again
2001-05-23 19:05:56 +02:00
# Don't unload the two modules that are required by the test system!
2001-05-18 14:01:53 +02:00
mods[(r)zsh/main]=()
mods[(r)zsh/parameter]=()
2001-05-23 19:05:56 +02:00
zmodunload $mods
2001-05-18 14:01:53 +02:00
0d:Unload the modules loaded by this test suite
%clean
2001-05-23 19:05:56 +02:00
eval "$deps"
unset deps name modfile link auto load funcs mods moddeps
2001-05-23 19:05:56 +02:00
unfunction zmodunload