mirror of
https://git.savannah.gnu.org/git/make.git
synced 2025-01-06 05:04:42 +00:00
107 lines
2.6 KiB
Perl
107 lines
2.6 KiB
Perl
# -*-perl-*-
|
|
$description = "Test the load operator.";
|
|
|
|
$details = "Test dynamic loading of modules.";
|
|
|
|
# Don't do anything if this system doesn't support "load"
|
|
exists $FEATURES{load} or return -1;
|
|
|
|
# First build a shared object
|
|
# Provide both a default and non-default load symbol
|
|
|
|
unlink(qw(testload.c testload.so));
|
|
|
|
open(my $F, '> testload.c') or die "open: testload.c: $!\n";
|
|
print $F <<'EOF' ;
|
|
#include <string.h>
|
|
#include <stdio.h>
|
|
|
|
void define_new_function (void *, const char *, int, int, int,
|
|
char *(*)(char *, char **, const char *));
|
|
|
|
char *variable_buffer_output (char *, const char *, unsigned int);
|
|
|
|
static char *
|
|
func_test(char *o, char **argv, const char *funcname)
|
|
{
|
|
return variable_buffer_output (o, funcname, strlen (funcname));
|
|
}
|
|
|
|
int
|
|
testload_gmake_setup ()
|
|
{
|
|
define_new_function (0, "func-a", 1, 1, 1, func_test);
|
|
return 1;
|
|
}
|
|
|
|
int
|
|
explicit_setup ()
|
|
{
|
|
define_new_function (0, "func-b", 1, 1, 1, func_test);
|
|
return 1;
|
|
}
|
|
EOF
|
|
close($F) or die "close: testload.c: $!\n";
|
|
|
|
run_make_test('testload.so: testload.c ; @$(CC) -g -shared -fPIC -o $@ $<',
|
|
'', '');
|
|
|
|
# TEST 1
|
|
run_make_test(q!
|
|
all: ; @echo $(func-a foo) $(func-b bar)
|
|
load testload.so
|
|
!,
|
|
'', "func-a\n");
|
|
|
|
# TEST 2
|
|
# Load a different function
|
|
run_make_test(q!
|
|
all: ; @echo $(func-a foo) $(func-b bar)
|
|
load ./testload.so(explicit_setup)
|
|
!,
|
|
'', "func-b\n");
|
|
|
|
# TEST 3
|
|
# Verify the .LOADED variable
|
|
run_make_test(q!
|
|
all: ; @echo $(filter testload.so,$(.LOADED)) $(func-a foo) $(func-b bar)
|
|
load testload.so(explicit_setup)
|
|
!,
|
|
'', "testload.so func-b\n");
|
|
|
|
# TEST 4
|
|
# Check multiple loads
|
|
run_make_test(q!
|
|
all: ; @echo $(filter testload.so,$(.LOADED)) $(func-a foo) $(func-b bar)
|
|
load ./testload.so
|
|
load testload.so(explicit_setup)
|
|
!,
|
|
'', "testload.so func-a\n");
|
|
|
|
# TEST 5
|
|
# Check auto-rebuild of loaded file that's out of date
|
|
utouch(-10, 'testload.so');
|
|
touch('testload.c');
|
|
|
|
run_make_test(q!
|
|
all: ; @echo $(func-a foo) $(func-b bar)
|
|
load ./testload.so
|
|
testload.so: testload.c ; @echo "rebuilding $@"; $(CC) -g -shared -fPIC -o $@ $<
|
|
!,
|
|
'', "rebuilding testload.so\nfunc-a\n");
|
|
|
|
# TEST 5
|
|
# Check auto-rebuild of loaded file when it doesn't exist
|
|
unlink('testload.so');
|
|
|
|
run_make_test(q!
|
|
all: ; @echo $(func-a foo) $(func-b bar)
|
|
-load ./testload.so(explicit_setup)
|
|
%.so: %.c ; @echo "rebuilding $@"; $(CC) -g -shared -fPIC -o $@ $<
|
|
!,
|
|
'', "rebuilding testload.so\nfunc-b\n");
|
|
|
|
unlink(qw(testload.c testload.so)) unless $keep;
|
|
|
|
# This tells the test driver that the perl test script executed properly.
|
|
1;
|