using VQDR.Expression;

void
test_value_token () {
  GLib.Test.add_func ("/VQDR/Expression/Token/Value/sanity", () => {
    var ctx = new Context ();
    
    if (ctx == null) {
      GLib.Test.message ("Context was null.");
      GLib.Test.fail ();
      GLib.assert_not_reached ();
    }
    
    if (!(ctx.get_type ().is_a (typeof (Context)))) {
      GLib.Test.message ("Context is not the right type.");
      GLib.Test.fail ();
      GLib.assert_not_reached ();
    }
    
    var v1 = new ConstantValueToken (13,37);
    var v2 = new VariableValueToken ("my-val", 13);
    
    Type t1 = v1.get_type ();
    if (!(t1.is_a (typeof (ConstantValueToken)) &&
          t1.is_a (typeof (ValueToken)) &&
          t1.is_a (typeof (Token)))) {
      GLib.Test.message ("The ConstastValueToken is not the corret type.");
      GLib.Test.fail ();
      GLib.assert_not_reached ();
    }
    
   Type t2 = v2.get_type ();
    if (!((t2.is_a (typeof (VariableValueToken))) &&
          (t2.is_a (typeof (ValueToken))) &&
          (t2.is_a (typeof (Token))))) {
      GLib.Test.message ("The VariableValueToken is not the corret type.");
      GLib.Test.fail ();
      GLib.assert_not_reached ();
    }
    
  });
  
  GLib.Test.add_func ("/VQDR/Expression/token/Value/Factory", () => {
    var v3 = ValueToken.init_value_token (13L, 37);
    var v4 = ValueToken.init_value_token ("foo", 12);
    Type t4 = v4.get_type ();
    Type t3 = v3.get_type ();
    
    
    if (!(t3.is_a (typeof (ConstantValueToken))) &&
          t3.is_a (typeof (ValueToken)) &&
          t3.is_a (typeof (Token))) {
      GLib.Test.message ("The ConstastValueToken is not the corret type.");
      GLib.Test.fail ();
      GLib.assert_not_reached ();
    }
    
   
    if (!((t4.is_a (typeof (VariableValueToken))) &&
          (t4.is_a (typeof (ValueToken))) &&
          (t4.is_a (typeof (Token))))) {
      GLib.Test.message ("The VariableValueToken is not the corret type.");
      GLib.Test.fail ();
      GLib.assert_not_reached ();
    }
  });
  
  GLib.Test.add_func ("/VQDR/Expression/Token/Value/Constant", () => {
    try {
      int64 in_val = 12;
      
      var ctx = new Context ();
      
      var v1 = new ConstantValueToken (in_val, 1);
      
      var root_t = new RootToken (v1);
      
      root_t.evaluate (ctx);
      
      int64 out_val = root_t.result_value.number;
      
      if (out_val != in_val) {
        GLib.Test.message (@"The values do not match: Expected $(in_val), " +
                           " got $(out_val).\n");
        GLib.Test.fail ();
      }
    } catch (GLib.Error? e) {
       GLib.Test.message (@"An error occured: domain: $(e.domain)," +
                          " message: $(e.message)");
       GLib.Test.fail ();
    }
  });
  
  GLib.Test.add_func ("/VQDR/Expression/Token/Value/ConstantLoop", () => {
    
    
    try {
      var ctx = new Context ();
      
      for (int i = 0; i <= 10000; i++ ) {
        var v1 = new ConstantValueToken (i, 1);
        
        var root_t = new RootToken (v1);
        
        root_t.evaluate (ctx);
        
        int64 out_val = root_t.result_value.number;
        
        if (out_val != i) {
          GLib.Test.message ("The values do not match");
          GLib.Test.fail ();
        }
      }
    } catch (GLib.Error? e) {
       GLib.Test.message ("An error occured: domain: %s, message: %s", e.domain.to_string (), e.message);
       GLib.Test.fail ();
    }
  });
  
  GLib.Test.add_func ("/VQDR/Expression/Token/Value/Varuable", () => {
    try {
      var ctx = new Context ();
      ctx.set_value ("a", 0, 0, 13);
      ctx.set_value ("not a", 0, 0, 37);
      
      // Context variable santy check.
      if ((ctx.get_value ("a").number != 13) || (ctx.get_value ("not a").number != 37)) {
          GLib.Test.message ("The values do not match");
          
          GLib.Test.fail ();
      }
      
      var v1 = new VariableValueToken ("a", 1);
      var v2 = new VariableValueToken ("not a", 1);
      
      print (v1.result_string + "\n");
      print (v2.result_string + "\n");
    } catch (GLib.Error? e) {
       GLib.Test.message ("An error occured: domain: %s, message: %s", e.domain.to_string (), e.message);
       GLib.Test.fail ();
    }
  });
  
  
}