/[svn]/linuxsampler/trunk/src/scriptvm/tests/NKSPCoreLangTest.cpp

Diff of /linuxsampler/trunk/src/scriptvm/tests/NKSPCoreLangTest.cpp

Parent Directory | Revision Log | View Patch Patch

-revision 3551 by schoenebeck,
Thu Aug  1 10:22:56 2019 UTC
+revision 3575 by schoenebeck,
Wed Aug 28 11:12:04 2019 UTC
 Line 12
  #include "../../common/global.h"
  #include "../../common/optional.h"
+ #include "../../common/RTMath.h"
  #include "../ScriptVM.h"
  #include "../common.h"
  #include <sstream>
-Line 33 
 struct RunScriptOpt {
+Line 34 
 struct RunScriptOpt {
      bool expectRuntimeError;
      bool expectNoExitResult;
      bool prohibitExitFunctionArguments;
-     optional<int> expectIntExitResult;
+     optional<vmint> expectIntExitResult;
      optional<bool> expectBoolExitResult;
+     optional<vmfloat> expectRealExitResult;
      optional<String> expectStringExitResult;
  };
-Line 78 
 static void runScript(const RunScriptOpt
+Line 80 
 static void runScript(const RunScriptOpt
              TEST_ASSERT(resExpr->exprType() == INT_EXPR);
              TEST_ASSERT(resExpr->asInt()->evalInt() == *opt.expectIntExitResult);
          }
+         if (opt.expectRealExitResult) {
+             VMExpr* resExpr = execCtx->exitResult();
+             TEST_ASSERT(resExpr);
+             TEST_ASSERT(resExpr->exprType() == REAL_EXPR);
+             if (sizeof(vmfloat) == sizeof(float)) {
+                 TEST_ASSERT(RTMath::fEqual32(resExpr->asReal()->evalReal(), *opt.expectRealExitResult));
+             } else {
+                 TEST_ASSERT(RTMath::fEqual64(resExpr->asReal()->evalReal(), *opt.expectRealExitResult));
+             }
+         }
          if (opt.expectBoolExitResult) {
              VMExpr* resExpr = execCtx->exitResult();
              TEST_ASSERT(resExpr);
-Line 124 
 end on
+Line 136 
 end on
          .expectNoExitResult = true
      });
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 158 
 end on
+Line 172 
 end on
          .expectIntExitResult = 99
      });
+     // string tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 179 
 end on
+Line 195 
 end on
          .prohibitExitFunctionArguments = true // simulate production environment
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.14)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 3.14
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   declare $foo := 1
+   if ($foo)
+     exit(3.14)
+   end if
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 3.14
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   declare $foo := 0
+   if ($foo)
+     exit(3.14)
+   end if
+   exit(6.9)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 6.9
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 225 
 end on
+Line 277 
 end on
      #endif
  }
+ static void testNegOperator() {
+     #if !SILENT_TEST
+     std::cout << "UNIT TEST: negate (-) operator\n";
+     #endif
+     // integer tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-87)
+ end on
+ )NKSP_CODE",
+         .expectIntExitResult = -87
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   declare $foo := -87
+   exit(-$foo)
+ end on
+ )NKSP_CODE",
+         .expectIntExitResult = 87
+     });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-99.3)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = -99.3
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   declare ~foo := -99.3
+   exit(-~foo)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 99.3
+     });
+     #if !SILENT_TEST
+     std::cout << std::endl;
+     #endif
+ }
  static void testPlusOperator() {
      #if !SILENT_TEST
      std::cout << "UNIT TEST: plus (+) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 257 
 end on
+Line 363 
 end on
          .expectIntExitResult = -2
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(4.0 + 3.0)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 7.0
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(42.3 + 145.2)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 187.5
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-4.0 + 2.2)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = -1.8
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 267 
 static void testMinusOperator() {
+Line 402 
 static void testMinusOperator() {
      std::cout << "UNIT TEST: minus (-) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 303 
 end on
+Line 440 
 end on
          .expectIntExitResult = -21
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(4.0 - 0.2)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 3.8
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.1 - 9.65)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = -6.55
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-3.0 - 18.1)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = -21.1
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 313 
 static void testModuloOperator() {
+Line 479 
 static void testModuloOperator() {
      std::cout << "UNIT TEST: modulo (mod) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 322 
 end on
+Line 490 
 end on
          .expectIntExitResult = 2
      });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   declare $a := 10
+   declare $b := 8
+   exit($a mod $b)
+ end on
+ )NKSP_CODE",
+         .expectIntExitResult = 2
+     });
+     // real number tests ...
+     // (mod operator prohibits real numbers ATM)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(10.0 mod 8.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // mod operator prohibits real numbers ATM
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(10 mod 8.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // mod operator prohibits real numbers ATM
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(10.0 mod 8)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // mod operator prohibits real numbers ATM
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   declare ~a := 10.0
+   declare ~b := 8.0
+   exit(~a mod ~b)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // mod operator prohibits real numbers ATM
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 332 
 static void testMultiplyOperator() {
+Line 552 
 static void testMultiplyOperator() {
      std::cout << "UNIT TEST: multiply (*) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 368 
 end on
+Line 590 
 end on
          .expectIntExitResult = -7257
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(10.2 * 8.4)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 85.68
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(10.0 * -3.33)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = -33.3
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-3.33 * 10.0)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = -33.3
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-3.33 * -10.0)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 33.3
+     });
+     // mixed type tests ...
+     // (mixed int * real forbidden ATM)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(2 * 3.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // mixed int * real forbidden ATM
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(2.0 * 3)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // mixed int * real forbidden ATM
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 378 
 static void testDivideOperator() {
+Line 659 
 static void testDivideOperator() {
      std::cout << "UNIT TEST: divide (/) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 414 
 end on
+Line 697 
 end on
          .expectIntExitResult = -7
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9.0 / 10.0)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 0.9
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-9.0 / 10.0)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = -0.9
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9.0 / -10.0)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = -0.9
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-9.0 / -10.0)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 0.9
+     });
+     // mixed type tests ...
+     // (mixed int / real forbidden ATM)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9 / 10.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // mixed int / real forbidden ATM
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9.0 / 10)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // mixed int / real forbidden ATM
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 424 
 static void testSmallerThanOperator() {
+Line 766 
 static void testSmallerThanOperator() {
      std::cout << "UNIT TEST: smaller than (<) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 478 
 end on
+Line 822 
 end on
          .expectBoolExitResult = true
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 < 4.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(4.0 < 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.2 < 1.23)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.23 < 1.2)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-4.0 < 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 < -4.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(123.0 < -45.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-45.0 < 123.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     // mixed type tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9 < 9.1)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9.1 < 9)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 488 
 static void testGreaterThanOperator() {
+Line 926 
 static void testGreaterThanOperator() {
      std::cout << "UNIT TEST: greater than (>) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 542 
 end on
+Line 982 
 end on
          .expectBoolExitResult = false
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 > 4.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(4.0 > 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.2 > 1.23)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.23 > 1.2)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-4.0 > 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 > -4.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(123.0 > -45.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-45.0 > 123.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     // mixed type tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9 > 9.1)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9.1 > 9)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 552 
 static void testSmallerOrEqualOperator()
+Line 1086 
 static void testSmallerOrEqualOperator()
      std::cout << "UNIT TEST: smaller-or-equal (<=) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 642 
 end on
+Line 1178 
 end on
          .expectBoolExitResult = true
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 <= 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(4.33 <= 4.33)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-23.1 <= -23.1)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(23.3 <= -23.3)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 <= 4.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(4.0 <= 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-4.0 <= 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 <= -4.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(123.0 <= -45.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-45.0 <= 123.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     // mixed type tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9 <= 9.1)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9.1 <= 9)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9 <= 9.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9.0 <= 9)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 652 
 static void testGreaterOrEqualOperator()
+Line 1318 
 static void testGreaterOrEqualOperator()
      std::cout << "UNIT TEST: greater-or-equal (>=) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 742 
 end on
+Line 1410 
 end on
          .expectBoolExitResult = false
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 >= 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.1 >= 3.1)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.1 >= 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 >= 3.1)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-23.33 >= -23.33)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(23.0 >= -23.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 >= 4.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(4.0 >= 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-4.0 >= 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 >= -4.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(123.0 >= -45.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(-45.0 >= 123.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     // mixed type tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9 >= 9.1)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9.1 >= 9)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9 >= 9.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(9.0 >= 9)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 752 
 static void testEqualOperator() {
+Line 1568 
 static void testEqualOperator() {
      std::cout << "UNIT TEST: equal (=) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 788 
 end on
+Line 1606 
 end on
          .expectBoolExitResult = false
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 = 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(4.33 = 4.33)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(4.31 = 4.35)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 = 4.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(23.0 = -23.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     // mixed type tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(23 = 23.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(23.0 = 23)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(23 = 23.1)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(23.1 = 23)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 798 
 static void testUnequalOperator() {
+Line 1701 
 static void testUnequalOperator() {
      std::cout << "UNIT TEST: unequal (#) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 834 
 end on
+Line 1739 
 end on
          .expectBoolExitResult = true
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 # 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.14 # 3.14)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.19 # 3.12)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(23.0 # -23.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     // mixed type tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3 # 3.0)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.0 # 3)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = false
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.1 # 3)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3 # 3.1)
+ end on
+ )NKSP_CODE",
+         .expectBoolExitResult = true
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 844 
 static void testLogicalAndOperator() {
+Line 1825 
 static void testLogicalAndOperator() {
      std::cout << "UNIT TEST: logical and (and) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 898 
 end on
+Line 1881 
 end on
          .expectBoolExitResult = false
      });
+     // real number tests ...
+     // (not allowed for this operator)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.0 and 1.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
+     // mixed type tests ...
+     // (not allowed for this operator)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.0 and 1)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1 and 1.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 908 
 static void testLogicalOrOperator() {
+Line 1924 
 static void testLogicalOrOperator() {
      std::cout << "UNIT TEST: logical or (or) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 962 
 end on
+Line 1980 
 end on
          .expectBoolExitResult = false
      });
+     // real number tests ...
+     // (not allowed for this operator)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.0 or 1.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
+     // mixed type tests ...
+     // (not allowed for this operator)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.0 or 1)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1 or 1.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 972 
 static void testLogicalNotOperator() {
+Line 2023 
 static void testLogicalNotOperator() {
      std::cout << "UNIT TEST: logical not (not) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 999 
 end on
+Line 2052 
 end on
          .expectBoolExitResult = true
      });
+     // real number tests ...
+     // (not allowed for this operator)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(not 1.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 1009 
 static void testBitwiseAndOperator() {
+Line 2074 
 static void testBitwiseAndOperator() {
      std::cout << "UNIT TEST: bitwise and (.and.) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 1027 
 end on
+Line 2094 
 end on
          .expectIntExitResult = 10
      });
+     // real number tests ...
+     // (not allowed for this operator)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.0 .and. 1.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
+     // mixed type tests ...
+     // (not allowed for this operator)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.0 .and. 1)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1 .and. 1.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 1037 
 static void testBitwiseOrOperator() {
+Line 2137 
 static void testBitwiseOrOperator() {
      std::cout << "UNIT TEST: bitwise or (.or.) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 1064 
 end on
+Line 2166 
 end on
          .expectIntExitResult = 175
      });
+     // real number tests ...
+     // (not allowed for this operator)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.0 .or. 1.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
+     // mixed type tests ...
+     // (not allowed for this operator)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1.0 .or. 1)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(1 .or. 1.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 1074 
 static void testBitwiseNotOperator() {
+Line 2209 
 static void testBitwiseNotOperator() {
      std::cout << "UNIT TEST: bitwise not (.not.) operator\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 1101 
 end on
+Line 2238 
 end on
          .expectIntExitResult = ssize_t(size_t(-1) << 2)
      });
+     // real number tests ...
+     // (not allowed for this operator)
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(.not. 1.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(.not. -1.0)
+ end on
+ )NKSP_CODE",
+         .expectParseError = true // real numbers not allowed for this operator
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 1111 
 static void testPrecedenceOfOperators()
+Line 2269 
 static void testPrecedenceOfOperators()
      std::cout << "UNIT TEST: precedence of operators\n";
      #endif
+     // integer tests ...
      runScript({
          .code = R"NKSP_CODE(
  on init
-Line 1147 
 end on
+Line 2307 
 end on
          .expectIntExitResult = 20
      });
+     // real number tests ...
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(3.2 + 4.0 * 2.0)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 11.2
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(4.0 * 2.0 + 3.2)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 11.2
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit((3.2 + 4.0) * 2.0)
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 14.4
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit(4.0 * (2.0 + 3.2))
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 20.8
+     });
      #if !SILENT_TEST
      std::cout << std::endl;
      #endif
-Line 1618 
 end on
+Line 2816 
 end on
      #endif
  }
+ static void testBuiltInIntToRealFunction() {
+     #if !SILENT_TEST
+     std::cout << "UNIT TEST: built-in int_to_real() function\n";
+     #endif
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit( int_to_real(8) )
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 8.0
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   declare $foo := 23
+   exit( int_to_real($foo) )
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 23.0
+     });
+     #if !SILENT_TEST
+     std::cout << std::endl;
+     #endif
+ }
+ static void testBuiltInRealFunction() {
+     #if !SILENT_TEST
+     std::cout << "UNIT TEST: built-in real() function\n";
+     #endif
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit( real(8) )
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 8.0
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   declare $foo := 23
+   exit( real($foo) )
+ end on
+ )NKSP_CODE",
+         .expectRealExitResult = 23.0
+     });
+     #if !SILENT_TEST
+     std::cout << std::endl;
+     #endif
+ }
+ static void testBuiltInRealToIntFunction() {
+     #if !SILENT_TEST
+     std::cout << "UNIT TEST: built-in real_to_int() function\n";
+     #endif
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit( real_to_int(8.9) )
+ end on
+ )NKSP_CODE",
+         .expectIntExitResult = 8
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   declare ~foo := 8.9
+   exit( real_to_int(~foo) )
+ end on
+ )NKSP_CODE",
+         .expectIntExitResult = 8
+     });
+     #if !SILENT_TEST
+     std::cout << std::endl;
+     #endif
+ }
+ static void testBuiltInIntFunction() {
+     #if !SILENT_TEST
+     std::cout << "UNIT TEST: built-in int() function\n";
+     #endif
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   exit( int(8.9) )
+ end on
+ )NKSP_CODE",
+         .expectIntExitResult = 8
+     });
+     runScript({
+         .code = R"NKSP_CODE(
+ on init
+   declare ~foo := 8.9
+   exit( int(~foo) )
+ end on
+ )NKSP_CODE",
+         .expectIntExitResult = 8
+     });
+     #if !SILENT_TEST
+     std::cout << std::endl;
+     #endif
+ }
  static void testBuiltInArrayEqualFunction() {
      #if !SILENT_TEST
      std::cout << "UNIT TEST: built-in array_equal() function\n";
-Line 1900 
 end on
+Line 3214 
 end on
  int main() {
      testBuiltInExitFunction();
      testStringConcatOperator();
+     testNegOperator();
      testPlusOperator();
      testMinusOperator();
      testModuloOperator();
-Line 1927 
 int main() {
+Line 3242 
 int main() {
      testBuiltInRandomFunction();
      testBuiltInShiftLeftFunction();
      testBuiltInShiftRightFunction();
+     testBuiltInIntToRealFunction();
+     testBuiltInRealFunction();
+     testBuiltInRealToIntFunction();
+     testBuiltInIntFunction();
      testBuiltInArrayEqualFunction();
      testBuiltInSortFunction();
      testBuiltInNumElementsFunction();

 Legend:



Removed from v.3551
 


changed lines


 
Added in v.3575
 Legend:



Removed from v.3551
 


changed lines


 
Added in v.3575
-Removed from v.3551
+Added in v.3575

	ViewVC Help
Powered by ViewVC