Index: test/num.test
==================================================================
--- test/num.test
+++ test/num.test
@@ -34,7 +34,32 @@
   sqlite4_num_to_text [sqlite4_num_from_text 37]
 } {37}
 do_test num-2.1.2 {
   sqlite4_num_to_text [sqlite4_num_from_text 37 2]
 } {37}
+do_test num-2.1.4 {
+  sqlite4_num_compare [sqlite4_num_from_text 2.9e2X 5] 290
+} {equal}
+
+do_test num-3.1.1 {
+  sqlite4_num_to_text [sqlite4_num_add 5 7]
+} {12}
+
+do_test num-4.1.1 {
+  sqlite4_num_to_text [sqlite4_num_sub 9 3]
+} {6}
+do_test num-4.1.2 {
+  sqlite4_num_to_text [sqlite4_num_sub 5 12]
+} {-7}
+
+do_test num-5.1.1 {
+  sqlite4_num_to_text [sqlite4_num_mul 9 8]
+} {72}
+
+do_test num-6.1.1 {
+  sqlite4_num_to_text [sqlite4_num_div 6 5]
+} {1.2}
+
+
+
 
 finish_test

Index: test/test_main.c
==================================================================
--- test/test_main.c
+++ test/test_main.c
@@ -4456,10 +4456,65 @@
   }
   sqlite4_num_to_text( test_parse_num( argv[1] ), text );
   Tcl_AppendResult( interp, text, 0 );
   return TCL_OK;
 }
+
+static int test_num_binary_op(
+  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
+  int argc,              /* Number of arguments */
+  char **argv,            /* Text of each argument */
+  sqlite4_num (*op) (sqlite4_num, sqlite4_num)
+){
+  sqlite4_num A, B, R;
+  if( argc!=3 ){
+    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+      " NUM NUM\"", 0);
+    return TCL_ERROR;
+  }
+  A = test_parse_num(argv[1]);
+  B = test_parse_num(argv[2]);
+  R = op(A, B);
+  append_num_result(interp, R);
+  return TCL_OK;
+}
+
+static int test_num_add(
+  void *NotUsed,
+  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
+  int argc,              /* Number of arguments */
+  char **argv            /* Text of each argument */
+){
+  return test_num_binary_op( interp, argc, argv, sqlite4_num_add );
+}
+
+static int test_num_sub(
+  void *NotUsed,
+  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
+  int argc,              /* Number of arguments */
+  char **argv            /* Text of each argument */
+){
+  return test_num_binary_op( interp, argc, argv, sqlite4_num_sub );
+}
+
+static int test_num_mul(
+  void *NotUsed,
+  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
+  int argc,              /* Number of arguments */
+  char **argv            /* Text of each argument */
+){
+  return test_num_binary_op( interp, argc, argv, sqlite4_num_mul );
+}
+
+static int test_num_div(
+  void *NotUsed,
+  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
+  int argc,              /* Number of arguments */
+  char **argv            /* Text of each argument */
+){
+  return test_num_binary_op( interp, argc, argv, sqlite4_num_div );
+}
 
 /*
 ** Register commands with the TCL interpreter.
 */
 int Sqlitetest1_Init(Tcl_Interp *interp){
@@ -4512,11 +4567,16 @@
      { "sqlite4_stack_used",            (Tcl_CmdProc*)test_stack_used       },
      { "printf",                        (Tcl_CmdProc*)test_printf           },
      { "sqlite4IoTrace",                (Tcl_CmdProc*)test_io_trace         },
      { "sqlite4_num_compare",           (Tcl_CmdProc*)test_num_compare      }, 
      { "sqlite4_num_from_text",         (Tcl_CmdProc*)test_num_from_text    }, 
-     { "sqlite4_num_to_text",           (Tcl_CmdProc*)test_num_to_text      }, 
+     { "sqlite4_num_to_text",           (Tcl_CmdProc*)test_num_to_text      },
+     { "sqlite4_num_add",               (Tcl_CmdProc*)test_num_add          },
+     { "sqlite4_num_sub",               (Tcl_CmdProc*)test_num_sub          },
+     { "sqlite4_num_mul",               (Tcl_CmdProc*)test_num_mul          },
+     { "sqlite4_num_div",               (Tcl_CmdProc*)test_num_div          },
+   
   };
   static struct {
      char *zName;
      Tcl_ObjCmdProc *xProc;
      void *clientData;