#lang honu



obj test(t, a, b){
  if (a != b){
    display(t);
    display(" failed!");
    newline();
    display("Got ");
    display(a);
    display(". Expected ");
    display(b);
    newline();
  }
}

obj test1(){
  var x = 3;
  const y = 2;
  test("x = 3", x, 3);
  test("y = 2", y, 2);
}

obj test2(){
  obj foo(){
    1;
  }

  obj x1(){
    obj x(){
      2;
    }
    x;
  }
 
  (-> obj) x2(){
    obj x(){
      3;
    }
    x;
  }
  
  /*
  var anonymous_foo = obj x(){
    2;
  };
  */

  var anonymous_foo = x1();
  var x2_x = x2();

  test("foo() = 1", foo(), 1);
  test("anonymous_foo = 2", anonymous_foo(), 2);
  test("x2_x = 3", x2_x(), 3);
}

test1();
test2();