sclass GazelleSiteTester implements AutoCloseable {

  PlaywrightAndBrowser playwright;

  S site = "https://empty.gazelle.rocks";

  new Scorer scorer;

  void init {

    playwright if null = playwrightWithChromium();

  }

  abstract class Tester {

    Page page;

    void assertPageContainsText(S text) {

      assertNotNull(scorer, text, page.querySelector("text=" + text));

    }

    void openSite {

      init();

      page = playwrightOpenPage(playwright.browser, page, site);

    }

    void fill(O... _) {

      for (O key, O val : paramsToObjectMap(_))

        page.fill("[name=" + key + "]", str(val));

    }

  }

  class TestRegistration extends Tester {

    S user = "testuser" + random(1000000);

    S pw = "pw" + random(1000000);

    S contact = "dummy contact";

    run {

      openSite();

      page.click("text=Register as new user");

      fill(+user, f_pw := pw, pw2 := pw, +contact);

      page.click([[[type=submit]:has-text("Register")]]);

      assertPageContainsText(dollarFormat("User $user created", +user));

    }

  }

  class LogIn extends Tester {

    S user;

    S pw;

    double delay = 3.0;

    run {

      openSite();

      page.fill("[name=user]", user);

      page.fill("[name=pw]", pw);

      page.click([[[type=submit]:has-text("Log in")]]);

      sleepSeconds(delay);

      //page.waitForLoadState(); 

      /*page.waitForNavigation(() -> {

        page.click([[[type=submit]:has-text("Log in")]]);

      });*/

      assertPageContainsText("[user " + user + "]");

      assertPageContainsText("BEA Objects");

    }

  }

  LogIn registerAndLogIn() {

    new TestRegistration reg;

    reg.run();

    new LogIn logIn;

    copyFields(reg, logIn, "user", "pw", "page");

    logIn.run();

    ret logIn;

  }

  public void close { dispose playwright; }

  toString { ret "Tested " + site + ": " + scorer; }

}