toctave

commit b168835e030efcdb494865fbe8db21d9f0338484
parent 7b6066c37fff7954077148b530e93be7f0f2b35c
Author: Mohammad-Reza Nabipoor <mnabipoor@gnu.org>
Date:   Tue, 31 May 2022 00:10:07 +0430

cgen.test.cpp: Add comments

Diffstat:
M
cgen.test.cpp
 | 
13
+++++++++++++

1 file changed, 13 insertions(+), 0 deletions(-)
diff --git a/cgen.test.cpp b/cgen.test.cpp
@@ -18,6 +18,7 @@ cgen_sexpr()
     ++i;
   };
 
+  // 0
   {
     ast::Nodes binop1{ ast::mkop(
       ast::Op{ '+' }, ast::mknum(1), ast::mknum(2)) };
@@ -27,6 +28,7 @@ cgen_sexpr()
     assert(s == "(+ 1 2)");
   }
 
+  // 1
   {
     ast::Nodes ass1{ ast::mkass(
       ast::Id{ "x" },
@@ -39,6 +41,7 @@ cgen_sexpr()
     assert(s == "(setq x (+ (/ 1 2) (* 3 4)))");
   }
 
+  // 2
   {
     ast::Nodes eval1{ ast::mkcall(ast::Id{ "eval" },
                                   ast::mkstr(ast::Str{ "y = 1 + x" })) };
@@ -58,6 +61,7 @@ cgen_jroutine()
     ++i;
   };
 
+  // 0
   {
     cgen::JRoutine r;
     env::Env e;
@@ -85,6 +89,7 @@ cgen_jroutine()
     assert(e.empty());
   }
 
+  // 1
   {
     cgen::JRoutine r;
     env::Env e;
@@ -116,6 +121,7 @@ cgen_jroutine()
     assert(e.empty());
   }
 
+  // 2
   {
     cgen::JRoutine r;
     env::Env e;
@@ -153,6 +159,7 @@ cgen_jroutine()
     assert(e[0].val == 7.0);
   }
 
+  // 3
   {
     cgen::JRoutine r;
     env::Env e{ { "y", 10.0 } };
@@ -193,6 +200,7 @@ cgen_jroutine()
     assert(e[0].val == 81.0);
   }
 
+  // 4
   {
     cgen::JRoutine r;
     env::Env e;
@@ -239,6 +247,8 @@ $L8:  push    2.000000
     assert(e[0].name == "x");
     assert(e[0].val == 7.0);
 
+    // p(cgen::disasm(er));
+
     // execution after the yield
     assert(er.exec(e) == true);
     assert(er.result() == 14.0);
@@ -258,6 +268,7 @@ cgen_jitter()
     ++i;
   };
 
+  // 0
   {
     ast::Nodes num1{ ast::mknum(120) };
     auto j{ cgen::jitter(num1.begin(), num1.end()) };
@@ -275,6 +286,7 @@ cgen_jitter()
     assert(je.result() == 120.0);
   }
 
+  // 1
   {
     ast::Nodes binop1{ ast::mkop(
       ast::Op{ '+' }, ast::mknum(1), ast::mknum(2)) };
@@ -295,6 +307,7 @@ cgen_jitter()
     assert(je.result() == 3.0);
   }
 
+  // 2
   {
     ast::Nodes ass1{ ast::mkass(
       ast::Id{ "x" },