0040-dc.sh - sbase - suckless unix tools
HTML git clone git://git.suckless.org/sbase
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
0040-dc.sh (2233B)
---
1 #!/bin/sh
2
3 tmp=$$.tmp
4
5 trap 'rm -f $tmp' EXIT
6 trap 'exit $?' HUP INT TERM
7
8 # Test x, >, !>, <, !<, =, != commands
9 # Note: dc pops values and compares: first_popped OP second_popped
10 # So "3 5 >a" pops 5 then 3, checks 5 > 3 (true)
11 # And "5 3 >a" pops 3 then 5, checks 3 > 5 (false)
12 $EXEC ../dc <<'EOF' >$tmp 2>&1
13 [test 1:]pc [42p]x c
14 [test 2:]pc 5 x p c
15 [test 3:]pc []x c
16 [test 4:]pc [[10p]x]x c
17 [test 5:]pc [[YES]p]sa 3 5 >a c
18 [test 6:]pc [[NO]p]sa 5 3 >a c
19 [test 7:]pc [[NO]p]sa 5 5 >a c
20 [test 8:]pc [[YES]p]sa 5 3 <a c
21 [test 9:]pc [[NO]p]sa 3 5 <a c
22 [test 10:]pc [[NO]p]sa 5 5 <a c
23 [test 11:]pc [[YES]p]sa 5 5 =a c
24 [test 12:]pc [[NO]p]sa 5 3 =a c
25 [test 13:]pc [[NO]p]sa 3 5 !>a c
26 [test 14:]pc [[YES]p]sa 5 3 !>a c
27 [test 15:]pc [[YES]p]sa 5 5 !>a c
28 [test 16:]pc [[NO]p]sa 5 3 !<a c
29 [test 17:]pc [[YES]p]sa 3 5 !<a c
30 [test 18:]pc [[YES]p]sa 5 5 !<a c
31 [test 19:]pc [[YES]p]sa 5 3 !=a c
32 [test 20:]pc [[NO]p]sa 5 5 !=a c
33 [test 21:]pc [[NO]p]sa _3 _5 >a c
34 [test 22:]pc [[YES]p]sa _5 _3 >a c
35 [test 23:]pc [[NO]p]sa 3 _5 >a c
36 [test 24:]pc [[YES]p]sa _3 5 >a c
37 [test 25:]pc [[YES]p]sa 0 0 =a c
38 [test 26:]pc [[YES]p]sa _0 0 =a c
39 [test 27:]pc [[YES]p]sa 1.4 1.5 >a c
40 [test 28:]pc [[YES]p]sa 1.5 1.5 =a c
41 [test 29:]pc [[YES]p]sa 1.5 1.4 <a c
42 [test 30:]pc [[YES]p]sa 99999999999999999998 99999999999999999999 >a c
43 [test 31:]pc [d p 1 - d 0 <a]sa 5 la x c
44 [test 32:]pc [[YES]p]sa [2 2 =a]sb 2 2 =b c
45 [test 33:]pc 99 sa la x p c
46 [test 34:]pc [3p]sa [2p]sb 2 3 >a 3 2 <b c
47 [test 35:]pc [[NO]p]sa 1 2 <a z p c
48 [test 36:]pc [[[[[77p]]]]]x x x x x c
49 [test 37:]pc [[YES]p]sa 2k 1.50 1.5 =a c
50 [test 38:]pc [1p]x [2p]x [3p]x c
51 [test 39:]pc x
52 [test 40:]pc [[NO]p]sa 5 >a
53 [test 41:]pc [[NO]p]sa >a
54 EOF
55
56 diff -u - $tmp <<'EOF'
57 ../dc: stack empty
58 ../dc: stack empty
59 ../dc: stack empty
60 test 1:
61 42
62 test 2:
63 5
64 test 3:
65 test 4:
66 10
67 test 5:
68 YES
69 test 6:
70 test 7:
71 test 8:
72 YES
73 test 9:
74 test 10:
75 test 11:
76 YES
77 test 12:
78 test 13:
79 test 14:
80 YES
81 test 15:
82 YES
83 test 16:
84 test 17:
85 YES
86 test 18:
87 YES
88 test 19:
89 YES
90 test 20:
91 test 21:
92 test 22:
93 YES
94 test 23:
95 test 24:
96 YES
97 test 25:
98 YES
99 test 26:
100 YES
101 test 27:
102 YES
103 test 28:
104 YES
105 test 29:
106 YES
107 test 30:
108 YES
109 test 31:
110 5
111 4
112 3
113 2
114 1
115 test 32:
116 YES
117 test 33:
118 99
119 test 34:
120 3
121 2
122 test 35:
123 0
124 test 36:
125 77
126 test 37:
127 YES
128 test 38:
129 1
130 2
131 3
132 test 39:
133 test 40:
134 test 41:
135 EOF