application test

  entity TestEntity{
    name :: String
  }

  define page root() {
    var st := "1"
    var ins := 3
    form{
      b(12345)  	
      submit action{ TestEntity{ name := st+ins }.save(); } {"save"}
    } 
    for(te:TestEntity){
      output(te.name)
    }

    define b(i:Int) = a(*,st,ins)
  }

  define a(i:Int, s:Ref<String>, ins: Ref<Int>){
    output(i)
    input(s)
    input(ins)
  }
  
  define b(i:Int){
    "error"
  }

  test {
    var d : WebDriver := getFirefoxDriver();
    d.get(navigate(root()));
    assert(d.getPageSource().contains("12345"), "regular arg not passed");
  
    var elist : List<WebElement> := d.findElements(SelectBy.tagName("input"));
    assert(elist.length == 3, "expected 3 <input> elements did not match");
    elist[1].sendKeys("dfsdfg");
    elist[2].sendKeys("234567");
    d.getSubmit().click();
    
    assert(d.getPageSource().contains("dfsdfg3234567"), "resulting name incorrect");
  }