$PENTRIES->set_source($psource);
$key[0] = "meier";
$PENTRIES->add_keyword($key[0]);
$key[1] = "M�LLer";
$PENTRIES->add_keyword($key[1]);
$PENTRIES->add_site("1");
$PENTRIES->add_site("3");
echo "<h3>testable, metas</h3>";
$ret = $PENTRIES->set_link("heinz.de");
it("bad link", $ret, false, $PENTRIES->error_cmsg);
$ret = $PENTRIES->set_link("http://heiny.de");
it("link ok http", $ret, true, $PENTRIES->error_cmsg);
$ret = $PENTRIES->set_link("www.heiny.de");
it("link ok www", $ret, true, $PENTRIES->error_cmsg);
echo "<h3>Date</h3>";
$ret = $PENTRIES->set_date("13-11");
it("set date 13-11 (fail)", $ret, false, $PENTRIES->error_cmsg);
$ret = $PENTRIES->set_date("11.13.");
it("set date 11.13. (fail)", $ret, false, $PENTRIES->error_cmsg);
$ret = $PENTRIES->set_date("11.13.2005");
it("set date 11.13.2005 (fail)", $ret, false, $PENTRIES->error_cmsg);
$ret = $PENTRIES->set_date("1.8.05");
it("set date 1.8.05", $ret, "2005-08-01", $PENTRIES->error_cmsg);
$ret = $PENTRIES->set_date("11-13");
it("set date 11-13", $ret, strftime("%Y") . "-11-13", $PENTRIES->error_cmsg);
$ret = $PENTRIES->set_date("1.8.2005");
it("set date 1.8.2005", $ret, "2005-08-01", $PENTRIES->error_cmsg);
$ret = $PENTRIES->write();
it("write entry", $ret, true, $ret . " - " . $PENTRIES->error_cmsg);
/* * * * Keywords * * * */
echo "<h2>KEYWORDS</h2>";
