Aren
/
NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
NetBSD/usr.bin/m4/TEST/math.m4

183 lines
4.3 KiB
Plaintext
Raw Normal View History

s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
dnl $NetBSD: math.m4,v 1.2 2005/10/06 17:38:09 drochner Exp $
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
dnl FreeBSD: /repoman/r/ncvs/src/usr.bin/m4/TEST/math.m4,v 1.1 2004/05/01 03:27:05 smkelly Exp
dnl A regression test for m4 C operators (ksb,petef)
dnl If you think you have a short-circuiting m4, run us m4 -DSHORCIRCUIT=yes
dnl
dnl first level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(-7),-7,,`failed -
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(- -2),2,,`failed -
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(!0),1,,`failed !
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(!7),0,,`failed !
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(~-1),0,,`failed ~
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
dnl next level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(3*5),15,,`failed *
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(3*0),0,,`failed *
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(11/2),5,,`failed /
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1/700),0,,`failed /
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(10%5),0,,`failed %
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(2%5),2,,`failed %
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(2%-1),0,,`failed %
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
dnl next level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(2+2),4,,`failed +
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(2+-2),0,,`failed +
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(2- -2),4,,`failed -
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(2-2),0,,`failed -
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
dnl next level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1<<4),16,,`failed <<
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(16>>4),1,,`failed >>
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
dnl next level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4<4),0,,`failed <
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4<5),1,,`failed <
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4<3),0,,`failed <
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4>4),0,,`failed >
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4>5),0,,`failed >
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4>3),1,,`failed >
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4<=4),1,,`failed <=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4<=5),1,,`failed <=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4<=3),0,,`failed <=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4>=4),1,,`failed >=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4>=5),0,,`failed >=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(4>=3),1,,`failed >=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
dnl next level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1==1),1,,`failed ==
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1==-1),0,,`failed ==
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1!=1),0,,`failed !=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1!=2),1,,`failed !=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
dnl next level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(3&5),1,,`failed &
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(8&7),0,,`failed &
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
dnl next level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1^1),0,,`failed ^
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(21^5),16,,`failed ^
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
dnl next level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1|1),1,,`failed |
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(21|5),21,,`failed |
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(100|1),101,,`failed |
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
dnl next level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1&&1),1,,`failed &&
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(0&&1),0,,`failed &&
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1&&0),0,,`failed &&
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(SHORTCIRCUIT,`yes',`ifelse(eval(0&&10/0),0,,`failed && shortcircuit
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')')dnl
dnl next level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1||1),1,,`failed ||
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1||0),1,,`failed ||
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(0||0),0,,`failed ||
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(SHORTCIRCUIT,`yes',`ifelse(eval(1||10/0),1,,`failed || shortcircuit
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')')dnl
dnl next level of precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(0 ? 2 : 5),5,,`failed ?:
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1 ? 2 : 5),2,,`failed ?:
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(SHORTCIRCUIT,`yes',`ifelse(eval(0 ? 10/0 : 7),7,,`failed ?: shortcircuit
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(SHORTCIRCUIT,`yes',`ifelse(eval(1 ? 7 : 10/0),7,,`failed ?: shortcircuit
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')')dnl
dnl operator precedence
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(!0*-2),-2,,`precedence wrong, ! *
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(~8/~2),3,,`precedence wrong ~ /
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(~-20%7),5,,`precedence wrong ~ %
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(3*2+100),106,,`precedence wrong * +
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(3+2*100),203,,`precedence wrong + *
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(2%5-6/3),0,,`precedence wrong % -
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(2/5-5%3),-2,,`precedence wrong / -
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(2+5%5+1),3,,`precedence wrong % +
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(7+9<<1),32,,`precedence wrong + <<
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(35-3>>2),8,,`precedence wrong - >>
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(9<10<<5),1,,`precedence wrong << <
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(9>10<<5),0,,`precedence wrong << >
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(32>>2<32),1,,`precedence wrong >> <
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(9<=10<<5),1,,`precedence wrong << <
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(5<<1<=20>>1),1,,`precedence wrong << <=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(5<<1>=20>>1),1,,`precedence wrong << >=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(0<7==5>=5),1,,`precedence wrong < ==
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(0<7!=5>=5),0,,`precedence wrong < !=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(0>7==5>=5),0,,`precedence wrong > ==
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(0>7!=5>=5),1,,`precedence wrong > !=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(1&7==7),1,,`precedence wrong & ==
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(0&7!=6),0,,`precedence wrong & !=
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(9&1|5),5,,`precedence wrong & |
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(9&1^5),4,,`precedence wrong & ^
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(9^1|5),13,,`precedence wrong ^ |
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(5|0&&1),1,,`precedence wrong | &&
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(5&&0||0&&5||5),1,,`precedence wrong && ||
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(0 || 1 ? 0 : 1),0,,`precedence wrong || ?:
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl
s|expr|eval|g, to make the test portable
2005-10-06 21:38:09 +04:00
ifelse(eval(5&&(0||0)&&(5||5)),0,,`precedence wrong || parens
import a test for arithmetic expressions from FreeBSD
2005-10-06 21:23:23 +04:00
')dnl