Miroirs/rpn
1
0
Fork 0
mirror of https://github.com/louisrubet/rpn synced 2025-01-18 10:26:57 +01:00
Code Issues Projects Releases Packages Wiki Activity

#138: unify test steps and test sheets (erase default)

Browse source
This commit is contained in:
Louis Rubet 2017-06-16 23:44:48 +02:00
parent 52de16f958
commit 562ae5fdef
11 changed files with 208 additions and 180 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
test/01-mode.txt
View file

@ -1,38 +1,42 @@
## MODE ## MODE
default default erase
erase
# std (1) # std (1)
erase erase
1 1
10 std 10 std
-> stack should be 1 -> stack should be 1
erase
# std (2) # std (2)
3 / 1 3 /
-> stack should be 0.3333333333 -> stack should be 0.3333333333
erase
# std (3) # std (3)
3 std 1 3 / 3 std
-> stack should be 0.333 -> stack should be 0.333
erase
# fix (1) # fix (1)
drop
10 fix 10 fix
1 1
-> stack should be 1.0000000000 -> stack should be 1.0000000000
erase
# fix (2) # fix (2)
4 fix 1 4 fix
-> stack should be 1.0000 -> stack should be 1.0000
erase
# sci (1) # sci (1)
12 sci 1 12 sci
-> stack should be 1.000000000000e+00 -> stack should be 1.000000000000e+00
erase
# sci (2) # sci (2)
2 sci 1 2 sci
-> stack should be 1.00e+00 -> stack should be 1.00e+00
drop erase
default default

32
test/02-general.txt
View file

@ -1,34 +1,37 @@
## GENERAL ## GENERAL
default default erase
erase
# version # version
version version
-> stack size should be 1 -> stack size should be 1
uname
-> stack size should be 2
erase erase
# type uname
1 -> stack size should be 1
type erase
# type (1)
1 type
-> stack should be 1, 'number' -> stack should be 1, 'number'
erase erase
"hey" # type (2)
type "hey" type
-> stack should be "hey", 'string' -> stack should be "hey", 'string'
erase erase
<< -> n << n >> >> # type (3)
type << -> n << n >> >> type
-> stack should be << -> n << n >> >>, 'program' -> stack should be << -> n << n >> >>, 'program'
erase erase
# type (4)
(1,2) type
-> stack should be (1,2)), 'complex'
erase
# default # default
2 sci 2 sci 1
1
-> stack should be 1.00e+00 -> stack should be 1.00e+00
default default
-> stack should be 1 -> stack should be 1
@ -38,3 +41,4 @@ erase
nop nop
-> stack size should be 0 -> stack size should be 0
-> error should be 0 -> error should be 0
erase

1
test/03-branch.txt
View file

@ -1,4 +1,5 @@
## BRANCH ## BRANCH
default erase
# if then else end (1) # if then else end (1)
1 if then 'ok' end 1 if then 'ok' end

51
test/04-stack.txt
View file

@ -1,35 +1,38 @@
## STACK TEST ## STACK TEST
default erase
# entry depth (1) # entry depth (1)
1 depth 1 depth
-> stack size should be 2 -> stack size should be 2
# entry depth (2) # entry depth (2)
erase depth 1 erase depth
-> stack should be 0 -> stack should be 0
erase
# swap # swap
erase
1 2 swap 1 2 swap
-> stack size should be 2 -> stack size should be 2
-> stack should be 2, 1 -> stack should be 2, 1
erase
# swap with filled stack # swap with filled stack
erase
5 6 1 2 swap 5 6 1 2 swap
-> stack size should be 4 -> stack size should be 4
-> stack should be 5, 6, 2, 1 -> stack should be 5, 6, 2, 1
erase
# swap error # swap error
erase
5 swap 5 swap
-> stack size should be 1 -> stack size should be 1
-> error should 2 -> error should 2
erase
# drop # drop
erase
1 2 3 drop 1 2 3 drop
-> stack size should be 2 -> stack size should be 2
-> stack should be 1, 2 -> stack should be 1, 2
erase
# drop2 # drop2
3 3
@ -41,26 +44,29 @@ erase
# drop error # drop error
drop drop
-> error should be 2 -> error should be 2
erase
# drop2 error (1) # drop2 error (1)
drop2 drop2
-> error should be 2 -> error should be 2
erase
# drop2 error (2) # drop2 error (2)
1 drop2 1 drop2
-> error should be 2 -> error should be 2
drop erase
# test dup # test dup
1 dup 1 dup
-> stack size should be 2 -> stack size should be 2
-> stack should be 1, 1 -> stack should be 1, 1
erase
# test dup2 # test dup2
drop 2 dup2 1 2 dup2
-> stack size should be 4 -> stack size should be 4
-> stack should be 1, 2, 1, 2 -> stack should be 1, 2, 1, 2
drop2 drop2 erase
# test rot # test rot
1 2 3 rot 1 2 3 rot
@ -89,7 +95,7 @@ erase
depth depth
-> stack size should be 4 -> stack size should be 4
-> stack should be 1, 2, 3, 3 -> stack should be 1, 2, 3, 3
erase >erase
# test pick # test pick
1 2 3 4 2 pick 1 2 3 4 2 pick
@ -99,74 +105,73 @@ erase
-> error should be 4 -> error should be 4
7 pick 7 pick
-> error should be 4 -> error should be 4
erase
# test erase # test erase
erase
-> stack size should be 0 -> stack size should be 0
erase
# test dropn # test dropn
erase
1 2 2 dropn 1 2 2 dropn
-> stack size should be 0 -> stack size should be 0
erase
# test dropn error # test dropn error
erase
1 2 3 dropn 1 2 3 dropn
-> stack size should be 3 -> stack size should be 3
-> error should be 2 -> error should be 2
erase
# test dupn # test dupn
erase
1 2 3 4 3 dupn 1 2 3 4 3 dupn
-> stack should be 1, 2, 3, 4, 2, 3, 4 -> stack should be 1, 2, 3, 4, 2, 3, 4
erase
# test dupn error # test dupn error
erase
1 2 3 4 5 dupn 1 2 3 4 5 dupn
-> stack size should be 5 -> stack size should be 5
-> error should be 2 -> error should be 2
erase
# test roll # test roll
erase
1 2 3 4 5 4 roll 1 2 3 4 5 4 roll
-> stack should be 1, 3, 4, 5, 2 -> stack should be 1, 3, 4, 5, 2
erase
# test roll with filled stack # test roll with filled stack
erase
10 11 1 2 3 4 5 4 roll 10 11 1 2 3 4 5 4 roll
-> stack should be 10, 11, 1, 3, 4, 5, 2 -> stack should be 10, 11, 1, 3, 4, 5, 2
erase
# test roll error # test roll error
erase
1 2 3 4 5 6 roll 1 2 3 4 5 6 roll
-> stack size should be 6 -> stack size should be 6
-> error should be 2 -> error should be 2
erase
# test rolld # test rolld
erase
10 20 30 40 50 3 rolld 10 20 30 40 50 3 rolld
-> stack should be 10, 20, 50, 30, 40 -> stack should be 10, 20, 50, 30, 40
erase
# test rolld with filled stack # test rolld with filled stack
erase
80 90 10 20 30 40 50 3 rolld 80 90 10 20 30 40 50 3 rolld
-> stack should be 80, 90, 10, 20, 50, 30, 40 -> stack should be 80, 90, 10, 20, 50, 30, 40
erase
# test rolld error # test rolld error
erase
1 2 3 4 5 6 rolld 1 2 3 4 5 6 rolld
-> stack size should be 6 -> stack size should be 6
-> error should be 2 -> error should be 2
erase
# test over # test over
erase
3.14 15.16 over 3.14 15.16 over
-> stack should be 3.14, 15.16, 3.14 -> stack should be 3.14, 15.16, 3.14
erase
# test over error # test over error
erase
2 over 2 over
-> stack size should be 1 -> stack size should be 1
-> error should be 2 -> error should be 2
erase erase

61
test/05-real.txt
View file

@ -6,7 +6,7 @@ default erase
1 1
-> stack size should be 1 -> stack size should be 1
-> stack should be 1 -> stack should be 1
drop erase
# real decimal (2) # real decimal (2)
2.345 2.345
@ -22,8 +22,10 @@ erase
# real hex # real hex
0x1234 0x10.10 0x1234 0x10.10
-> stack should be 0x1.234p+12, 0x1.01p+4 -> stack should be 0x1.234p+12, 0x1.01p+4
erase
# real hex (2) # real hex (2)
0x1.234p+12, 0x1.01p+4
dec swap dec swap dec swap dec swap
-> stack should be 4660, 16.0625 -> stack should be 4660, 16.0625
erase erase
@ -54,16 +56,17 @@ erase
default default
2 prec pi 2 prec pi
-> stack should be 3 -> stack should be 3
drop erase
# prec (2) # prec (2)
10 prec pi 10 prec pi
-> stack should be 3.140625 -> stack should be 3.140625
drop erase
# prec error (1) # prec error (1)
1 prec 1 prec
-> error should be 4 -> error should be 4
erase
# prec error (2) # prec error (2)
0x8000000000000000 prec 0x8000000000000000 prec
@ -103,91 +106,91 @@ erase default
# add (1) # add (1)
1.2 2.3 + 1.2 2.3 +
-> stack should be 3.5 -> stack should be 3.5
drop erase
# add (2) # add (2)
1.2 2.3+ 1.2 2.3+
-> stack should be 3.5 -> stack should be 3.5
drop erase
# add (3) # add (3)
2.3 + 2.3 +
-> error should be 2 -> error should be 2
-> stack size should be 1 -> stack size should be 1
drop erase
# add (4) # add (4)
+ +
-> error should be 2 -> error should be 2
drop erase
# sub (1) # sub (1)
1.2 2.3 - 1.2 2.3 -
-> stack should be -1.1 -> stack should be -1.1
drop erase
# sub (2) # sub (2)
1.2 2.3- 1.2 2.3-
-> stack should be -1.1 -> stack should be -1.1
drop erase
# sub (3) # sub (3)
2.3 - 2.3 -
-> error should be 2 -> error should be 2
-> stack size should be 1 -> stack size should be 1
drop erase
# sub (4) # sub (4)
- -
-> error should be 2 -> error should be 2
drop erase
# mul (1) # mul (1)
1.2 2.3 * 1.2 2.3 *
-> stack should be 2.76 -> stack should be 2.76
drop erase
# mul (2) # mul (2)
1.2 2.3* 1.2 2.3*
-> stack should be 2.76 -> stack should be 2.76
drop erase
# mul (3) # mul (3)
2.3 * 2.3 *
-> error should be 2 -> error should be 2
-> stack size should be 1 -> stack size should be 1
drop erase
# mul (4) # mul (4)
* *
-> error should be 2 -> error should be 2
drop erase
# div (1) # div (1)
1.2 2.3 / 1.2 2.3 /
-> stack should be 0.5217391304347826087 -> stack should be 0.5217391304347826087
drop erase
# div (2) # div (2)
1.2 2.3/ 1.2 2.3/
-> stack should be 0.5217391304347826087 -> stack should be 0.5217391304347826087
drop erase
# div (3) # div (3)
2.3 / 2.3 /
-> error should be 2 -> error should be 2
-> stack size should be 1 -> stack size should be 1
drop erase
# div (4) # div (4)
/ /
-> error should be 2 -> error should be 2
drop erase
# chs (1) # chs (1)
3.14 chs 3.14 chs
-> stack should be -3.14 -> stack should be -3.14
drop erase
# chs (2) # chs (2)
chs chs
@ -196,7 +199,7 @@ chs
# neg (1) # neg (1)
3.14 neg 3.14 neg
-> stack should be -3.14 -> stack should be -3.14
drop erase
# neg (2) # neg (2)
neg neg
@ -205,7 +208,7 @@ neg
# inv (1) # inv (1)
2 inv 2 inv
-> stack should be 0.5 -> stack should be 0.5
drop erase
# inv (2) # inv (2)
inv inv
@ -225,12 +228,12 @@ erase
2 % 2 %
-> error should be 2 -> error should be 2
-> stack size should be 1 -> stack size should be 1
drop erase
# % (4) # % (4)
% %
-> error should be 2 -> error should be 2
drop erase
# %CH (1) # %CH (1)
2 0.6 %CH 2 0.6 %CH
@ -246,12 +249,12 @@ erase
2 %CH 2 %CH
-> error should be 2 -> error should be 2
-> stack size should be 1 -> stack size should be 1
drop erase
# %CH (4) # %CH (4)
%CH %CH
-> error should be 2 -> error should be 2
drop erase
# ^ (1) # ^ (1)
2 10 ^ 2 10 ^
@ -277,7 +280,7 @@ erase
# sqrt (1) # sqrt (1)
9 sqrt 9 sqrt
-> stack should be 3 -> stack should be 3
drop erase
# sqrt (2) # sqrt (2)
sqrt sqrt
@ -286,7 +289,7 @@ sqrt
# sq (1) # sq (1)
12 sq 12 sq
-> stack should be 144 -> stack should be 144
drop erase
# sq (2) # sq (2)
sq sq
@ -295,7 +298,7 @@ sq
# sqr (1) # sqr (1)
12 sqr 12 sqr
-> stack should be 144 -> stack should be 144
drop erase
# sqr (2) # sqr (2)
sqr sqr

16
test/06-string.txt
View file

@ -1,7 +1,5 @@
## STRING ## STRING
default erase
default
erase
# string entry # string entry
"test string" "test string"
@ -25,33 +23,33 @@ erase
1 1
->str ->str
-> stack should be "1" -> stack should be "1"
drop erase
# ->str on real (2) # ->str on real (2)
1.234 1.234
25 std 25 std
->str ->str
-> stack should be "1.234" -> stack should be "1.234"
drop erase
# ->str on real (3) # ->str on real (3)
1.234 1.234
20 fix 20 fix
->str ->str
-> stack should be "1.23400000000000000000" -> stack should be "1.23400000000000000000"
drop erase
# ->str on symbol (1) # ->str on symbol (1)
toto toto
->str ->str
-> stack should be "'toto'" -> stack should be "'toto'"
drop erase
# ->str on symbol (2) # ->str on symbol (2)
'toto' 'toto'
->str ->str
-> stack should be "'toto'" -> stack should be "'toto'"
drop erase
default default
@ -59,7 +57,7 @@ default
"1" "1"
str-> str->
-> stack should be 1 -> stack should be 1
drop erase
# str-> on real (2) # str-> on real (2)
"1 2.345 3 4.9" "1 2.345 3 4.9"

108
test/07-test.txt
View file

@ -1,96 +1,98 @@
## TESTS ## TESTS
default erase
# and (1) # and (1)
and and
-> error should be 2 -> error should be 2
1 and 1 and
-> error should be 2 -> error should be 2
drop erase
# and (2) # and (2)
0 0 and 0 0 and
-> stack size should be 1 -> stack size should be 1
-> stack should be 0 -> stack should be 0
drop erase
# and (3) # and (3)
1 0 and 1 0 and
-> stack size should be 1 -> stack size should be 1
-> stack should be 0 -> stack should be 0
drop erase
# and (4) # and (4)
0 1 and 0 1 and
-> stack size should be 1 -> stack size should be 1
-> stack should be 0 -> stack should be 0
drop erase
# and (5) # and (5)
1 1 and 1 1 and
-> stack size should be 1 -> stack size should be 1
-> stack should be 1 -> stack should be 1
drop erase
# or (1) # or (1)
or or
-> error should be 2 -> error should be 2
1 or 1 or
-> error should be 2 -> error should be 2
drop erase
# or (2) # or (2)
0 0 or 0 0 or
-> stack size should be 1 -> stack size should be 1
-> stack should be 0 -> stack should be 0
drop erase
# or (3) # or (3)
0 1 or 0 1 or
-> stack size should be 1 -> stack size should be 1
-> stack should be 1 -> stack should be 1
drop erase
# or (4) # or (4)
1 0 or 1 0 or
-> stack size should be 1 -> stack size should be 1
-> stack should be 1 -> stack should be 1
drop erase
# or (5) # or (5)
1 1 or 1 1 or
-> stack size should be 1 -> stack size should be 1
-> stack should be 1 -> stack should be 1
drop erase
# xor (1) # xor (1)
xor xor
-> error should be 2 -> error should be 2
1 xor 1 xor
-> error should be 2 -> error should be 2
drop erase
# xor (2) # xor (2)
0 0 xor 0 0 xor
-> stack size should be 1 -> stack size should be 1
-> stack should be 0 -> stack should be 0
drop erase
# xor (3) # xor (3)
0 1 xor 0 1 xor
-> stack size should be 1 -> stack size should be 1
-> stack should be 1 -> stack should be 1
drop erase
# xor (4) # xor (4)
1 0 xor 1 0 xor
-> stack size should be 1 -> stack size should be 1
-> stack should be 1 -> stack should be 1
drop erase
# xor (5) # xor (5)
1 1 xor 1 1 xor
-> stack size should be 1 -> stack size should be 1
-> stack should be 0 -> stack should be 0
drop erase
# not (1) # not (1)
not not
@ -98,146 +100,146 @@ not
1 not 1 not
-> stack size should be 1 -> stack size should be 1
-> stack should be 0 -> stack should be 0
drop erase
# not (2) # not (2)
0 not 0 not
-> stack size should be 1 -> stack size should be 1
-> stack should be 1 -> stack should be 1
drop erase
# > # >
0 0.1 > 0 0.1 >
-> stack should be 0 -> stack should be 0
drop erase
0.1 0 > 0.1 0 >
-> stack should be 1 -> stack should be 1
drop erase
1 1 > 1 1 >
-> stack should be 0 -> stack should be 0
drop erase
# >= # >=
0 0.1 >= 0 0.1 >=
-> stack should be 0 -> stack should be 0
drop erase
0.1 0 >= 0.1 0 >=
-> stack should be 1 -> stack should be 1
drop erase
1 1 >= 1 1 >=
-> stack should be 1 -> stack should be 1
drop erase
# < # <
0 0.1 < 0 0.1 <
-> stack should be 1 -> stack should be 1
drop erase
0.1 0 < 0.1 0 <
-> stack should be 0 -> stack should be 0
drop erase
1 1 < 1 1 <
-> stack should be 0 -> stack should be 0
drop erase
# <= # <=
0 0.1 <= 0 0.1 <=
-> stack should be 1 -> stack should be 1
drop erase
0.1 0 <= 0.1 0 <=
-> stack should be 0 -> stack should be 0
drop erase
1 1 <= 1 1 <=
-> stack should be 1 -> stack should be 1
drop erase
# != # !=
0 0.1 != 0 0.1 !=
-> stack should be 1 -> stack should be 1
drop erase
1 1 != 1 1 !=
-> stack should be 0 -> stack should be 0
drop erase
# == # ==
0 0.1 == 0 0.1 ==
-> stack should be 0 -> stack should be 0
drop erase
1 1 == 1 1 ==
-> stack should be 1 -> stack should be 1
drop erase
# same # same
0 0.1 same 0 0.1 same
-> stack should be 0 -> stack should be 0
drop erase
1 1 same 1 1 same
-> stack should be 1 -> stack should be 1
drop erase
# string > # string >
"a" "b" > "a" "b" >
-> stack should be 0 -> stack should be 0
drop erase
"b" "a" > "b" "a" >
-> stack should be 1 -> stack should be 1
drop erase
"a" "a" > "a" "a" >
-> stack should be 0 -> stack should be 0
drop erase
# string >= # string >=
"a" "b" >= "a" "b" >=
-> stack should be 0 -> stack should be 0
drop erase
"b" "a" >= "b" "a" >=
-> stack should be 1 -> stack should be 1
drop erase
"a" "a" >= "a" "a" >=
-> stack should be 1 -> stack should be 1
drop erase
# string < # string <
"a" "b" < "a" "b" <
-> stack should be 1 -> stack should be 1
drop erase
"b" "a" < "b" "a" <
-> stack should be 0 -> stack should be 0
drop erase
"a" "a" < "a" "a" <
-> stack should be 0 -> stack should be 0
drop erase
# string <= # string <=
"a" "b" <= "a" "b" <=
-> stack should be 1 -> stack should be 1
drop erase
"b" "a" <= "b" "a" <=
-> stack should be 0 -> stack should be 0
drop erase
"a" "a" <= "a" "a" <=
-> stack should be 1 -> stack should be 1
drop erase
# string != # string !=
"a" "b" != "a" "b" !=
-> stack should be 1 -> stack should be 1
drop erase
"a" "a" != "a" "a" !=
-> stack should be 0 -> stack should be 0
drop erase
# string == # string ==
"a" "b" == "a" "b" ==
-> stack should be 0 -> stack should be 0
drop erase
"a" "a" == "a" "a" ==
-> stack should be 1 -> stack should be 1
drop erase
# string same # string same
"a" "b" same "a" "b" same
-> stack should be 0 -> stack should be 0
drop erase
"a" "a" same "a" "a" same
-> stack should be 1 -> stack should be 1
drop erase

1
test/08-store.txt
View file

@ -1,4 +1,5 @@
## STORE ## STORE
default erase
# symbol entry # symbol entry
'test' 'test'

2
test/09-program.txt
View file

@ -1,4 +1,5 @@
## PROGRAM ## PROGRAM
default erase
# program # program
<< 'one' >> << 'one' >>
@ -52,3 +53,4 @@ erase
0 1 10 << -> u0 u1 n << u0 u1 1 n start dup2 + rot drop next swap drop >> >> eval 0 1 10 << -> u0 u1 n << u0 u1 1 n start dup2 + rot drop next swap drop >> >> eval
eval eval
-> stack should be 89 -> stack should be 89
erase

84
test/10-complex.txt
View file

@ -25,7 +25,7 @@ erase
# entry (5) # entry (5)
(0x1234,0x10.10) (0x1234,0x10.10)
-> stack should be (0x1.234p+12,0x1.01p+4) -> stack should be (0x1.234p+12,0x1.01p+4)
drop erase
# entry (6) # entry (6)
(0b11,0b101) (0b11,0b101)
@ -35,197 +35,197 @@ erase
# add (1) # add (1)
(1.2,2.3) (1,2) + (1.2,2.3) (1,2) +
-> stack should be (2.2,4.3) -> stack should be (2.2,4.3)
drop erase
# add (2) # add (2)
(1.2,2.3) (1,2)+ (1.2,2.3) (1,2)+
-> stack should be (2.2,4.3) -> stack should be (2.2,4.3)
drop erase
# add (3) # add (3)
(1.2,2.3) 3+ (1.2,2.3) 3+
-> stack should be (4.2,2.3) -> stack should be (4.2,2.3)
drop erase
# add (4) # add (4)
3 (1.2,2.3)+ 3 (1.2,2.3)+
-> stack should be (4.2,2.3) -> stack should be (4.2,2.3)
drop erase
# sub (1) # sub (1)
(1.2,2.3) (2,2) - (1.2,2.3) (2,2) -
-> stack should be (-0.8,0.3) -> stack should be (-0.8,0.3)
drop erase
# sub (2) # sub (2)
(1.2,2.3) (1,2)- (1.2,2.3) (1,2)-
-> stack should be (0.2,0.3) -> stack should be (0.2,0.3)
drop erase
# sub (3) # sub (3)
(1.2,2.3) 1- (1.2,2.3) 1-
-> stack should be (0.2,2.3) -> stack should be (0.2,2.3)
drop erase
# sub (4) # sub (4)
1 (1.2,2.3) - 1 (1.2,2.3) -
-> stack should be (-0.2,2.3) -> stack should be (-0.2,2.3)
drop erase
# mul (1) # mul (1)
(1,2) (3,4) * (1,2) (3,4) *
-> stack should be (-5,10) -> stack should be (-5,10)
drop erase
# mul (2) # mul (2)
(3,4) (1,2) * (3,4) (1,2) *
-> stack should be (-5,10) -> stack should be (-5,10)
drop erase
# mul (3) # mul (3)
(3,4) 2 * (3,4) 2 *
-> stack should be (6,8) -> stack should be (6,8)
drop erase
# mul (3) # mul (3)
2 (3,4) * 2 (3,4) *
-> stack should be (6,8) -> stack should be (6,8)
drop erase
# div (1) # div (1)
(1,2) (3,4) / (1,2) (3,4) /
-> stack should be (0.44,0.08) -> stack should be (0.44,0.08)
drop erase
# div (2) # div (2)
(1,2) 2 / (1,2) 2 /
-> stack should be (0.5,1) -> stack should be (0.5,1)
drop erase
# div (3) # div (3)
2 (3,4) / 2 (3,4) /
-> stack should be (0.24,-0.32) -> stack should be (0.24,-0.32)
drop erase
# re (1) # re (1)
(1.2,3.4) re (1.2,3.4) re
-> stack should be 1.2 -> stack should be 1.2
drop erase
# re (2) # re (2)
3 re 3 re
-> error should be 3 -> error should be 3
drop erase
# re (3) # re (3)
re re
-> error should be 2 -> error should be 2
drop erase
# im (1) # im (1)
(1.2,3.4) im (1.2,3.4) im
-> stack should be 3.4 -> stack should be 3.4
drop erase
# im (2) # im (2)
3 re 3 re
-> error should be 3 -> error should be 3
drop erase
# im (3) # im (3)
re re
-> error should be 2 -> error should be 2
drop erase
# chs # chs
(3.14,6.28) chs (3.14,6.28) chs
-> stack should be (-3.14,-6.28) -> stack should be (-3.14,-6.28)
drop erase
# neg # neg
(-3.14,-6.28) neg (-3.14,-6.28) neg
-> stack should be (3.14,6.28) -> stack should be (3.14,6.28)
drop erase
# inv (1) # inv (1)
(2,4) inv (2,4) inv
-> stack should be (0.1,-0.2) -> stack should be (0.1,-0.2)
drop erase
# inv (2) # inv (2)
(0.1,-0.2) inv (0.1,-0.2) inv
-> stack should be (2,4) -> stack should be (2,4)
drop erase
# abs # abs
(3,4) abs (3,4) abs
-> stack should be 5 -> stack should be 5
drop erase
# sign (1) # sign (1)
(1,0) sign (1,0) sign
-> stack should be (1,0) -> stack should be (1,0)
drop erase
# sign (2) # sign (2)
(0,1) sign (0,1) sign
-> stack should be (0,1) -> stack should be (0,1)
drop erase
# sign (3) # sign (3)
(3,-4) sign (3,-4) sign
-> stack should be (0.6,-0.8) -> stack should be (0.6,-0.8)
drop erase
# sq (1) # sq (1)
(12,10) sq (12,10) sq
-> stack should be (44,240) -> stack should be (44,240)
drop erase
# sqr (1) # sqr (1)
(12,10) sq (12,10) sq
-> stack should be (44,240) -> stack should be (44,240)
drop erase
# arg (1) # arg (1)
(1,1) arg pi 4 / == (1,1) arg pi 4 / ==
-> stack should be 1 -> stack should be 1
drop erase
# arg (2) # arg (2)
(-1,1) arg pi 3 * 4 / == (-1,1) arg pi 3 * 4 / ==
-> stack should be 1 -> stack should be 1
drop erase
# arg (3) # arg (3)
(1,-1) arg -45 d->r == (1,-1) arg -45 d->r ==
-> stack should be 1 -> stack should be 1
drop erase
# arg (4) # arg (4)
(-1,-1) arg pi -3 * 4 / == (-1,-1) arg pi -3 * 4 / ==
-> stack should be 1 -> stack should be 1
drop erase
# arg (5) # arg (5)
(1,0) arg 0 == (1,0) arg 0 ==
-> stack should be 1 -> stack should be 1
drop erase
# arg (6) # arg (6)
(0,1) arg pi 2 / == (0,1) arg pi 2 / ==
-> stack should be 1 -> stack should be 1
drop erase
# arg (7) # arg (7)
(-1,0) arg pi == (-1,0) arg pi ==
-> stack should be 1 -> stack should be 1
drop erase
# arg (8) # arg (8)
(0,-1) arg pi neg 2 / == (0,-1) arg pi neg 2 / ==
-> stack should be 1 -> stack should be 1
drop erase
# conj # conj
(1,2) conj dup conj (1,2) conj dup conj
@ -240,12 +240,12 @@ erase
# r->c (2) # r->c (2)
1 r->c 1 r->c
-> error should be 2 -> error should be 2
drop erase
# r->c (3) # r->c (3)
r->c r->c
-> error should be 2 -> error should be 2
drop erase
# r->c (3) # r->c (3)
'1' '2' r->c '1' '2' r->c

10
test/99-manual-tests.txt
View file

@ -1,26 +1,34 @@
## MANUAL TESTS ## MANUAL TESTS
erase default erase
# GENERAL help # GENERAL help
-> error should be 0 -> error should be 0
erase
# GENERAL h # GENERAL h
-> error should be 0 -> error should be 0
erase
# GENERAL ? # GENERAL ?
-> error should be 0 -> error should be 0
erase
# GENERAL quit # GENERAL quit
-> error should be 0 -> error should be 0
erase
# GENERAL q # GENERAL q
-> error should be 0 -> error should be 0
erase
# GENERAL exit # GENERAL exit
-> error should be 0 -> error should be 0
erase
# STORE vars # STORE vars
-> error should be 0 -> error should be 0
erase
# STORE edit # STORE edit
-> error should be 0 -> error should be 0
erase