X-Git-Url: https://secure.softndesign.org/git/?a=blobdiff_plain;f=calc.c;h=f79a89a21cfe8efea678b79840404694da87e27f;hb=143f91aef3937e135905985d21f31483bb16a3a2;hp=6950ad57522676c10055730e805f0baf89681d2e;hpb=9b759869476fd697c534a6c3b126c0ee34a88778;p=calc.git

diff --git a/calc.c b/calc.c
index 6950ad5..f79a89a 100644
--- a/calc.c
+++ b/calc.c
@@ -373,6 +373,8 @@ int main (int argc, char *argv[])
 // test: echo -e 'rcl (3)\ndisp' | calc.exe | grep -q "storage: 0 0 0 0 0 0 0 0 0 0"
 // test: echo -e 'inc (2)\ndisp' | calc.exe | grep -q "storage: 0 1 0 0 0 0 0 0 0 0"
 // test: echo -e 'dec (2)\ndisp' | calc.exe | grep -q "storage: 0 -1 0 0 0 0 0 0 0 0"
+// test: echo -e 'sto (3, pi)\nclr\ndisp' | calc.exe | grep -q "storage: 0 0 0 0 0 0 0 0 0 0"
+// test: echo -e 'mem (3)\nclr' | calc.exe -v 3 | grep -q Clear
 
 // Gauss sequence
 // test: echo -e '{sto (1, 0), sto (10, 0), while (inc (10) < 100, {sto (1, rcl (1) + rcl (10)), print (rcl (1))})};' | calc.exe | grep -q '=> 5050'