diff options
author | Lukc <lukc@upyum.com> | 2010-12-12 04:13:19 +0100 |
---|---|---|
committer | Lukc <lukc@upyum.com> | 2010-12-12 04:13:19 +0100 |
commit | 9769d39d792c1e912234e23e663ba8bd21a6386e (patch) | |
tree | 76bf5a6a6c756cf78c73a847b2ff3ec97f048ee7 /make/make-3.81/tests/scripts/functions | |
parent | abb6804a2c95065cbc228c3726781d44ed04e6cd (diff) | |
download | base-9769d39d792c1e912234e23e663ba8bd21a6386e.tar.gz base-9769d39d792c1e912234e23e663ba8bd21a6386e.tar.bz2 base-9769d39d792c1e912234e23e663ba8bd21a6386e.tar.xz base-9769d39d792c1e912234e23e663ba8bd21a6386e.zip |
Recette de make retir?e.
Diffstat (limited to 'make/make-3.81/tests/scripts/functions')
27 files changed, 0 insertions, 1676 deletions
diff --git a/make/make-3.81/tests/scripts/functions/abspath b/make/make-3.81/tests/scripts/functions/abspath deleted file mode 100644 index 84c30ab..0000000 --- a/make/make-3.81/tests/scripts/functions/abspath +++ /dev/null @@ -1,81 +0,0 @@ -# -*-perl-*- -$description = "Test the abspath functions."; - -$details = ""; - -run_make_test(' -ifneq ($(realpath $(abspath .)),$(CURDIR)) - $(warning .: abs="$(abspath .)" real="$(realpath $(abspath .))" curdir="$(CURDIR)") -endif - -ifneq ($(realpath $(abspath ./)),$(CURDIR)) - $(warning ./: abs="$(abspath ./)" real="$(realpath $(abspath ./))" curdir="$(CURDIR)") -endif - -ifneq ($(realpath $(abspath .///)),$(CURDIR)) - $(warning .///: abs="$(abspath .///)" real="$(realpath $(abspath .///))" curdir="$(CURDIR)") -endif - -ifneq ($(abspath /),/) - $(warning /: abspath="$(abspath /)") -endif - -ifneq ($(abspath ///),/) - $(warning ///: abspath="$(abspath ///)") -endif - -ifneq ($(abspath /.),/) - $(warning /.: abspath="$(abspath /.)") -endif - -ifneq ($(abspath ///.),/) - $(warning ///.: abspath="$(abspath ///.)") -endif - -ifneq ($(abspath /./),/) - $(warning /./: abspath="$(abspath /./)") -endif - -ifneq ($(abspath /.///),/) - $(warning /.///: abspath="$(abspath /.///)") -endif - -ifneq ($(abspath /..),/) - $(warning /..: abspath="$(abspath /..)") -endif - -ifneq ($(abspath ///..),/) - $(warning ///..: abspath="$(abspath ///..)") -endif - -ifneq ($(abspath /../),/) - $(warning /../: abspath="$(abspath /../)") -endif - -ifneq ($(abspath /..///),/) - $(warning /..///: abspath="$(abspath /..///)") -endif - - -ifneq ($(abspath /foo/bar/..),/foo) - $(warning /foo/bar/..: abspath="$(abspath /foo/bar/..)") -endif - -ifneq ($(abspath /foo/bar/../../../baz),/baz) - $(warning /foo/bar/../../../baz: abspath="$(abspath /foo/bar/../../../baz)") -endif - -ifneq ($(abspath /foo/bar/../ /..),/foo /) - $(warning /foo/bar/../ /..: abspath="$(abspath /foo/bar/../ /..)") -endif - - -.PHONY: all -all: ; @: -', -'', -''); - - -# This tells the test driver that the perl test script executed properly. -1; diff --git a/make/make-3.81/tests/scripts/functions/addprefix b/make/make-3.81/tests/scripts/functions/addprefix deleted file mode 100644 index 1845552..0000000 --- a/make/make-3.81/tests/scripts/functions/addprefix +++ /dev/null @@ -1,44 +0,0 @@ -$description = "The following test creates a makefile to test the addprefix " - ."function."; - -$details = ""; - -# IF YOU NEED >1 MAKEFILE FOR THIS TEST, USE &get_tmpfile; TO GET -# THE NAME OF THE MAKEFILE. THIS INSURES CONSISTENCY AND KEEPS TRACK OF -# HOW MANY MAKEFILES EXIST FOR EASY DELETION AT THE END. -# EXAMPLE: $makefile2 = &get_tmpfile; - - -open(MAKEFILE,"> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE "string := \$(addprefix src${pathsep},a.b.z.foo hacks) \n" - ."all: \n" - ."\t\@echo \$(string) \n"; - -# END of Contents of MAKEFILE - -close(MAKEFILE); - -&run_make_with_options($makefile,"",&get_logfile,0); - -# Create the answer to what should be produced by this Makefile -$answer = "src${pathsep}a.b.z.foo src${pathsep}hacks\n"; - -# COMPARE RESULTS - -# In this call to compare output, you should use the call &get_logfile(1) -# to send the name of the last logfile created. You may also use -# the special call &get_logfile(1) which returns the same as &get_logfile(1). - -&compare_output($answer,&get_logfile(1)); - -# This tells the test driver that the perl test script executed properly. -1; - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/addsuffix b/make/make-3.81/tests/scripts/functions/addsuffix deleted file mode 100644 index da4fbb7..0000000 --- a/make/make-3.81/tests/scripts/functions/addsuffix +++ /dev/null @@ -1,36 +0,0 @@ -# -*-perl-*- -$description = "Test the addsuffix function."; - -$details = ""; - - -open(MAKEFILE,"> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE <<EOMAKE; -string := \$(addsuffix .c,src${pathsep}a.b.z.foo hacks) -one: ; \@echo \$(string) - -two: ; \@echo \$(addsuffix foo,) -EOMAKE - -close(MAKEFILE); - - -# TEST 0 - -&run_make_with_options($makefile, "", &get_logfile); -$answer = "src${pathsep}a.b.z.foo.c hacks.c\n"; -&compare_output($answer,&get_logfile(1)); - - -# TEST 1 - -&run_make_with_options($makefile, "two", &get_logfile); -$answer = "\n"; -&compare_output($answer,&get_logfile(1)); - - -# This tells the test driver that the perl test script executed properly. -1; diff --git a/make/make-3.81/tests/scripts/functions/andor b/make/make-3.81/tests/scripts/functions/andor deleted file mode 100644 index 62e0c2e..0000000 --- a/make/make-3.81/tests/scripts/functions/andor +++ /dev/null @@ -1,50 +0,0 @@ -# -*-perl-*- -$description = "Test the and & or functions.\n"; - -$details = "Try various uses of and & or to ensure they all give the correct -results.\n"; - -# TEST #0 -# For $(and ...), it will either be empty or the last value -run_make_test(' -NEQ = $(subst $1,,$2) -f = -t = true - -all: - @echo 1 $(and ,$t) - @echo 2 $(and $t) - @echo 3 $(and $t,) - @echo 4 $(and z,true,$f,false) - @echo 5 $(and $t,$f,$(info bad short-circuit)) - @echo 6 $(and $(call NEQ,a,b),true) - @echo 7 $(and $(call NEQ,a,a),true) - @echo 8 $(and z,true,fal,se) hi - @echo 9 $(and ,true,fal,se)there - @echo 10 $(and $(e) ,$t)', - '', - "1\n2 true\n3\n4\n5\n6 true\n7\n8 se hi\n9 there\n10\n"); - -# TEST #1 -# For $(or ...), it will either be empty or the first true value -run_make_test(' -NEQ = $(subst $1,,$2) -f = -t = true - -all: - @echo 1 $(or , ) - @echo 2 $(or $t) - @echo 3 $(or ,$t) - @echo 4 $(or z,true,$f,false) - @echo 5 $(or $t,$(info bad short-circuit)) - @echo 6 $(or $(info short-circuit),$t) - @echo 7 $(or $(call NEQ,a,b),true) - @echo 8 $(or $(call NEQ,a,a),true) - @echo 9 $(or z,true,fal,se) hi - @echo 10 $(or ,true,fal,se)there - @echo 11 $(or $(e) ,$f)', - '', - "short-circuit\n1\n2 true\n3 true\n4 z\n5 true\n6 true\n7 b\n8 true\n9 z hi\n10 truethere\n11\n"); - -1; diff --git a/make/make-3.81/tests/scripts/functions/basename b/make/make-3.81/tests/scripts/functions/basename deleted file mode 100644 index 08f2ea5..0000000 --- a/make/make-3.81/tests/scripts/functions/basename +++ /dev/null @@ -1,44 +0,0 @@ -$description = "The following test creates a makefile to test the suffix " - ."function."; - -$details = ""; - -# IF YOU NEED >1 MAKEFILE FOR THIS TEST, USE &get_tmpfile; TO GET -# THE NAME OF THE MAKEFILE. THIS INSURES CONSISTENCY AND KEEPS TRACK OF -# HOW MANY MAKEFILES EXIST FOR EASY DELETION AT THE END. -# EXAMPLE: $makefile2 = &get_tmpfile; - - -open(MAKEFILE,"> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE "string := \$(basename src${pathsep}a.b.z.foo.c src${pathsep}hacks src.bar${pathsep}a.b.z.foo.c src.bar${pathsep}hacks hacks) \n" - ."all: \n" - ."\t\@echo \$(string) \n"; - -# END of Contents of MAKEFILE - -close(MAKEFILE); - -&run_make_with_options($makefile,"",&get_logfile,0); - -# Create the answer to what should be produced by this Makefile -$answer = "src${pathsep}a.b.z.foo src${pathsep}hacks src.bar${pathsep}a.b.z.foo src.bar${pathsep}hacks hacks\n"; - -# COMPARE RESULTS - -# In this call to compare output, you should use the call &get_logfile(1) -# to send the name of the last logfile created. You may also use -# the special call &get_logfile(1) which returns the same as &get_logfile(1). - -&compare_output($answer,&get_logfile(1)); - -# This tells the test driver that the perl test script executed properly. -1; - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/call b/make/make-3.81/tests/scripts/functions/call deleted file mode 100644 index f3c5470..0000000 --- a/make/make-3.81/tests/scripts/functions/call +++ /dev/null @@ -1,99 +0,0 @@ -# -*-perl-*- -$description = "Test the call function.\n"; - -$details = "Try various uses of call and ensure they all give the correct -results.\n"; - -open(MAKEFILE, "> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE <<'EOMAKE'; -# Simple, just reverse two things -# -reverse = $2 $1 - -# A complex `map' function, using recursive `call'. -# -map = $(foreach a,$2,$(call $1,$a)) - -# Test using a builtin; this is silly as it's simpler to do without call -# -my-notdir = $(call notdir,$(1)) - -# Test using non-expanded builtins -# -my-foreach = $(foreach $(1),$(2),$(3)) -my-if = $(if $(1),$(2),$(3)) - -# Test recursive invocations of call with different arguments -# -one = $(1) $(2) $(3) -two = $(call one,$(1),foo,$(2)) - -# Test recursion on the user-defined function. As a special case make -# won't error due to this. -# Implement transitive closure using $(call ...) -# -DEP_foo = bar baz quux -DEP_baz = quux blarp -rest = $(wordlist 2,$(words ${1}),${1}) -tclose = $(if $1,$(firstword $1) \ - $(call tclose,$(sort ${DEP_$(firstword $1)} $(call rest,$1)))) - -all: ; @echo '$(call reverse,bar,foo)'; \ - echo '$(call map,origin,MAKE reverse map)'; \ - echo '$(call my-notdir,a/b c/d e/f)'; \ - echo '$(call my-foreach)'; \ - echo '$(call my-foreach,a,,,)'; \ - echo '$(call my-if,a,b,c)'; \ - echo '$(call two,bar,baz)'; \ - echo '$(call tclose,foo)' - - - -EOMAKE - -# These won't work until/unless PR/1527 is resolved. -# echo '$(call my-foreach,a,x y z,$(a)$(a))'; \ -# echo '$(call my-if,,$(warning don't print this),ok)' -# -# $answer = "xx yy zz\nok\n"; - -# END of Contents of MAKEFILE - -close(MAKEFILE); - -&run_make_with_options($makefile, "", &get_logfile); -$answer = "foo bar\ndefault file file\nb d f\n\n\nb\nbar foo baz\nfoo bar baz blarp quux \n"; -&compare_output($answer, &get_logfile(1)); - - -# TEST eclipsing of arguments when invoking sub-calls - -$makefile2 = &get_tmpfile; - -open(MAKEFILE,"> $makefile2"); - -print MAKEFILE <<'EOF'; - -all = $1 $2 $3 $4 $5 $6 $7 $8 $9 - -level1 = $(call all,$1,$2,$3,$4,$5) -level2 = $(call level1,$1,$2,$3) -level3 = $(call level2,$1,$2,$3,$4,$5) - -all: - @echo $(call all,1,2,3,4,5,6,7,8,9,10,11) - @echo $(call level1,1,2,3,4,5,6,7,8) - @echo $(call level2,1,2,3,4,5,6,7,8) - @echo $(call level3,1,2,3,4,5,6,7,8) -EOF - -close(MAKEFILE); - -&run_make_with_options($makefile2, "", &get_logfile); -$answer = "1 2 3 4 5 6 7 8 9\n1 2 3 4 5\n1 2 3\n1 2 3\n"; -&compare_output($answer,&get_logfile(1)); - -1; diff --git a/make/make-3.81/tests/scripts/functions/dir b/make/make-3.81/tests/scripts/functions/dir deleted file mode 100644 index f48fb8c..0000000 --- a/make/make-3.81/tests/scripts/functions/dir +++ /dev/null @@ -1,44 +0,0 @@ -$description = "The following test creates a makefile to test the dir " - ."function."; - -$details = ""; - -# IF YOU NEED >1 MAKEFILE FOR THIS TEST, USE &get_tmpfile; TO GET -# THE NAME OF THE MAKEFILE. THIS INSURES CONSISTENCY AND KEEPS TRACK OF -# HOW MANY MAKEFILES EXIST FOR EASY DELETION AT THE END. -# EXAMPLE: $makefile2 = &get_tmpfile; - - -open(MAKEFILE,"> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE "string := \$(dir src${pathsep}foo.c hacks) \n" - ."all: \n" - ."\t\@echo \$(string) \n"; - -# END of Contents of MAKEFILE - -close(MAKEFILE); - -&run_make_with_options($makefile,"",&get_logfile,0); - -# Create the answer to what should be produced by this Makefile -$answer = "src${pathsep} .${pathsep}\n"; - -# COMPARE RESULTS - -# In this call to compare output, you should use the call &get_logfile(1) -# to send the name of the last logfile created. You may also use -# the special call &get_logfile(1) which returns the same as &get_logfile(1). - -&compare_output($answer,&get_logfile(1)); - -# This tells the test driver that the perl test script executed properly. -1; - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/error b/make/make-3.81/tests/scripts/functions/error deleted file mode 100644 index 0d61177..0000000 --- a/make/make-3.81/tests/scripts/functions/error +++ /dev/null @@ -1,73 +0,0 @@ -# -*-Perl-*- - -$description = "\ -The following test creates a makefile to test the error function."; - -$details = ""; - -open(MAKEFILE,"> $makefile"); - -print MAKEFILE 'err = $(error Error found!) - -ifdef ERROR1 -$(error error is $(ERROR1)) -endif - -ifdef ERROR2 -$(error error is $(ERROR2)) -endif - -ifdef ERROR3 -all: some; @echo $(error error is $(ERROR3)) -endif - -ifdef ERROR4 -all: some; @echo error is $(ERROR4) - @echo $(error error is $(ERROR4)) -endif - -some: ; @echo Some stuff - -testvar: ; @: $(err) -'; - -close(MAKEFILE); - -# Test #1 - -&run_make_with_options($makefile, "ERROR1=yes", &get_logfile, 512); -$answer = "$makefile:4: *** error is yes. Stop.\n"; -&compare_output($answer,&get_logfile(1)); - -# Test #2 - -&run_make_with_options($makefile, "ERROR2=no", &get_logfile, 512); -$answer = "$makefile:8: *** error is no. Stop.\n"; -&compare_output($answer,&get_logfile(1)); - -# Test #3 - -&run_make_with_options($makefile, "ERROR3=maybe", &get_logfile, 512); -$answer = "Some stuff\n$makefile:12: *** error is maybe. Stop.\n"; -&compare_output($answer,&get_logfile(1)); - -# Test #4 - -&run_make_with_options($makefile, "ERROR4=definitely", &get_logfile, 512); -$answer = "Some stuff\n$makefile:16: *** error is definitely. Stop.\n"; -&compare_output($answer,&get_logfile(1)); - -# Test #5 - -&run_make_with_options($makefile, "testvar", &get_logfile, 512); -$answer = "$makefile:22: *** Error found!. Stop.\n"; -&compare_output($answer,&get_logfile(1)); - -# This tells the test driver that the perl test script executed properly. -1; - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/eval b/make/make-3.81/tests/scripts/functions/eval deleted file mode 100644 index 6f02a7a..0000000 --- a/make/make-3.81/tests/scripts/functions/eval +++ /dev/null @@ -1,169 +0,0 @@ -# -*-perl-*- - -$description = "Test the eval function."; - -$details = "This is a test of the eval function in GNU make. -This function will evaluate inline makefile syntax and incorporate the -results into its internal database.\n"; - -open(MAKEFILE,"> $makefile"); - -print MAKEFILE <<'EOF'; -define Y - all:: ; @echo $AA - A = B -endef - -X = $(eval $(value Y)) - -$(eval $(shell echo A = A)) -$(eval $(Y)) -$(eval A = C) -$(eval $(X)) -EOF - -close(MAKEFILE); - -&run_make_with_options($makefile, "", &get_logfile); - -# Create the answer to what should be produced by this Makefile -$answer = "AA\nBA\n"; - -&compare_output($answer,&get_logfile(1)); - -# Test to make sure defining variables when we have extra scope pushed works -# as expected. - -$makefile2 = &get_tmpfile; - -open(MAKEFILE,"> $makefile2"); - -print MAKEFILE <<'EOF'; -VARS = A B - -VARSET = $(1) = $(2) - -$(foreach v,$(VARS),$(eval $(call VARSET,$v,$v))) - -all: ; @echo A = $(A) B = $(B) -EOF - -close(MAKEFILE); - -&run_make_with_options($makefile2, "", &get_logfile); - -# Create the answer to what should be produced by this Makefile -$answer = "A = A B = B\n"; - -&compare_output($answer,&get_logfile(1)); - -# Test to make sure eval'ing inside conditionals works properly - -$makefile3 = &get_tmpfile; - -open(MAKEFILE,"> $makefile3"); - -print MAKEFILE <<'EOF'; -FOO = foo - -all:: ; @echo it - -define Y - all:: ; @echo worked -endef - -ifdef BAR -$(eval $(Y)) -endif - -EOF - -close(MAKEFILE); - -&run_make_with_options($makefile3, "", &get_logfile); -$answer = "it\n"; -&compare_output($answer,&get_logfile(1)); - -&run_make_with_options($makefile3, "BAR=1", &get_logfile); -$answer = "it\nworked\n"; -&compare_output($answer,&get_logfile(1)); - - -# TEST very recursive invocation of eval - -$makefile3 = &get_tmpfile; - -open(MAKEFILE,"> $makefile3"); - -print MAKEFILE <<'EOF'; -..9 := 0 1 2 3 4 5 6 7 8 9 -rev=$(eval res:=)$(foreach word,$1,$(eval res:=${word} ${res}))${res} -a:=$(call rev,${..9}) -all: ; @echo '[$(a)]' - -EOF - -close(MAKEFILE); - -&run_make_with_options($makefile3, "", &get_logfile); -$answer = "[ 9 8 7 6 5 4 3 2 1 0 ]\n"; -&compare_output($answer,&get_logfile(1)); - - -# TEST eval with no filename context. -# The trick here is that because EVAR is taken from the environment, it must -# be evaluated before every command is invoked. Make sure that works, when -# we have no file context for reading_file (bug # 6195) - -$makefile4 = &get_tmpfile; - -open(MAKEFILE,"> $makefile4"); - -print MAKEFILE <<'EOF'; -EVAR = $(eval FOBAR = 1) -all: ; @echo "OK" - -EOF - -close(MAKEFILE); - -$extraENV{EVAR} = '1'; -&run_make_with_options($makefile4, "", &get_logfile); -$answer = "OK\n"; -&compare_output($answer,&get_logfile(1)); - - -# Clean out previous information to allow new run_make_test() interface. -# If we ever convert all the above to run_make_test() we can remove this line. -$makefile = undef; - -# Test handling of backslashes in strings to be evaled. - -run_make_test(' -define FOO -all: ; @echo hello \ -world -endef -$(eval $(FOO)) -', '', 'hello world'); - -run_make_test(' -define FOO -all: ; @echo '."'".'he\llo'."'".' - @echo world -endef -$(eval $(FOO)) -', '', 'he\llo -world'); - - -# We don't allow new target/prerequisite relationships to be defined within a -# command script, because these are evaluated after snap_deps() and that -# causes lots of problems (like core dumps!) -# See Savannah bug # 12124. - -run_make_test('deps: ; $(eval deps: foo)', '', - '#MAKEFILE#:1: *** prerequisites cannot be defined in command scripts. Stop.', - 512); - -1; diff --git a/make/make-3.81/tests/scripts/functions/filter-out b/make/make-3.81/tests/scripts/functions/filter-out deleted file mode 100644 index 6c8b27a..0000000 --- a/make/make-3.81/tests/scripts/functions/filter-out +++ /dev/null @@ -1,28 +0,0 @@ -# -*-perl-*- - -$description = "Test the filter-out function."; - -$details = "The makefile created in this test has two variables. The -filter-out function is first used to discard names ending in -.o with a single simple pattern. The second filter-out function -augments the simple pattern with three literal names, which are -also added to the text argument. This tests an internal hash table -which is only used if there are multiple literals present in both -the pattern and text arguments. The result of both filter-out -functions is the same single .elc name.\n"; - -open(MAKEFILE,"> $makefile"); - -print MAKEFILE <<'EOF'; -files1 := $(filter-out %.o, foo.elc bar.o lose.o) -files2 := $(filter-out foo.i bar.i lose.i %.o, foo.i bar.i lose.i foo.elc bar.o lose.o) -all: ; @echo $(files1) $(files2) -EOF - -close(MAKEFILE); - -&run_make_with_options($makefile, "", &get_logfile, 0); -$answer = "foo.elc foo.elc\n"; -&compare_output($answer,&get_logfile(1)); - -1; diff --git a/make/make-3.81/tests/scripts/functions/findstring b/make/make-3.81/tests/scripts/functions/findstring deleted file mode 100644 index 48abede..0000000 --- a/make/make-3.81/tests/scripts/functions/findstring +++ /dev/null @@ -1,47 +0,0 @@ -$description = "The following test creates a makefile to test the findstring " - ."function."; - -$details = ""; - -# IF YOU NEED >1 MAKEFILE FOR THIS TEST, USE &get_tmpfile; TO GET -# THE NAME OF THE MAKEFILE. THIS INSURES CONSISTENCY AND KEEPS TRACK OF -# HOW MANY MAKEFILES EXIST FOR EASY DELETION AT THE END. -# EXAMPLE: $makefile2 = &get_tmpfile; - - -open(MAKEFILE,"> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE "string := \$(findstring port, reporter)\n" - ."all: \n" - ."\t\@echo \$(string) \n"; - -# END of Contents of MAKEFILE - -close(MAKEFILE); - -&run_make_with_options($makefile, - "", - &get_logfile, - 0); - -# Create the answer to what should be produced by this Makefile -$answer = "port\n"; - -# COMPARE RESULTS - -# In this call to compare output, you should use the call &get_logfile(1) -# to send the name of the last logfile created. You may also use -# the special call &get_logfile(1) which returns the same as &get_logfile(1). - -&compare_output($answer,&get_logfile(1)); - -# This tells the test driver that the perl test script executed properly. -1; - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/flavor b/make/make-3.81/tests/scripts/functions/flavor deleted file mode 100644 index 80d6be7..0000000 --- a/make/make-3.81/tests/scripts/functions/flavor +++ /dev/null @@ -1,44 +0,0 @@ -# -*-perl-*- -$description = "Test the flavor function."; - -$details = ""; - - -# Test #1: Test general logic. -# -run_make_test(' -s := s -r = r - -$(info u $(flavor u)) -$(info s $(flavor s)) -$(info r $(flavor r)) - -ra += ra -rc ?= rc - -$(info ra $(flavor ra)) -$(info rc $(flavor rc)) - -s += s -r += r - -$(info s $(flavor s)) -$(info r $(flavor r)) - - -.PHONY: all -all:;@: -', -'', -'u undefined -s simple -r recursive -ra recursive -rc recursive -s simple -r recursive'); - - -# This tells the test driver that the perl test script executed properly. -1; diff --git a/make/make-3.81/tests/scripts/functions/foreach b/make/make-3.81/tests/scripts/functions/foreach deleted file mode 100644 index 82e99d7..0000000 --- a/make/make-3.81/tests/scripts/functions/foreach +++ /dev/null @@ -1,77 +0,0 @@ -# -*-perl-*- -# $Id: foreach,v 1.5 2006/03/10 02:20:46 psmith Exp $ - -$description = "Test the foreach function."; - -$details = "This is a test of the foreach function in gnu make. -This function starts with a space separated list of -names and a variable. Each name in the list is subsituted -into the variable and the given text evaluated. The general -form of the command is $(foreach var,$list,$text). Several -types of foreach loops are tested\n"; - - -# TEST 0 - -# Set an environment variable that we can test in the makefile. -$extraENV{FOOFOO} = 'foo foo'; - -run_make_test("space = ' '".' -null := -auto_var = udef space CC null FOOFOO MAKE foo CFLAGS WHITE @ < -foo = bletch null @ garf -av = $(foreach var, $(auto_var), $(origin $(var)) ) -override WHITE := BLACK -for_var = $(addsuffix .c,foo $(null) $(foo) $(space) $(av) ) -fe = $(foreach var2, $(for_var),$(subst .c,.o, $(var2) ) ) -all: auto for2 -auto : ; @echo $(av) -for2: ; @echo $(fe)', - '-e WHITE=WHITE CFLAGS=', - "undefined file default file environment default file command line override automatic automatic -foo.o bletch.o null.o @.o garf.o .o .o undefined.o file.o default.o file.o environment.o default.o file.o command.o line.o override.o automatic.o automatic.o"); - -delete $extraENV{FOOFOO}; - -# TEST 1: Test that foreach variables take precedence over global -# variables in a global scope (like inside an eval). Tests bug #11913 - -run_make_test(' -.PHONY: all target -all: target - -x := BAD - -define mktarget -target: x := $(x) -target: ; @echo "$(x)" -endef - -x := GLOBAL - -$(foreach x,FOREACH,$(eval $(value mktarget)))', - '', - 'FOREACH'); - - -# TEST 2: Check some error conditions. - -run_make_test(' -x = $(foreach ) -y = $x - -all: ; @echo $y', - '', - "#MAKEFILE#:2: *** insufficient number of arguments (1) to function `foreach'. Stop.", - 512); - -run_make_test(' -x = $(foreach ) -y := $x - -all: ; @echo $y', - '', - "#MAKEFILE#:2: *** insufficient number of arguments (1) to function `foreach'. Stop.", - 512); - -1; diff --git a/make/make-3.81/tests/scripts/functions/if b/make/make-3.81/tests/scripts/functions/if deleted file mode 100644 index 8604e4f..0000000 --- a/make/make-3.81/tests/scripts/functions/if +++ /dev/null @@ -1,33 +0,0 @@ -# -*-perl-*- -$description = "Test the if function.\n"; - -$details = "Try various uses of if and ensure they all give the correct -results.\n"; - -open(MAKEFILE, "> $makefile"); - -print MAKEFILE <<EOMAKE; -NEQ = \$(subst \$1,,\$2) -e = - -all: -\t\@echo 1 \$(if ,true,false) -\t\@echo 2 \$(if ,true,) -\t\@echo 3 \$(if ,true) -\t\@echo 4 \$(if z,true,false) -\t\@echo 5 \$(if z,true,\$(shell echo hi)) -\t\@echo 6 \$(if ,\$(shell echo hi),false) -\t\@echo 7 \$(if \$(call NEQ,a,b),true,false) -\t\@echo 8 \$(if \$(call NEQ,a,a),true,false) -\t\@echo 9 \$(if z,true,fal,se) hi -\t\@echo 10 \$(if ,true,fal,se)there -\t\@echo 11 \$(if \$(e) ,true,false) -EOMAKE - -close(MAKEFILE); - -&run_make_with_options($makefile, "", &get_logfile); -$answer = "1 false\n2\n3\n4 true\n5 true\n6 false\n7 true\n8 false\n9 true hi\n10 fal,sethere\n11 false\n"; -&compare_output($answer, &get_logfile(1)); - -1; diff --git a/make/make-3.81/tests/scripts/functions/join b/make/make-3.81/tests/scripts/functions/join deleted file mode 100644 index 302c307..0000000 --- a/make/make-3.81/tests/scripts/functions/join +++ /dev/null @@ -1,44 +0,0 @@ -$description = "The following test creates a makefile to test the join " - ."function."; - -$details = ""; - -# IF YOU NEED >1 MAKEFILE FOR THIS TEST, USE &get_tmpfile; TO GET -# THE NAME OF THE MAKEFILE. THIS INSURES CONSISTENCY AND KEEPS TRACK OF -# HOW MANY MAKEFILES EXIST FOR EASY DELETION AT THE END. -# EXAMPLE: $makefile2 = &get_tmpfile; - - -open(MAKEFILE,"> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE "string := \$(join a b c,foo hacks .pl1) \n" - ."all: \n" - ."\t\@echo \$(string) \n"; - -# END of Contents of MAKEFILE - -close(MAKEFILE); - -&run_make_with_options($makefile,"",&get_logfile,0); - -# Create the answer to what should be produced by this Makefile -$answer = "afoo bhacks c.pl1\n"; - -# COMPARE RESULTS - -# In this call to compare output, you should use the call &get_logfile(1) -# to send the name of the last logfile created. You may also use -# the special call &get_logfile(1) which returns the same as &get_logfile(1). - -&compare_output($answer,&get_logfile(1)); - -# This tells the test driver that the perl test script executed properly. -1; - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/notdir b/make/make-3.81/tests/scripts/functions/notdir deleted file mode 100644 index 4ed8f9c..0000000 --- a/make/make-3.81/tests/scripts/functions/notdir +++ /dev/null @@ -1,44 +0,0 @@ -$description = "The following test creates a makefile to test the notdir " - ."function."; - -$details = ""; - -# IF YOU NEED >1 MAKEFILE FOR THIS TEST, USE &get_tmpfile; TO GET -# THE NAME OF THE MAKEFILE. THIS INSURES CONSISTENCY AND KEEPS TRACK OF -# HOW MANY MAKEFILES EXIST FOR EASY DELETION AT THE END. -# EXAMPLE: $makefile2 = &get_tmpfile; - - -open(MAKEFILE,"> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE "string := \$(notdir ${pathsep}src${pathsep}foo.c hacks) \n" - ."all: \n" - ."\t\@echo \$(string) \n"; - -# END of Contents of MAKEFILE - -close(MAKEFILE); - -&run_make_with_options($makefile,"",&get_logfile,0); - -# Create the answer to what should be produced by this Makefile -$answer = "foo.c hacks\n"; - -# COMPARE RESULTS - -# In this call to compare output, you should use the call &get_logfile(1) -# to send the name of the last logfile created. You may also use -# the special call &get_logfile(1) which returns the same as &get_logfile(1). - -&compare_output($answer,&get_logfile(1)); - -# This tells the test driver that the perl test script executed properly. -1; - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/origin b/make/make-3.81/tests/scripts/functions/origin deleted file mode 100644 index f7b7eb8..0000000 --- a/make/make-3.81/tests/scripts/functions/origin +++ /dev/null @@ -1,51 +0,0 @@ -# -*-perl-*- - -$description = "Test the origin function."; - -$details = "This is a test of the origin function in gnu make. -This function will report on where a variable was -defined per the following list: - -'undefined' never defined -'default' default definition -'environment' environment var without -e -'environment override' environment var with -e -'file' defined in makefile -'command line' defined on the command line -'override' defined by override in makefile -'automatic' Automatic variable\n"; - -# Set an environment variable -$extraENV{MAKETEST} = 1; - -run_make_test(' -foo := bletch garf -auto_var = undefined CC MAKETEST MAKE foo CFLAGS WHITE @ -av = $(foreach var, $(auto_var), $(origin $(var)) ) -override WHITE := BLACK -all: auto - @echo $(origin undefined) - @echo $(origin CC) - @echo $(origin MAKETEST) - @echo $(origin MAKE) - @echo $(origin foo) - @echo $(origin CFLAGS) - @echo $(origin WHITE) - @echo $(origin @) -auto : - @echo $(av)', - '-e WHITE=WHITE CFLAGS=', - 'undefined default environment default file command line override automatic -undefined -default -environment -default -file -command line -override -automatic'); - -# Reset an environment variable -delete $extraENV{MAKETEST}; - -1; diff --git a/make/make-3.81/tests/scripts/functions/realpath b/make/make-3.81/tests/scripts/functions/realpath deleted file mode 100644 index 9b503b4..0000000 --- a/make/make-3.81/tests/scripts/functions/realpath +++ /dev/null @@ -1,82 +0,0 @@ -# -*-perl-*- -$description = "Test the realpath functions."; - -$details = ""; - -run_make_test(' -ifneq ($(realpath .),$(CURDIR)) - $(error ) -endif - -ifneq ($(realpath ./),$(CURDIR)) - $(error ) -endif - -ifneq ($(realpath .///),$(CURDIR)) - $(error ) -endif - -ifneq ($(realpath /),/) - $(error ) -endif - -ifneq ($(realpath /.),/) - $(error ) -endif - -ifneq ($(realpath /./),/) - $(error ) -endif - -ifneq ($(realpath /.///),/) - $(error ) -endif - -ifneq ($(realpath /..),/) - $(error ) -endif - -ifneq ($(realpath /../),/) - $(error ) -endif - -ifneq ($(realpath /..///),/) - $(error ) -endif - -ifneq ($(realpath . /..),$(CURDIR) /) - $(error ) -endif - -.PHONY: all -all: ; @: -', - '', - ''); - -# On Windows platforms, "//" means something special. So, don't do these -# tests there. - -if ($port_type ne 'W32') { - run_make_test(' -ifneq ($(realpath ///),/) - $(error ) -endif - -ifneq ($(realpath ///.),/) - $(error ) -endif - -ifneq ($(realpath ///..),/) - $(error ) -endif - -.PHONY: all -all: ; @:', - '', - ''); -} - - -# This tells the test driver that the perl test script executed properly. -1; diff --git a/make/make-3.81/tests/scripts/functions/shell b/make/make-3.81/tests/scripts/functions/shell deleted file mode 100644 index ecea4cf..0000000 --- a/make/make-3.81/tests/scripts/functions/shell +++ /dev/null @@ -1,23 +0,0 @@ -# -*-perl-*- - -$description = 'Test the $(shell ...) function.'; - -$details = ''; - - -# Test shells inside rules. -run_make_test('.PHONY: all -all: ; @echo $(shell echo hi) -','','hi'); - - -# Test shells inside exported environment variables. -# This is the test that fails if we try to put make exported variables into -# the environment for a $(shell ...) call. -run_make_test(' -export HI = $(shell echo hi) -.PHONY: all -all: ; @echo $$HI -','','hi'); - -1; diff --git a/make/make-3.81/tests/scripts/functions/sort b/make/make-3.81/tests/scripts/functions/sort deleted file mode 100644 index d472102..0000000 --- a/make/make-3.81/tests/scripts/functions/sort +++ /dev/null @@ -1,55 +0,0 @@ -$description = "The following test creates a makefile to verify\n" - ."the ability of make to sort lists of object. Sort\n" - ."will also remove any duplicate entries. This will also\n" - ."be tested."; - -$details = "The make file is built with a list of object in a random order\n" - ."and includes some duplicates. Make should sort all of the elements\n" - ."remove all duplicates\n"; - -open(MAKEFILE,"> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE "foo := moon_light days \n" - ."foo1:= jazz\n" - ."bar := captured \n" - ."bar2 = boy end, has rise A midnight \n" - ."bar3:= \$(foo)\n" - ."s1 := _by\n" - ."s2 := _and_a\n" - ."t1 := \$(addsuffix \$(s1), \$(bar) )\n" - ."t2 := \$(addsuffix \$(s2), \$(foo1) )\n" - ."t3 := \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \n" - ."t4 := \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \n" - ."t5 := \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \n" - ."t6 := \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \n" - ."t7 := \$(t6) \$(t6) \$(t6) \n" - ."p1 := \$(addprefix \$(foo1), \$(s2) )\n" - ."blank:= \n" - ."all:\n" - ."\t\@echo \$(sort \$(bar2) \$(foo) \$(addsuffix \$(s1), \$(bar) ) \$(t2) \$(bar2) \$(bar3))\n" - ."\t\@echo \$(sort \$(blank) \$(foo) \$(bar2) \$(t1) \$(p1) )\n" - ."\t\@echo \$(sort \$(foo) \$(bar2) \$(t1) \$(t4) \$(t5) \$(t7) \$(t6) )\n"; - - -# END of Contents of MAKEFILE - -close(MAKEFILE); - -&run_make_with_options($makefile,"",&get_logfile); - -# Create the answer to what should be produced by this Makefile -$answer = "A boy captured_by days end, has jazz_and_a midnight moon_light rise\n" - ."A boy captured_by days end, has jazz_and_a midnight moon_light rise\n" - ."A boy captured_by days end, has jazz_and_a midnight moon_light rise\n"; - -&compare_output($answer,&get_logfile(1)); - -1; - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/strip b/make/make-3.81/tests/scripts/functions/strip deleted file mode 100644 index 8222433..0000000 --- a/make/make-3.81/tests/scripts/functions/strip +++ /dev/null @@ -1,57 +0,0 @@ -# -*-perl-*- -$description = "The following test creates a makefile to verify -the ability of make to strip white space from lists of object.\n"; - - -$details = "The make file is built with a list of objects that contain white space -These are then run through the strip command to remove it. This is then -verified by echoing the result.\n"; - -open(MAKEFILE,"> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE <<'EOMAKE'; -TEST1 := "Is this TERMINAL fun? What makes you believe is this terminal fun? JAPAN is a WONDERFUL planet -- I wonder if we will ever reach their level of COMPARATIVE SHOPPING..." -E := -TEST2 := $E try this and this $E - -define TEST3 - -and these test out - - -some -blank lines - - - -endef - -.PHONY: all -all: - @echo '$(strip $(TEST1) )' - @echo '$(strip $(TEST2) )' - @echo '$(strip $(TEST3) )' - -space: ; @echo '$(strip ) $(strip )' - -EOMAKE - -# END of Contents of MAKEFILE - -close(MAKEFILE); - -&run_make_with_options($makefile,"",&get_logfile); -$answer = "\"Is this TERMINAL fun? What makes you believe is this terminal fun? JAPAN is a WONDERFUL planet -- I wonder if we will ever reach their level of COMPARATIVE SHOPPING...\" -try this and this -and these test out some blank lines -"; -&compare_output($answer,&get_logfile(1)); - - -&run_make_with_options($makefile,"space",&get_logfile); -$answer = " \n"; -&compare_output($answer,&get_logfile(1)); - -1; diff --git a/make/make-3.81/tests/scripts/functions/substitution b/make/make-3.81/tests/scripts/functions/substitution deleted file mode 100644 index 0d2f6a2..0000000 --- a/make/make-3.81/tests/scripts/functions/substitution +++ /dev/null @@ -1,38 +0,0 @@ -# -*-perl-*- - -$description = "Test the subst and patsubst functions"; - -$details = ""; - -# Generic patsubst test: test both the function and variable form. - -run_make_test(' -foo := a.o b.o c.o -bar := $(foo:.o=.c) -bar2:= $(foo:%.o=%.c) -bar3:= $(patsubst %.c,%.o,x.c.c bar.c) -all:;@echo $(bar); echo $(bar2); echo $(bar3)', -'', -'a.c b.c c.c -a.c b.c c.c -x.c.o bar.o'); - -# Patsubst without '%'--shouldn't match because the whole word has to match -# in patsubst. Based on a bug report by Markus Mauhart <qwe123@chello.at> - -run_make_test('all:;@echo $(patsubst Foo,Repl,FooFoo)', '', 'FooFoo'); - -# Variable subst where a pattern matches multiple times in a single word. -# Based on a bug report by Markus Mauhart <qwe123@chello.at> - -run_make_test(' -A := fooBARfooBARfoo -all:;@echo $(A:fooBARfoo=REPL)', '', 'fooBARREPL'); - -1; - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/suffix b/make/make-3.81/tests/scripts/functions/suffix deleted file mode 100644 index 0c4f919..0000000 --- a/make/make-3.81/tests/scripts/functions/suffix +++ /dev/null @@ -1,57 +0,0 @@ -$description = "The following test creates a makefile to test the suffix\n" - ."function. \n"; - -$details = "The suffix function will return the string following the last _._\n" - ."the list provided. It will provide all of the unique suffixes found\n" - ."in the list. The long strings are sorted to remove duplicates.\n"; - -# IF YOU NEED >1 MAKEFILE FOR THIS TEST, USE &get_tmpfile; TO GET -# THE NAME OF THE MAKEFILE. THIS INSURES CONSISTENCY AND KEEPS TRACK OF -# HOW MANY MAKEFILES EXIST FOR EASY DELETION AT THE END. -# EXAMPLE: $makefile2 = &get_tmpfile; - - -open(MAKEFILE,"> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE "string := word.pl general_test2.pl1 FORCE.pl word.pl3 generic_test.perl /tmp.c/bar foo.baz/bar.c MAKEFILES_variable.c\n" - ."string2 := \$(string) \$(string) \$(string) \$(string) \$(string) \$(string) \$(string)\n" - ."string3 := \$(string2) \$(string2) \$(string2) \$(string2) \$(string2) \$(string2) \$(string2)\n" - ."string4 := \$(string3) \$(string3) \$(string3) \$(string3) \$(string3) \$(string3) \$(string3)\n" - ."all: \n" - ."\t\@echo \$(suffix \$(string)) \n" - ."\t\@echo \$(sort \$(suffix \$(string4))) \n" - ."\t\@echo \$(suffix \$(string) a.out) \n" - ."\t\@echo \$(sort \$(suffix \$(string3))) \n"; - - - -# END of Contents of MAKEFILE - -close(MAKEFILE); - -&run_make_with_options($makefile,"",&get_logfile,0); - -# Create the answer to what should be produced by this Makefile - -# COMPARE RESULTS -$answer = ".pl .pl1 .pl .pl3 .perl .c .c\n" - .".c .perl .pl .pl1 .pl3\n" - .".pl .pl1 .pl .pl3 .perl .c .c .out\n" - .".c .perl .pl .pl1 .pl3\n"; - -# In this call to compare output, you should use the call &get_logfile(1) -# to send the name of the last logfile created. You may also use -# the special call &get_logfile(1) which returns the same as &get_logfile(1). - -&compare_output($answer,&get_logfile(1)); - -# This tells the test driver that the perl test script executed properly. -1; - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/value b/make/make-3.81/tests/scripts/functions/value deleted file mode 100644 index 8e1a6f0..0000000 --- a/make/make-3.81/tests/scripts/functions/value +++ /dev/null @@ -1,30 +0,0 @@ -# -*-perl-*- - -$description = "Test the value function."; - -$details = "This is a test of the value function in GNU make. -This function will evaluate to the value of the named variable with no -further expansion performed on it.\n"; - -open(MAKEFILE,"> $makefile"); - -print MAKEFILE <<'EOF'; -export FOO = foo - -recurse = FOO = $FOO -static := FOO = $(value FOO) - -all: ; @echo $(recurse) $(value recurse) $(static) $(value static) -EOF - -close(MAKEFILE); - -&run_make_with_options($makefile, "", &get_logfile); - -# Create the answer to what should be produced by this Makefile -$answer = "FOO = OO FOO = foo FOO = foo FOO = foo\n"; - - -&compare_output($answer,&get_logfile(1)); - -1; diff --git a/make/make-3.81/tests/scripts/functions/warning b/make/make-3.81/tests/scripts/functions/warning deleted file mode 100644 index cd452d4..0000000 --- a/make/make-3.81/tests/scripts/functions/warning +++ /dev/null @@ -1,65 +0,0 @@ -# -*-Perl-*- - -$description = "\ -The following test creates a makefile to test the warning function."; - -$details = ""; - -open(MAKEFILE,"> $makefile"); - -print MAKEFILE <<'EOF'; -ifdef WARNING1 -$(warning warning is $(WARNING1)) -endif - -ifdef WARNING2 -$(warning warning is $(WARNING2)) -endif - -ifdef WARNING3 -all: some; @echo hi $(warning warning is $(WARNING3)) -endif - -ifdef WARNING4 -all: some; @echo hi - @echo there $(warning warning is $(WARNING4)) -endif - -some: ; @echo Some stuff - -EOF - -close(MAKEFILE); - -# Test #1 - -&run_make_with_options($makefile, "WARNING1=yes", &get_logfile, 0); -$answer = "$makefile:2: warning is yes\nSome stuff\n"; -&compare_output($answer,&get_logfile(1)); - -# Test #2 - -&run_make_with_options($makefile, "WARNING2=no", &get_logfile, 0); -$answer = "$makefile:6: warning is no\nSome stuff\n"; -&compare_output($answer,&get_logfile(1)); - -# Test #3 - -&run_make_with_options($makefile, "WARNING3=maybe", &get_logfile, 0); -$answer = "Some stuff\n$makefile:10: warning is maybe\nhi\n"; -&compare_output($answer,&get_logfile(1)); - -# Test #4 - -&run_make_with_options($makefile, "WARNING4=definitely", &get_logfile, 0); -$answer = "Some stuff\n$makefile:14: warning is definitely\nhi\nthere\n"; -&compare_output($answer,&get_logfile(1)); - -# This tells the test driver that the perl test script executed properly. -1; - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/wildcard b/make/make-3.81/tests/scripts/functions/wildcard deleted file mode 100644 index d61384e..0000000 --- a/make/make-3.81/tests/scripts/functions/wildcard +++ /dev/null @@ -1,94 +0,0 @@ -# -*-perl-*- - -$description = "The following test creates a makefile to test wildcard -expansions and the ability to put a command on the same -line as the target name separated by a semi-colon."; - -$details = "\ -This test creates 4 files by the names of 1.example, -two.example and 3.example. We execute three tests. The first -executes the print1 target which tests the '*' wildcard by -echoing all filenames by the name of '*.example'. The second -test echo's all files which match '?.example' and -[a-z0-9].example. Lastly we clean up all of the files using -the '*' wildcard as in the first test"; - -open(MAKEFILE,"> $makefile"); - -# The Contents of the MAKEFILE ... - -print MAKEFILE <<EOM; -.PHONY: print1 print2 clean -print1: ;\@echo \$(sort \$(wildcard example.*)) -print2: -\t\@echo \$(sort \$(wildcard example.?)) -\t\@echo \$(sort \$(wildcard example.[a-z0-9])) -\t\@echo \$(sort \$(wildcard example.[!A-Za-z_\\!])) -clean: -\t$delete_command \$(sort \$(wildcard example.*)) -EOM - -# END of Contents of MAKEFILE - -close(MAKEFILE); - -&touch("example.1"); -&touch("example.two"); -&touch("example.3"); -&touch("example.for"); -&touch("example._"); - -# TEST #1 -# ------- - -$answer = "example.1 example.3 example._ example.for example.two\n"; - -&run_make_with_options($makefile,"print1",&get_logfile); - -&compare_output($answer,&get_logfile(1)); - - -# TEST #2 -# ------- - -$answer = "example.1 example.3 example._\n" - ."example.1 example.3\n" - ."example.1 example.3\n"; - -&run_make_with_options($makefile,"print2",&get_logfile); - -&compare_output($answer,&get_logfile(1)); - - -# TEST #3 -# ------- - -$answer = "$delete_command example.1 example.3 example._ example.for example.two"; -if ($vos) -{ - $answer .= " \n"; -} -else -{ - $answer .= "\n"; -} - -&run_make_with_options($makefile,"clean",&get_logfile); - -if ((-f "example.1")||(-f "example.two")||(-f "example.3")||(-f "example.for")) { - $test_passed = 0; -} - -&compare_output($answer,&get_logfile(1)); - - -1; - - - - - - - - - diff --git a/make/make-3.81/tests/scripts/functions/word b/make/make-3.81/tests/scripts/functions/word deleted file mode 100644 index 34527ea..0000000 --- a/make/make-3.81/tests/scripts/functions/word +++ /dev/null @@ -1,167 +0,0 @@ -# -*-perl-*- -$description = "\ -Test the word, words, wordlist, firstword, and lastword functions.\n"; - -$details = "\ -Produce a variable with a large number of words in it, -determine the number of words, and then read each one back.\n"; - -open(MAKEFILE,"> $makefile"); -print MAKEFILE <<'EOF'; -string := word.pl general_test2.pl FORCE.pl word.pl generic_test.perl MAKEFILES_variable.pl -string2 := $(string) $(string) $(string) $(string) $(string) $(string) $(string) -string3 := $(string2) $(string2) $(string2) $(string2) $(string2) $(string2) $(string2) -string4 := $(string3) $(string3) $(string3) $(string3) $(string3) $(string3) $(string3) -all: - @echo $(words $(string)) - @echo $(words $(string4)) - @echo $(word 1, $(string)) - @echo $(word 100, $(string)) - @echo $(word 1, $(string)) - @echo $(word 1000, $(string3)) - @echo $(wordlist 3, 4, $(string)) - @echo $(wordlist 4, 3, $(string)) - @echo $(wordlist 1, 6, $(string)) - @echo $(wordlist 5, 7, $(string)) - @echo $(wordlist 100, 110, $(string)) - @echo $(wordlist 7, 10, $(string2)) -EOF -close(MAKEFILE); - -&run_make_with_options($makefile, "", &get_logfile); -$answer = "6\n" - ."2058\n" - ."word.pl\n" - ."\n" - ."word.pl\n" - ."\n" - ."FORCE.pl word.pl\n" - ."\n" - ."word.pl general_test2.pl FORCE.pl word.pl generic_test.perl MAKEFILES_variable.pl\n" - ."generic_test.perl MAKEFILES_variable.pl\n" - ."\n" - ."word.pl general_test2.pl FORCE.pl word.pl\n"; -&compare_output($answer, &get_logfile(1)); - - -# Test error conditions - -run_make_test('FOO = foo bar biz baz - -word-e1: ; @echo $(word ,$(FOO)) -word-e2: ; @echo $(word abc ,$(FOO)) -word-e3: ; @echo $(word 1a,$(FOO)) - -wordlist-e1: ; @echo $(wordlist ,,$(FOO)) -wordlist-e2: ; @echo $(wordlist abc ,,$(FOO)) -wordlist-e3: ; @echo $(wordlist 1, 12a ,$(FOO))', - 'word-e1', - "#MAKEFILE#:3: *** non-numeric first argument to `word' function: ''. Stop.", - 512); - -run_make_test(undef, - 'word-e2', - "#MAKEFILE#:4: *** non-numeric first argument to `word' function: 'abc '. Stop.", - 512); - -run_make_test(undef, - 'word-e3', - "#MAKEFILE#:5: *** non-numeric first argument to `word' function: '1a'. Stop.", - 512); - -run_make_test(undef, - 'wordlist-e1', - "#MAKEFILE#:7: *** non-numeric first argument to `wordlist' function: ''. Stop.", - 512); - -run_make_test(undef, - 'wordlist-e2', - "#MAKEFILE#:8: *** non-numeric first argument to `wordlist' function: 'abc '. Stop.", - 512); - -run_make_test(undef, - 'wordlist-e3', - "#MAKEFILE#:9: *** non-numeric second argument to `wordlist' function: ' 12a '. Stop.", - 512); - -# Test error conditions again, but this time in a variable reference - -run_make_test('FOO = foo bar biz baz - -W = $(word $x,$(FOO)) -WL = $(wordlist $s,$e,$(FOO)) - -word-e: ; @echo $(W) -wordlist-e: ; @echo $(WL)', - 'word-e x=', - "#MAKEFILE#:3: *** non-numeric first argument to `word' function: ''. Stop.", - 512); - -run_make_test(undef, - 'word-e x=abc', - "#MAKEFILE#:3: *** non-numeric first argument to `word' function: 'abc'. Stop.", - 512); - -run_make_test(undef, - 'word-e x=0', - "#MAKEFILE#:3: *** first argument to `word' function must be greater than 0. Stop.", - 512); - -run_make_test(undef, - 'wordlist-e s= e=', - "#MAKEFILE#:4: *** non-numeric first argument to `wordlist' function: ''. Stop.", - 512); - -run_make_test(undef, - 'wordlist-e s=abc e=', - "#MAKEFILE#:4: *** non-numeric first argument to `wordlist' function: 'abc'. Stop.", - 512); - -run_make_test(undef, - 'wordlist-e s=4 e=12a', - "#MAKEFILE#:4: *** non-numeric second argument to `wordlist' function: '12a'. Stop.", - 512); - -run_make_test(undef, - 'wordlist-e s=0 e=12', - "#MAKEFILE#:4: *** invalid first argument to `wordlist' function: `0'. Stop.", - 512); - - -# TEST #8 -- test $(firstword ) -# -run_make_test(' -void := -list := $(void) foo bar baz # - -a := $(word 1,$(list)) -b := $(firstword $(list)) - -.PHONY: all - -all: - @test "$a" = "$b" && echo $a -', -'', -'foo'); - - -# TEST #9 -- test $(lastword ) -# -run_make_test(' -void := -list := $(void) foo bar baz # - -a := $(word $(words $(list)),$(list)) -b := $(lastword $(list)) - -.PHONY: all - -all: - @test "$a" = "$b" && echo $a -', -'', -'baz'); - -# This tells the test driver that the perl test script executed properly. -1; |