diff options
Diffstat (limited to 'src/kmk/testcase-stack.kmk')
| -rw-r--r-- | src/kmk/testcase-stack.kmk | 86 |
1 files changed, 86 insertions, 0 deletions
diff --git a/src/kmk/testcase-stack.kmk b/src/kmk/testcase-stack.kmk new file mode 100644 index 0000000..e610319 --- /dev/null +++ b/src/kmk/testcase-stack.kmk @@ -0,0 +1,86 @@ +# $Id: testcase-stack.kmk 2413 2010-09-11 17:43:04Z bird $ +## @file +# kBuild - testcase for the functions. +# + +# +# Copyright (c) 2007-2010 knut st. osmundsen <bird-kBuild-spamx@anduin.net> +# +# This file is part of kBuild. +# +# kBuild is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# kBuild is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with kBuild. If not, see <http://www.gnu.org/licenses/> +# +# + +DEPTH = ../.. +include $(PATH_KBUILD)/header.kmk + +ifneq ($(not 1),) + $(error The 'not' function is missing) +endif +ifneq ($(eq 1,1),1) + $(error The 'eq' function is missing) +endif + +ASSERT1 = $(if $(not $(eq $(STACK1),$(1))),$(error failure: STACK1:='$(STACK1)' expected='$(1)')) +$(call stack-push,STACK1,1) +$(call ASSERT,1) +$(call stack-push,STACK1,2) +$(call ASSERT,1 2) +$(call stack-push,STACK1,3) +$(call ASSERT,1 2 3) +$(call stack-push,STACK1,4) +$(call ASSERT,1 2 3 4) +$(call stack-push,STACK1,5) +$(call ASSERT,1 2 3 4 5) +$(call stack-popv,STACK1) +$(call ASSERT,1 2 3 4) +$(call stack-push,STACK1,5) +$(call ASSERT,1 2 3 4 5) +$(call stack-popv,STACK1) +$(call ASSERT,1 2 3 4) +$(call stack-popv,STACK1) +$(call ASSERT,1 2 3) +$(call stack-push,STACK1,4) +$(call ASSERT,1 2 3 4) +$(call stack-push,STACK1,5) +$(call ASSERT,1 2 3 4 5) +top := $(call stack-top,STACK1) +$(if $(not $(eq $(top),5)),$(error failure STACK1:='$(STACK1)' top:='$(top)' expected='5')) +$(call ASSERT,1 2 3 4 5) +top := $(call stack-pop,STACK1) +$(if $(not $(eq $(top),5)),$(error failure STACK1:='$(STACK1)' top:='$(top)' expected='5')) +$(call ASSERT,1 2 3 4) +top := $(call stack-pop,STACK1) +$(if $(not $(eq $(top),4)),$(error failure STACK1:='$(STACK1)' top:='$(top)' expected='4')) +$(call ASSERT,1 2 3) +top := $(call stack-pop,STACK1) +$(if $(not $(eq $(top),3)),$(error failure STACK1:='$(STACK1)' top:='$(top)' expected='3')) +$(call ASSERT,1 2) +top := $(call stack-pop,STACK1) +$(if $(not $(eq $(top),2)),$(error failure STACK1:='$(STACK1)' top:='$(top)' expected='2')) +$(call ASSERT,1) +top := $(call stack-top,STACK1) +$(if $(not $(eq $(top),1)),$(error failure STACK1:='$(STACK1)' top:='$(top)' expected='1')) +$(call ASSERT,1) +top := $(call stack-pop,STACK1) +$(if $(not $(eq $(top),1)),$(error failure STACK1:='$(STACK1)' top:='$(top)' expected='1')) +$(call ASSERT,) +top := $(call stack-pop,STACK1) +$(if $(not $(eq $(top),)),$(error failure STACK1:='$(STACK1)' top:='$(top)' expected='')) +$(call ASSERT,) + +all_recursive: + $(ECHO) The stack works.$(STACK1) + |