From 9769d39d792c1e912234e23e663ba8bd21a6386e Mon Sep 17 00:00:00 2001 From: Lukc Date: Sun, 12 Dec 2010 04:13:19 +0100 Subject: Recette de make retir?e. --- make/make-3.81/tests/scripts/functions/error | 73 ---------------------------- 1 file changed, 73 deletions(-) delete mode 100644 make/make-3.81/tests/scripts/functions/error (limited to 'make/make-3.81/tests/scripts/functions/error') 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; - - - - - - -- cgit v1.2.3-70-g09d2